以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何遍历json对象  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180240)
--  作者：happyft
--  发布时间：2022/10/10 11:56:00
--  如何遍历json对象
Dim json As String = "{\'name\':\'李云龙\',\'age\':\'36\'}"
Dim jo As JObject = JObject.Parse(json)
Output.Show(jo("name"))
Output.Show(jo("age"))

上面是根据实际的jo("name")输出,foxtable中如何遍历第一行的json对象,分别输出其属性及对应的值?
谢谢!
--  作者：HappyFt
--  发布时间：2022/10/10 13:01:00
--  
知道了,谢谢

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