马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？立即注册
×
[按键精灵] 纯文本查看 复制代码 Function ReadJsonData(jsondata, Item)//解析json格式数据,返回item的键值
Dim Json
Set Json = CreateObject("MSScriptControl.ScriptControl")
Json.Language = "JScript"
Json.AddCode "var tmp = " & jsondata & ";"
ReadJsonData= Json.Eval("tmp." & Item)
Set Json = Nothing
End Function
好了,我知道老师教程有一个解析json格式数据的教程,用的是VBS的代码.
分享这个函数也是百度搜的,实测win7,win10没有问题,解析速度很快,老师VBS的那个函数我没试过不知道解析速度有没有差别,但是代码精简很多了,关键是使用毫无难度.
| 
发表于 2023-2-19 17:22:36
