Function json解析(str)
Set sc = CreateObject("MSScriptControl.ScriptControl")
sc.Language = "JScript"
sc.AddCode "var tmp = " & str & ";"
总数 = sc.Eval("tmp.words_result.length")'这个后面.length表示这个数组的大小
For i = 0 To 总数 - 1
解析结果=解析结果 + sc.Eval("tmp.words_result[" & i & "].words")
Next
json解析 = 解析结果
End Function