where is JScriptTypeInfo.tlb??
Code:
Sub Test()
Dim JsonStr As String
Dim JsCode As String
JsonStr = "{'a1':33,'A2':'strtest','A3':'strtest2' ,'a4':['v1','v2'] , 'ChildObjA':{'c1':11 , 'c2':22}}"
JsCode = JsCode & "var JsonObj=" & JsonStr & ";" & vbCrLf
' Dim JsLib As New MSScriptControl.ScriptControl
dim JsLib
set jslib=JsLib = CreateObject("ScriptControl")
JsLib.Language = "JavaScript"
JsLib.AddCode (JsCode)
MsgBox JsLib.Eval("JsonObj.a1")
MsgBox JsLib.Eval("JsonObj['a1']")
Dim JsonObj As Object
Set JsonObj = JsLib.Eval("JsonObj")
On Error GoTo ERR
Dim a
For Each a In JsonObj
Debug.Print Now
Next
Exit Sub
ERR:
MsgBox ERR.Number & "," & ERR.Description
End Sub