VB6下简易的JSON解析器

 

　　如题，VB6.0 下解析Json,用大佬的解析器(https://blog.csdn.net/bakw/article/details/51035338) 解析后返回值为[object Object]。

　　估计是内容可能跟示例的不一样，我要解析的 strJson 是：

{
	"info": [
　　　　　　{
		"name": "one",
		"sex": "two",
		"age": "three"
	　　},

　　　　　　　{
		"name": "one1",
		"sex": "two1",
		"age": "three1"
	　　},...

　　　　　　]
	"code": 0,
	"msg": "true"
}

　　对其进行调整后解决，如下代码。

　　调用方式不变：

　　　　取"code"：JSONParse("code", strJson)    ：返回 "one"；

　　　　当需要取List中的记录时，请自行拆分下面方法增加可用性；

　　　　判断是否存在第n个list记录：JSONParse("info[n-1]", strJson)    ：存在返回 "[object Object]"  /  不存在返回 ""；

　　　　取第2个List中的"name"：JSONParse("info[1].name", strJson)    ：返回 "one1"。

Public Function JSONParse(ByVal JSONPath As String, ByVal JSONString As String) As Variant
    On Error GoTo ErrH
    Dim JSON As Object
    Set JSON = CreateObject("MSScriptControl.ScriptControl")
    JSON.Language = "JScript"
    JSON.AddCode "var Json = " & JSONString & ";"
    JSONParse = JSON.Eval("Json." & JSONPath)
    Set JSON = Nothing
    Exit Function
ErrH:
    Debug.Print Err.Description
    Err.Clear
End Function