VB6下简易的JSON解析器

来源：互联网发布：北外网络教育证书编辑：程序博客网时间：2024/05/29 03:32

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

0 0