VB6下简易的JSON解析器

前端之家收集整理的这篇文章主要介绍了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@

猜你在找的VB相关文章