前端之家收集整理的这篇文章主要介绍了
VB6下简易的JSON解析器，
前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。
Public Function JSONParse(ByVal JSONPath As String,ByVal JSONString As String) As Variant
Dim JSON As Object
Set JSON = CreateObject("MSScriptControl.ScriptControl")
JSON.Language = "JScript"
JSONParse = JSON.eval("JSON=" & JSONString & ";JSON." & JSONPath & ";")
Set JSON = Nothing
End Function
调用方式，
JSONPath为数据访问路径
JSONString为JSON格式源数据
如源数据内容Data为
{
@H_
301_14@
"programmers":[{
@H_
301_14@
"firstName":"Brett",
@H_
301_14@
"lastName":"McLaughlin",
@H_
301_14@
"email":"aaaa"
@H_
301_14@
},{
@H_
301_14@
"firstName":"Jason",
@H_
301_14@
"lastName":"Hunter",
@H_
301_14@
"email":"bbbb"
@H_
301_14@
},{
@H_
301_14@
"firstName":"Elliotte",
@H_
301_14@
"lastName":"Harold",
@H_
301_14@
"email":"cccc"
@H_
301_14@
}],
@H_
301_14@
"authors":[{
@H_
301_14@
"firstName":"Isaac",
@H_
301_14@
"lastName":"Asimov",
@H_
301_14@
"genre":"sciencefiction"
@H_
301_14@
},{
@H_
301_14@
"firstName":"Tad",
@H_
301_14@
"lastName":"Williams",
@H_
301_14@
"genre":"fantasy"
@H_
301_14@
},{
@H_
301_14@
"firstName":"Frank",
@H_
301_14@
"lastName":"Peretti",
@H_
301_14@
"genre":"christianfiction"
@H_
301_14@
}],
@H_
301_14@
"musicians":[{
@H_
301_14@
"firstName":"Eric",
@H_
301_14@
"lastName":"Clapton",
@H_
301_14@
"instrument":"guitar"
@H_
301_14@
},{
@H_
301_14@
"firstName":"Sergei",
@H_
301_14@
"lastName":"Rachmaninoff",
@H_
301_14@
"instrument":"piano"
@H_
301_14@
}]
@H_
301_14@
} －－－－－－－－－－－－－－－－－ JSONParse("programmers.length",Data) 3 JSONParse("musicians[1].instrument",Data) piano
@H_
301_14@
@H_
301_14@
