json数据问题

onlycxb

1.     请问,下列数据中,如何取得date,period,code数据?
   
2. sub test ()
   
3. Dim x As Object, s As String, y As Object,t as string
   
4. t="{"error":"","itemArray":[{"date":"2014-10-03","periodNumber":"450856","period":"450856","code":"","star":"3","data":[{"name":"冠　军","data":[{"code":"4,5,6,8,10","color":"","result":"0"},{"code":"双","color":"","result":"0"},{"code":"大","color":"","result":"0"}]},{"name":"亚　军","data":[{"code":"2,3,6,7,8","color":"","result":"0"},{"code":"双","color":"","result":"0"},{"code":"小","color":"","result":"0"}]},{"name":"第三名","data":[{"code":"1,2,4,6,7","color":"","result":"0"},{"code":"单","color":"","result":"0"},{"code":"大","color":"","result":"0"}]},{"name":"第四名","data":[{"code":"4,6,8,9,10","color":"","result":"0"},{"code":"单","color":"","result":"0"},{"code":"大","color":"","result":"0"}]},{"name":"第五名","data":[{"code":"2,3,4,5,8","color":"","result":"0"},{"code":"双","color":"","result":"0"},{"code":"小","color":"","result":"0"}]},{"name":"第六名","data":[{"code":"1,4,5,8,9","color":"","result":"0"},{"code":"单","color":"","result":"0"},{"code":"小","color":"","result":"0"}]},{"name":"第七名"
   
5. ,"data":[{"code":"3,4,7,9,10","color":"","result":"0"},{"code":"单","color":"","result":"0"},{"code":"小","color":"","result":"0"}]},{"name":"第八名","data":[{"code":"1,2,5,6,10","color":"","result":"0"},{"code":"单","color":"","result":"0"},{"code":"大","color":"","result":"0"}]},{"name":"第九名","data":[{"code":"3,5,6,8,9","color":"","result":"0"},{"code":"双","color":"","result":"0"},{"code":"大","color":"","result":"0"}]},{"name":"第十名","data":[{"code":"1,2,4,5,9","color":"","result":"0"},{"code":"双","color":"","result":"0"},{"code":"小","color":"","result":"0"}]},{"name":"冠亚和","data":[{"code":"9,10,11","color":"","result":"0"}]}]}]}"
   
6.     Set x = CreateObject("ScriptControl")
   
7.     x.Language = "JScript"
   
8.     s = "function j(s) { return eval('(' + s + ')'); }"
   
9.     x.AddCode s
   
10.     Set y = x.Run("j", t)
    
11.     Debug.Print '
    
12. end sub
    

复制代码

suwenkai

其实数据没有错，只是双引号的问题导致数据出错，我把你的json数据放入txt文件再导入就不会有这样的问题。

bluexuemei

借用楼上的附件

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.     y = x.eval("require 'json';Dir.chdir('" & ThisWorkbook.Path & "');h=JSON.parse(File.open('json.txt').read);['date','period','code'].map{|x|h['itemArray'][0][x]}")
   
5. '    Debug.Print y
   
6.     Stop '本地窗口查看
   
7. End Sub

复制代码

onlycxb

谢谢楼上二位