以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  合成json  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104210)
--  作者：zhy400137
--  发布时间：2017/7/25 14:57:00
--  合成json
    
    日期              开盘         收盘        最低         最高
    \'2013/1/24\'  2320.26  2320.26     2287.3    2362.94
    \'2013/1/25\'  2300       2291.3       288.26   2308.38
    \'2013/1/28\'  2295.35   2346.5      2295.35   2346.92
    \'2013/1/29\'  2347.22   2358.98    2337.35   2363.8
    \'2013/1/30\'  2360.75   2382.48    2347.89   2383.76
    \'2013/1/31\'  2383.43    2385.42    2371.23  2391.82

以上这样一个dt，如果换成这样的格式,Echarts可以接收，用JSON的方式？请教
[\'2013/1/24\', 2320.26,2320.26,2287.3,2362.94],
    [\'2013/1/25\', 2300,2291.3,2288.26,2308.38],
    [\'2013/1/28\', 2295.35,2346.5,2295.35,2346.92],
    [\'2013/1/29\', 2347.22,2358.98,2337.35,2363.8],
    [\'2013/1/30\', 2360.75,2382.48,2347.89,2383.76],
    [\'2013/1/31\', 2383.43,2385.42,2371.23,2391.82],
    [\'2013/2/1\', 2377.41,2419.02,2369.57,2421.15],
    [\'2013/2/4\', 2425.92,2428.15,2417.58,2440.38],
    [\'2013/2/5\', 2411,2433.13,2403.3,2437.42],
    [\'2013/2/6\', 2432.68,2434.48,2427.7,2441.73],
    [\'2013/2/7\', 2430.69,2418.53,2394.22,2433.89],
    [\'2013/2/8\', 2416.62,2432.4,2414.4,2443.03],
    [\'2013/2/18\', 2441.91,2421.56,2415.43,2444.8],
    [\'2013/2/19\', 2420.26,2382.91,2373.53,2427.07],
    [\'2013/2/20\', 2383.49,2397.18,2370.61,2397.94],
    [\'2013/2/21\', 2378.82,2325.95,2309.17,2378.82],
    [\'2013/2/22\', 2322.94,2314.16,2308.76,2330.88],
    [\'2013/2/25\', 2320.62,2325.82,2315.01,2338.78],
    [\'2013/2/26\', 2313.74,2293.34,2289.89,2340.71],
    [\'2013/2/27\', 2297.77,2313.22,2292.03,2324.63],
    [\'2013/2/28\', 2322.32,2365.59,2308.92,2366.16],
    [\'2013/3/1\', 2364.54,2359.51,2330.86,2369.65],
    [\'2013/3/4\', 2332.08,2273.4,2259.25,2333.54],

    
--  作者：有点蓝
--  发布时间：2017/7/25 15:57:00
--  
看帮助，先自己实践：http://www.foxtable.com/mobilehelp/scr/0167.htm

有问题再贴出代码，而不是一味靠别人
--  作者：zhy400137
--  发布时间：2017/7/25 16:28:00
--  
也算老用户了，这点规矩还是懂的，帮助我也看了，只是帮助中都是
姓名:李四，年龄:36，这样的格式，和我想要的有点不一样，试着改了
下也不会，所以上来问问，谢谢，没想过啥都靠别人，只是web确实不
太熟悉，已经在学习了.
--  作者：有点甜
--  发布时间：2017/7/25 17:03:00
--  

 参考代码

 

Dim dt As DataTable = DataTables("表b")
Dim str As String = ""
For Each dr As DataRow In dt.Select("")
    str &= "["
    str &= "\'" & dr("第一列") & "\',"
    str &= dr("第二列") & ","
    str &= dr("第三列") & "],"
Next
str = str.trim(",")
msgbox(str)
--  作者：zhy400137
--  发布时间：2017/7/25 17:07:00
--  
谢谢，最近echarts玩多了，简单的方法想不起来了，我试试。
--  作者：有点甜
--  发布时间：2017/7/25 17:47:00
--  
以下是引用zhy400137在2017/7/25 17:07:00的发言：
谢谢，最近echarts玩多了，简单的方法想不起来了，我试试。

 

复杂的json，才需用json。使用echart的时候，replace替换文本，比直接生成json好用。
--  作者：zhy400137
--  发布时间：2017/7/25 17:54:00
--  
有点不是很明白，直接将数据加工成Echart的格式，用replace替换?那直接替换JS里的内容？
--  作者：zhy400137
--  发布时间：2017/7/25 17:56:00
--  
我自己再试试，谢谢！
--  作者：有点甜
--  发布时间：2017/7/25 17:59:00
--  
以下是引用zhy400137在2017/7/25 17:54:00的发言：
有点不是很明白，直接将数据加工成Echart的格式，用replace替换?那直接替换JS里的内容？

 

把echart例子的数据保存为模板txt，把可变的部分替换成特殊字符，如 <替换1> <替换2>，最后，你合成对应的字符替换，不就得到你chart的数据了？
--  作者：zhy400137
--  发布时间：2017/7/25 18:17:00
--  
有点明白了，谢谢老师，我试试。