Foxtable(狐表) → 用户栏目 → 专家坐堂 → json 代码编译


  共有1714人关注过本帖树形打印复制链接

主题：json 代码编译
帅哥哟，离线，有人找我吗？
lime7523
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：88 积分：899 威望：0 精华：0 注册：2011/9/24 9:36:00 		json 代码编译  发帖心情 Post By：2018/12/13 16:25:00 [只看该作者]

假设取到的数据是双引号的，请问下面的代码应该怎么写 
 
Dim json As String = "[{"name":"李云龙","age":"36"},{"name":"黄晓明","age":"28"}]"
Dim ja As JArray = Jarray.Parse(json)
For i As Integer = 0 To ja.Count - 1
    OutPut.Show("姓名:"  & ja(i)("name").ToString() &  "  年龄:" & ja(i)("age").ToString())
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/13 18:05:00 [只看该作者]

1、获取代码是一样的。不论是单引号还是双引号，都一样获取的。

 

2、你这个双引号直接写的时候，要这样写 http://www.foxtable.com/webhelp/scr/0211.htm

 

Dim json As String = "[{""name"":""李云龙"",""age"":""36""},{""name"":""黄晓明"",""age"":""28""}]"

 
 回到顶部
帅哥哟，离线，有人找我吗？
lime7523
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：88 积分：899 威望：0 精华：0 注册：2011/9/24 9:36:00 		  发帖心情 Post By：2018/12/13 18:32:00 [只看该作者]

自动获取的是双引号的数据，不能对原数据进行再加工，该怎么改后面的代码

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/13 20:19:00 [只看该作者]

以下是引用lime7523在2018/12/13 18:32:00的发言：
自动获取的是双引号的数据，不能对原数据进行再加工，该怎么改后面的代码

 

后面的代码不用改。双引号、单引号都是同样的代码。

 

获取的数据直接贴出来，说明最后要得到什么结果。
 回到顶部
帅哥哟，离线，有人找我吗？
lime7523
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：88 积分：899 威望：0 精华：0 注册：2011/9/24 9:36:00 		  发帖心情 Post By：2018/12/13 22:01:00 [只看该作者]

以下是原数据
[{"best_ask":"0.00704191","best_bid":"0.00702812","instrument_id":"LTC-BTC","product_id":"LTC-BTC","last":"0.00702807","ask":"0.00704191","bid":"0.00702812","open_24h":"0.00710584","high_24h":"0.00719413","low_24h":"0.00696002","base_volume_24h":"720527.5492255","timestamp":"2018-12-13T13:55:22.526Z","quote_volume_24h":"5088.42241363"},{"best_ask":"0.02635073","best_bid":"0.02634458","instrument_id":"ETH-BTC","product_id":"ETH-BTC","last":"0.02634429","ask":"0.02635073","bid":"0.02634458","open_24h":"0.02608093","high_24h":"0.026413","low_24h":"0.02591442","base_volume_24h":"150340.749385","timestamp":"2018-12-13T13:55:22.526Z","quote_volume_24h":"3930.35978452"}]


最终结果是遍厉写入表中，现在能遍厉显示就行
[此贴子已经被作者于2018/12/13 22:07:28编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/13 23:16:00 [只看该作者]

参考代码

 

Dim json As String = ClipBoard.GetText
Dim ja As JArray = Jarray.Parse(json)
For i As Integer = 0 To ja.Count - 1
    OutPut.Show("姓名:"  & ja(i)("best_ask").ToString() &  "  年龄:" & ja(i)("best_bid").ToString())
Next

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询