解析json数组
Sub figjson3() 'ok 可以解析json数组 ,请教高手怎么解析数组嵌套数组.
Dim aa
aa = "{""myname"":""Michael"",""myaddress"":{""city"":""Beijing"",""street"":"" Chaoyang Road "",""postcode"":100025}}"
Set X = CreateObject("ScriptControl")
X.Language = "JScript"
s = "function j(s) { return eval('(' + s + ')'); }"
X.AddCode s
Set y = X.Run("j", aa)
MsgBox y.myname
MsgBox y.myaddress
MsgBox y.myaddress.city
MsgBox y.myaddress.postcode
End Sub
例子
Sub jsontest() 'error
Dim aa
aa = "{ ""people"": [{ ""firstName"": [{'code':'40001','name':'累计折旧/固定资产原值'},{'code':'40005','name':'累值'}], ""lastName"":""McLaughlin"", ""email"": ""brett@newInstance.com"" },{ ""firstName"": 123, ""lastName"":""Hunter"", ""email"": ""jason@servlets.com"" }, { ""firstName"": ""Elliotte"", ""lastName"":""Harold"", ""email"": ""elharo@macfaq.com"" }]}"
Set X = CreateObject("ScriptControl")
X.Language = "JScript"
i = 0
s = "function j(s) { return eval('(' + s + ').people[ " & i & "]'); }"
X.AddCode s
Set y = X.Run("j", aa)
Debug.Print y.firstName.code
Debug.Print y.firstName, y.lastName
End Sub
[解决办法]
http://www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html
去这里下载json解析器吧
[解决办法]
不会啊，能下载，你这是什么网啊，墙这么厉害？
http://www.ediy.co.nz/content.asp?syscmd=dl&ID=A06786CB3E7E4F878FA542DBEE4B60B5
