解析json嵌套数组

sinitek123

最近开发遇到了解析json数组问题,参考http://club.excelhome.net/forum.php?mod=viewthread&tid=483942&page=1#pid3170407可以解决数组.
可是我的需要的是数组里面又有数组,请求高手帮忙.

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.lastName
End Sub
people firstname 下面是数组的话,怎么取下面的值.
副档有成功和失败的例子.

json数组.zip (10.49 KB, 下载次数: 217)

2011-12-22 16:58 上传

点击文件名下载附件

sinitek123

有知道的朋友吗?解答下.  http://www.json.org/json-zh.html 这个网站的vb json parser library打不开.有资源的上传个 ,多谢了

ttui

帮你转一下资源

sinitek123

多谢了 {:soso__11869765918897998135_2:}

fyt1987

请问是如何解决的，我也想知道如果获取数组的下标，跟你的问题一样

bluexuemei

简化一下

1. 
   
2. Sub bluejson()  'ok
   
3.     Dim aa
   
4.     Set x = CreateObject("ScriptControl"): x.Language = "JScript"
   
5.     aa = "{""myname"":""Michael"",""myaddress"":{""city"":""Beijing"",""street"":"" Chaoyang Road "",""postcode"":100025}}"
   
6.     Set y = x.eval("eval(" & aa & ")")
   
7.     MsgBox y.myname
   
8.     MsgBox y.myaddress
   
9.     MsgBox y.myaddress.city
   
10.     MsgBox y.myaddress.postcode
    
11.     'Stop
    
12. End Sub

复制代码

bluexuemei

ruby版本

1. Sub json()  'ruby版本
   
2.    '需要安装ACTIVERUBY ，下载地址 http://www.artonx.org/data/asr/Ruby-2.1.1.msi
   
3.     Set x = CreateObject("ScriptControl"): x.Language = "rubyScript"
   
4.     aa = "{""myname"":""Michael"",""myaddress"":{""city"":""Beijing"",""street"":"" Chaoyang Road "",""postcode"":100025}}"
   
5.     y = x.eval("require 'json';h=JSON.parse('" & aa & "');h['myaddress']['city']")
   
6.     MsgBox y
   
7.     'Stop
   
8. End Sub

复制代码

praijna

赞叹bluexuemei老师！

dfsf12

bluexuemei 发表于 2014-10-21 22:14
ruby版本

老师，能不能解释下代码？

dfsf12

bluexuemei 发表于 2014-10-21 22:14
ruby版本

有这方面的资料吗？