主题：[求助]如何遍历JSON对象

如果接收到一个JSON字符串，但对于里面的对象【Key】可能存在未知名称的，如何使用

参考

 

Dim json As String = "{'name':'李云龙','age':'36'}"
For Each obj As object In JObject.Parse(json)
    msgbox(obj.key & " " & obj.value)
Next

用这个方法遍历的Json，可以messagebox.show ，但是却没办法放进去string里，请问怎么解决？

For Each jt1 As Object  In jo1
    MessageBox.show(jt1.key)
    Dim s As String = jt1.key.ToString() '会报错

next

 

 

帮助文档里并没有把jason的遍历操作说得详细，尤其是关于Key的部分，没怎么讲如何获取key，经常只是获取Value

 我测试这个代码没问题。

 

 请贴出你测试的json数据

 

Dim json As String = "{'name':'李云龙','age':'36'}"
For Each obj As object In JObject.Parse(json)
    msgbox(obj.key & " " & obj.value)
    Dim s As String = obj.key.tostring
Next

日了狗了，现在居然又没报错了