Foxtable(狐表)用户栏目专家坐堂 → 这样的数组怎么解析啊


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

主题:这样的数组怎么解析啊

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/21 11:57:00 [显示全部帖子]

http://www.foxtable.com/mobilehelp/topics/0140.htm

Dim json As String  = "{""n_a_s""..........
Dim jo As JObject = JObject.Parse(json)
msgbox(jo("n_a_s").tostring)
Dim ja As JArray = jo("atts")
For i As Integer = 0 To ja.Count - 1
   Output.Show(ja(i)("
filename").ToString)
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/21 13:38:00 [显示全部帖子]

http://www.foxtable.com/mobilehelp/topics/0167.htm,学学里面生成json数组的用法

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/1 11:18:00 [显示全部帖子]

jo("data")("data")("formson_3709")("field3") = ja
ja.add(New JObject)
 ja(0)("fileUrl") = fileurl

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/1 11:29:00 [显示全部帖子]

完整代码

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/1 13:34:00 [显示全部帖子]

要生成什么格式的json?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/1 13:52:00 [显示全部帖子]

Dim ja2 As New JArray
 jo("data")("data")("formson_3709") = ja2
 ja2.add(New JObject)
 ja2(0)("事实描述") = "12312312231"
Dim ja As New JArray
 ja2(0)("field3") = ja
ja.add(New JObject)
 ja(0)("fileUrl") = fileurl

 回到顶部