json - 在 Windows 上的 Excel VBA 中，对于解析的 JSON 变量，这个 JScriptTypeInfo 到底是什么？

Question

在这里回答我自己的问题。
我已经在 Excel VBA 中使用 JSON 做了一些工作，并发布了很多发现，我将以问答的形式进行 https://stackoverflow.com/help/self-answer https://blog.stackoverflow.com/2011/07/its-ok-to-ask-and-answer-your-own-questions/

因此，在 stackoverflow 的其他地方，人们可以看到有关在 VBA 中解析 JSON 的问题，但他们似乎错过了一两个技巧。

首先，我不再使用自定义 JSON 解析库，而是使用 ScriptControl 的 Eval 方法作为我所有 JSON 代码的基础。我们还表达了对 native Microsoft 解决方案的偏好。

这是一个先前的问题In Excel VBA on Windows, how to mitigate issue of dot syntax traversal of parsed JSON broken by IDE's capitalisation behaviour?这个问题就是以此为基础的。它展示了如何使用 VBA.CallByName 更加稳健而不是使用点语法来遍历已解析的 JSON 对象。还有另一个先前的问题In Excel VBA on Windows, how to loop through a JSON array parsed?展示了它如何也可以用于访问数组元素。但是 CallByName 返回一个奇怪的变量类型，该类型在“监视”窗口中显示为 Object/JScriptTypeInfo如果在立即窗口中键入 Debug.Print(或将鼠标悬停在变量上)，则会得到无信息的“[object Object]”。在另一个问题中系列中In Excel VBA on Windows, how to get stringified JSON respresentation instead of “[object Object]” for parsed JSON variables?我提出了一些调试“糖”，可以很好地检查变量。在第四个问题In Windows Excel VBA,how to get JSON keys to pre-empt “Run-time error '438': Object doesn't support this property or method”? ，同时调查如何查询 JSON 对象中的成员 我发现了一个似乎附加到 JScriptTypeInfo 对象的 hasOwnProperty() 方法。

所以在这个问题中我问，这个 JScriptTypeInfo 到底是什么？

这是 5 个系列中的第 5 个问题。这是完整系列

第一季度 In Excel VBA on Windows, how to mitigate issue of dot syntax traversal of parsed JSON broken by IDE's capitalisation behaviour?

第二季度 In Excel VBA on Windows, how to loop through a JSON array parsed?

第三季度 In Excel VBA on Windows, how to get stringified JSON respresentation instead of “[object Object]” for parsed JSON variables?

第四季度 In Windows Excel VBA,how to get JSON keys to pre-empt “Run-time error '438': Object doesn't support this property or method”?

第五季度 In Excel VBA on Windows, for parsed JSON variables what is this JScriptTypeInfo anyway?

Answer 1

一个可能的查找位置是 ScriptControl 的类型库，因为这是产生此类型的库。

我的机器上此类型的完整详细信息是

Libary Name:    Microsoft Script Control 1.0 (Ver 1.0)       
LIBID:          {0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}
Location:       C:\wINDOWS\SysWOW64\msscript.ocx 

使用 VBA IDE 的对象浏览器和反汇编类型库的 OLEVIEW.exe，我无法跟踪 JScriptTypeInfo 接口(interface)或 hasOwnProperty 方法。

但脚本引擎不是托管语言实现吗，例如 VBScript 和 JScript(Microsoft 的 Javascript 名称)。
所以也许我们应该寻找一个 JScript 实现 DLL，实际上这里有一个，详细信息

Libary Name:    Microsoft JScript Globals
LIBID:          {3EEF9759-35FC-11D1-8CE4-00C04FC2B085}
Location:       C:\wINDOWS\SysWOW64\jscript.dll 

它在我的计算机上未注册，因此不在我的“工具”->“引用”库列表或 OLEVIEW.exe 中。我很幸运在闲逛时发现了。
以下是 OLEVIEW 的一些输出，给出了类型库的摘录

[
  uuid(3EEF9758-35FC-11D1-8CE4-00C04FC2B097)
]
dispinterface ObjectInstance {
    properties:
    methods:
        [id(0x0000044c)]
        StringInstance* toString();
        [id(0x0000044d)]
        StringInstance* toLocaleString();
        [id(0x0000044e)]
        VARIANT hasOwnProperty(VARIANT propertyName);
        [id(0x0000044f)]
        VARIANT propertyIsEnumerable(VARIANT propertyName);
        [id(0x00000450)]
        VARIANT isPrototypeOf(VARIANT obj);
        [id(0x00000451)]
        ObjectInstance* valueOf();
};

