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