VB6解析Json问题

可以用MSScriptControl.ScriptControl

rem json字符串：{"item":[{"delist_time":"2015-10-08 16:40:50","has_showcase":true,"newprepay":"default","num":431,"price":"99.00","title":"十度原装2.4G无线头戴式麦克风话筒 无线扩音器话筒 S611S613适用"},{"delist_time":"2015-10-09 17:06:08","has_showcase":true,"newprepay":"default","num":200,"price":"118.00","title":"十度 地藏经佛弟子念佛机 结缘插卡唱经机播经器 佛音佛歌佛号"},{"delist_time":"2015-10-12 20:38:57","has_showcase":true,"newprepay":"default","num":727,"price":"125.00","title":"十度S511大功率小蜜蜂教师用扩音器教学讲课唱戏机耳麦喇叭喊话器"}]}

Dim ScriptObj As Object
Set ScriptObj = CreateObject("MSScriptControl.ScriptControl")
ScriptObj.AllowUI = True
ScriptObj.language = "JavaScript"
' JSONCode 是一个变量，里面存着Json字符串
ScriptObj.AddCode "var data = " & JSONCode & ";"
'立即窗口（Ctrl+J 键可以调出来）显示第一个delist_time
Debug.Print ScriptObj.Eval("data.item[0].delist_time")