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 = "JScr

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 = nothingEnd Function

调用方式，
JsONPath为数据访问路径
JsONString为JsON格式源数据
如源数据内容Data为
{ @H_403_14@ "programmers":[{ @H_403_14@ "firstname":"Brett", @H_403_14@ "lastname":"McLaughlin", @H_403_14@ "email":"aaaa" @H_403_14@ },{ @H_403_14@ "firstname":"Jason", @H_403_14@ "lastname":"Hunter", @H_403_14@ "email":"bbbb" @H_403_14@ },{ @H_403_14@ "firstname":"Elliotte", @H_403_14@ "lastname":"Harold", @H_403_14@ "email":"cccc" @H_403_14@ }], @H_403_14@ "authors":[{ @H_403_14@ "firstname":"Isaac", @H_403_14@ "lastname":"Asimov", @H_403_14@ "genre":"scIEncefiction" @H_403_14@ },{ @H_403_14@ "firstname":"Tad", @H_403_14@ "lastname":"Williams", @H_403_14@ "genre":"fantasy" @H_403_14@ },{ @H_403_14@ "firstname":"Frank", @H_403_14@ "lastname":"Peretti", @H_403_14@ "genre":"christianfiction" @H_403_14@ }], @H_403_14@ "musicians":[{ @H_403_14@ "firstname":"Eric", @H_403_14@ "lastname":"clapton", @H_403_14@ "instrument":"guitar" @H_403_14@ },{ @H_403_14@ "firstname":"Sergei", @H_403_14@ "lastname":"Rachmaninoff", @H_403_14@ "instrument":"piano" @H_403_14@ }] @H_403_14@ } －－－－－－－－－－－－－－－－－ JsONParse("programmers.length",Data) 3 JsONParse("musicians[1].instrument",Data) piano @H_403_14@ @H_403_14@ 总结

以上是内存溢出为你收集整理的VB6下简易的JSON解析器全部内容，希望文章能够帮你解决VB6下简易的JSON解析器所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。