VBScript解析JSON数组：变量索引失效与函数复用故障排查

一、常量索引可行但变量索引报错的原因 #

MSScriptControl解析JSON后返回的数组是JScript数组，并非VBScript原生数组。VBScript访问JScript对象时，常量索引（如[0]）会被ScriptControl自动转换为JScript的数组下标访问逻辑；但用变量索引（如[i]）时，VBScript会把它当作对象的命名属性去查找，而JScript数组的数字下标在VBScript视角下不属于可直接通过变量访问的属性，因此触发“对象不支持该属性或方法”错误。

二、原型函数myitem的作用原理 #

给Object.prototype添加myitem方法，是让所有JScript对象（包括数组）都拥有一个可被VBScript调用的统一入口。当你在VBScript中调用parsed1.records.myitem(i)时，实际是在JScript环境中执行this[i]——这里的this指向JScript数组对象，i作为参数传入后，JScript能正确识别为数组下标，从而返回对应元素，相当于用JScript的语法逻辑绕开了VBScript的属性访问限制。

三、更优替代方案 #

方案1：在JScript中直接处理数组遍历 #

既然ScriptControl支持JScript，可直接在JScript代码块中完成数组遍历逻辑，再把结果返回给VBScript，避免跨语言的索引适配问题：

Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "JScript"
' 解析JSON并提取数组元素的JScript逻辑
sc.AddCode "function parseAndGetIds(jsonStr) { " & _
              "var obj = JSON.parse(jsonStr); " & _
              "var ids = []; " & _
              "for(var i=0; i<obj.records.length; i++) { " & _
                  "ids.push(obj.records[i].id); " & _
              "} " & _
              "return ids; " & _
           "}"
' VBScript调用获取结果
Dim idList: idList = sc.Run("parseAndGetIds", yourJsonString)
For Each id In idList
    WScript.Echo id
Next

方案2：使用VBScript原生JSON解析（Win10+） #

从Windows 10开始，系统自带WinRT.JsonObject对象，无需依赖MSScriptControl，直接原生解析：

Function ParseJson(jsonStr)
    Set json = CreateObject("Windows.Data.Json.JsonObject")
    json.Parse(jsonStr)
    Set ParseJson = json
End Function

' 调用示例
Set parsed = ParseJson(yourJsonString)
Set records = parsed.GetNamedObject("records").GetArray()
For i = 0 To records.Size - 1
    Set record = records.GetAt(i)
    WScript.Echo record.GetNamedString("id")
Next

该方案无兼容性问题（Win10及以上），且性能更稳定。

四、封装getJsonObject函数的“Catastrophic Failure”解决 #

报错原因是多次复用ScriptControl时，原型修改的上下文冲突，或ScriptControl初始化未正确完成。正确封装方式是只初始化一次ScriptControl，且原型方法仅添加一次：

' 全局初始化ScriptControl，避免重复创建实例
Dim sc: Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "JScript"
' 仅在初始化时添加原型方法和JSON解析函数
sc.AddCode "Object.prototype.myitem = function(i) { return this[i]; };" & _
           "function parseJson(jsonStr) { return JSON.parse(jsonStr); }"

Function getJsonObject(jsonStr)
    On Error Resume Next
    Set getJsonObject = sc.Run("parseJson", jsonStr)
    If Err.Number <> 0 Then
        WScript.Echo "解析失败：" & Err.Description
        Set getJsonObject = Nothing
    End If
    On Error GoTo 0
End Function

' 调用示例
Set parsed1 = getJsonObject(jsonStr1)
Set parsed2 = getJsonObject(jsonStr2)
' 通过myitem方法访问数组元素
For i = 0 To parsed1.records.length - 1
    WScript.Echo parsed1.records.myitem(i).id
Next

关键注意点：

• 全局初始化ScriptControl，避免重复创建实例导致的资源冲突
• 原型方法仅在初始化时添加一次，不要在函数内重复添加
• 加入错误捕获，避免单个JSON解析失败影响后续调用

内容的提问来源于stack exchange，提问作者David Brigden