json 代码编译 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2714人关注过本帖树形打印复制链接主题：json 代码编译

lime7523

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：88 积分：905 威望：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 积分：905 威望：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 积分：905 威望：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

下一主题 >> << 上一主题

主题：json 代码编译