VB6下简易的JSON解析器

[vb] view plain copy

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为
{

    "programmers": [{

        "firstName": "Brett",

        "lastName": "McLaughlin",

        "email": "aaaa"

    }, {

        "firstName": "Jason",

        "lastName": "Hunter",

        "email": "bbbb"

    }, {

        "firstName": "Elliotte",

        "lastName": "Harold",

        "email": "cccc"

    }],

    "