JsonArray

chinasa　发表于：2017-07-20 17:06:53 　

各位老师，

我通过如下代码能够成功解析出数组的内容，但我这个数组有时包含多条记录，请教过别人，说是要用JsonArray解析，可惜我不会，有哪位能指导下吗？

'Reader.Body.firstChild.firstChild.Text就是我获取到的数组内容

Dim aaa
aaa = Mid(Reader.Body.firstChild.firstChild.Text, 2, Len(Reader.Body.firstChild.firstChild.Text) - 2)
Dim obj As Object, json As Object
Set obj = CreateObject("msscriptcontrol.scriptcontrol")
obj.language = "jscript"
Set json = obj.Eval("data=" & aaa)
MsgBox json.字段A

Top

chinasa 发表于：2017-07-25 15:55:56

问题已经解决

Top

大海发表于：2017-07-26 07:55:10

这么高深的问题也只要你自己可以解决

Top

chinasa 发表于：2017-07-27 09:36:27

        With CreateObject("MSScriptControl.ScriptControl")
         .Language = "JScript"
         .AddCode aa
           MsgBox .Eval("b.data[0].ZD1")
        End With

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]JsonArray