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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何解析JSON

共有1757人关注过本帖树形打印复制链接主题：如何解析JSON

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/24 18:17:00 [显示全部帖子]

你得到的应该是一个数组吧？参考

Dim json As String = "{'name':'李云龙','card':[{'bank1111':'工行','account111':'123'},{'bank2222':'建行','account222':'678'}]}"
Dim jo As JObject = JObject.Parse(json)
Output.Show(jo("name"))
For Each jt As JToken In jo("card")
    For Each a As object In jt
        output.show(a.name & " " & a.value)
    Next
Next

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/25 8:53:00 [显示全部帖子]

参考代码

Dim str As String = ClipBoard.GetText
Dim jo = jobject.Parse(str)
For Each item As object In jo
    output.show(item.name)
    For Each iitem As object In jo(item.name)
        output.show(iitem.name & " " & iitem.value)
    Next
Next

[此贴子已经被作者于2017/10/25 8:53:39编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/25 9:47:00 [显示全部帖子]

Dim str As String = ClipBoard.GetText
Dim jo = jobject.Parse(str)
For Each item As object In jo
    output.show(item.name)
    For Each iitem As object In jo(item.name)
        If typeof iitem.value Is jarray
            For Each iiitem As object In iitem.value
                output.show(iiitem.value)
            Next
        Else
            output.show(iitem.name & " " & iitem.value)
        End If
    Next
Next

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

主题：如何解析JSON