上面显示的 hasOwnProperty 是 IDispatch 接口(interface)(或调度接口(interface))的一个方法，它是与声明为 Object 类型的 VBA 对象一起使用所必需的(例如 Dim foo as Object)使用 regsvr32 注册类型库似乎没有任何作用。必须浏览到“工具引用”中的文件才能在 VBA 的对象浏览器中查看。

我们可以非常确定这个 JScript.dll 文件，因为使用 Process Explorer，我们可以看到在执行 oScriptEngine.Language = "JScript" 行时加载该 dll由于缺少注册类型库，我将文件 JScript.dll 加载到 Notepad++ 中，并搜索 .J.S.c.r.i.p.t.T.y.p.e.I.n.f.o 作为正则表达式，并找到了结果。宾果游戏!

不仅有一个ObjectInstance可以描述VBA程序遇到的大部分变量，还有一个有趣的ArrayInstance，也许我们可以使用Javascript自己的数组函数或者至少是 JScript.dll 类型库中记录的一个子集。这是一些示例代码

'Tools->References->
'Microsoft Script Control 1.0;  {0E59F1D2-1FBE-11D0-8FF2-00A0D10038BC}; C:\Windows\SysWOW64\msscript.ocx

'and FYI/browsing capabilities       Microsoft JScript Globals;   C:\wINDOWS\SysWOW64\jscript.dll

Option Explicit

Private Sub TestJSONParsingWithCallByName5()

    Dim oScriptEngine As ScriptControl
    Set oScriptEngine = New ScriptControl
    oScriptEngine.Language = "JScript"

    Dim sJsonString(0 To 1) As String
    sJsonString(0) = "{'key1': 'value1'  ,'key2': { 'key3': 'value3' } }"
    sJsonString(1) = "[ 1234, 2345, 3456, 4567, 5678, 6789 ]"



    Dim objJSON(0 To 1) As Object
    Set objJSON(0) = oScriptEngine.Eval("(" + sJsonString(0) + ")")
    Set objJSON(1) = oScriptEngine.Eval("(" + sJsonString(1) + ")")

    Debug.Assert objJSON(0).hasOwnProperty("key1")
    Debug.Assert objJSON(0).hasOwnProperty("key2")

    Debug.Assert CallByName(objJSON(1), "length", VbGet) = 6
    Debug.Assert CallByName(objJSON(1), "0", VbGet) = "1234"

    '* Is objJSON(1) an ArrayInstance?
    '* does it support the reverse method of the ArrayInstance object?

    'Call objJSON(1).Reverse  '* reverse gets capitalised into Reverse ... grrrr
    Call CallByName(objJSON(1), "reverse", VbMethod) '* so use CallByName as solution to "helpful" capitalisation

    '* Yes, the elements are reversed!

    Debug.Assert CallByName(objJSON(1), "length", VbGet) = 6
    Debug.Assert CallByName(objJSON(1), "0", VbGet) = "6789"

    Stop

    '** And now we know objJSON(1) is an ArrayInstance we can have some fun with array operations

    Dim objSplice As Object
    Set objSplice = CallByName(objJSON(1), "splice", VbMethod, 2, 1)
    Debug.Assert CallByName(objJSON(1), "length", VbGet) = 5
    Debug.Assert CallByName(objSplice, "length", VbGet) = 1

    Dim objSlice As Object
    Set objSlice = CallByName(objJSON(1), "slice", VbMethod, 2)
    Debug.Assert CallByName(objJSON(1), "length", VbGet) = 5
    Debug.Assert CallByName(objSlice, "length", VbGet) = 3

    Stop
    Call CallByName(objJSON(1), "sort", VbMethod)


    Debug.Assert CallByName(objJSON(1), "join", VbMethod) = "1234,2345,3456,5678,6789"
    Debug.Assert CallByName(objJSON(1), "join", VbMethod, " ") = "1234 2345 3456 5678 6789"
    Stop


    Debug.Assert CallByName(objJSON(1), "pop", VbMethod) = "6789"
    Debug.Assert CallByName(objJSON(1), "length", VbGet) = 4
    Stop
End Sub

摘要:JScriptTypeInfo 是在 VBA IDE 监 window 口和 VBA 函数 TypeName() 的返回中显示的内容，但它实际上隐藏了许多可以在 JScript.dll 中找到的对象。
我想它可以被描述为多态性，也许最好将其描述为后期绑定(bind)。要查看功能，请使用“工具-引用”并浏览至 JScript.dll。