VB6下简易的JSON解析器
发布时间：2020-12-17 07:39:56 所属栏目：百科 来源：网络整理
导读：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
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
调用方式，
"programmers":[{
"firstName":"Brett",
"lastName":"McLaughlin",
"email":"aaaa"
},{
"firstName":"Jason",
"lastName":"Hunter",
"email":"bbbb"
},{
"firstName":"Elliotte",
"lastName":"Harold",
"email":"cccc"
}],
"authors":[{
"firstName":"Isaac",
"lastName":"Asimov",
"genre":"sciencefiction"
},{
"firstName":"Tad",
"lastName":"Williams",
"genre":"fantasy"
},{
"firstName":"Frank",
"lastName":"Peretti",
"genre":"christianfiction"
}],
"musicians":[{
"firstName":"Eric",
"lastName":"Clapton",
"instrument":"guitar"
},{
"firstName":"Sergei",
"lastName":"Rachmaninoff",
"instrument":"piano"
}]
} －－－－－－－－－－－－－－－－－ JSONParse("programmers.length",Data) 3 JSONParse("musicians[1].instrument",Data) piano
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |