VB6下简易的JSON解析器

最新推荐文章于 2025-07-03 12:58:08 发布

原创最新推荐文章于 2025-07-03 12:58:08 发布 · 2.3w 阅读

20 ·

CC 4.0 BY-SA版权

杂家杂谈专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一种使用VBA结合JScript来解析JSON格式数据的方法，通过定义公共函数JSONParse，能够灵活地从复杂的JSON数据中提取所需字段。示例展示了如何获取数组长度及特定元素值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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"
    }],
    "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