PC按键精灵 JSON解析

发布: 2017-08-21 20:29:24 | 作者: | 来源: 按键精灵资源站

得到如下json，用文本处理很是棘手，怎么办？

[code]{"Current_period":635551,"Lottery_time":"2017-08-21 20:13:24","Type":[{"money":"2","Ranking":9,"Number":"1,3,4,5,6,7,8,9,10"},{"money":"2","Ranking":5,"Number":"1,2,3,5,6,7,8,9,10"},{"money":"2","Ranking":4,"Number":"1,2,3,4,5,7,8,9,10"},{"money":"2","Ranking":3,"Number":"1,2,3,4,5,6,7,9,10"},{"money":"2","Ranking":6,"Number":"1,2,3,4,5,6,7,8,9"}]}[/code]

这个字符串本身有双引号在按键里面，需要用两个来表示一个。

[code]str = "{""Current_period"":635551,""Lottery_time"":""2017-08-21 20:13:24"",""Type"":[{""money"":""2"",""Ranking"":9,""Number"":""1,3,4,5,6,7,8,9,10""},{""money"":""2"",""Ranking"":5,""Number"":""1,2,3,5,6,7,8,9,10""},{""money"":""2"",""Ranking"":4,""Number"":""1,2,3,4,5,7,8,9,10""},{""money"":""2"",""Ranking"":3,""Number"":""1,2,3,4,5,6,7,9,10""},{""money"":""2"",""Ranking"":6,""Number"":""1,2,3,4,5,6,7,8,9""}]}"

[/code]

人都看不懂，我们找个地方格式化一下，太难看了这个。访问这个json格式化网站json格式化

[attachimg]233494[/attachimg]

好了，重点来了，我现在想获取Current_period 对应的数字怎么弄呢？看代码

[code]期号 = json解析(str, "Current_period")

TracePrint 期号

Function json解析(str,json路径)

Set sc = CreateObject("MSScriptControl.ScriptControl")

sc.Language = "JScript"

sc.AddCode "var tmp = " & str & ";"

json解析 = sc.Eval("tmp." & json路径)

End Function[/code]    这样就可以得到Current_period所表示的内容(引号后面的)   问题来了，这个Type里面是一个数组对象，该怎么获取呢？请看代码实现

[code]总数 = json解析(str, "Type.length")'这个后面.length表示这个数组的大小

For i = 0 To 总数 - 1

TracePrint "_____________________________________"

TracePrint json解析(str, "Type[" & i & "].money")

TracePrint json解析(str, "Type[" & i & "].Ranking")

TracePrint json解析(str, "Type[" & i & "].Number")

Next

Function json解析(str,json路径)

Set sc = CreateObject("MSScriptControl.ScriptControl")

sc.Language = "JScript"

sc.AddCode "var tmp = " & str & ";"

json解析 = sc.Eval("tmp." & json路径)

End Function[/code]

好了，今天讲解就到这里，有问题的小白，或者吐槽的大牛欢迎来群搞基：群号174972351