收藏本页 | 设为主页 | RSS
LOGO

我就上乐乐吧

有人说可以用正则来提取某个字符串,但其实有些大材小用了,htmlfile是一个COM版的BOM和DOM,所以用它来执行js并解析JSON完全是轻而易举。

您当前的位置:首页 » 技术杂萃
全站公告
重要提示!

本站收集各类美图,以无LOGO原汁原味图为主!欢迎大家交流。
怕失联,请认准如下地址:
微博:传送门
土豆:传送门
电报:传送门
微信:superimagelove
花瓣:传送门
Q群1:231151757
Q群2:583138281
文件解压密码:593668.com
热心赞助

站内搜索
 
相关文章
热门文章
热搜词组
文章归档
友情链接
VBS解析JSON对象

发布日期:2018-05-11  关键词: VBS HTML JSON

有人说可以用正则来提取某个字符串,但其实有些大材小用了,htmlfile是一个COM版的BOM和DOM,所以用它来执行js并解析JSON完全是轻而易举。

代码如下:
’JSON数据
strJson ="{""site"":""我就上乐乐吧"",""url"":""593668.com""}"
Set html = CreateObject("htmlfile")
Set window = html.parentWindow
window.execScript "var json = " & strJson, "JScript" '解析json
Set result = window.json ' 获取解析后的对象
WScript.Echo "站点名:", result.site,"地址:", result.url

当然这里使用的是字符串,一般而言,大家解析都会从网上获取,那么加入如下代码替换即可。

Set http = CreateObject("Msxml2.ServerXMLHTTP")
http.open "GET", "传送门;, False
http.send
strJson = http.responseText ' 得到数据
Set html = CreateObject("htmlfile")
Set window = html.parentWindow
window.execScript "var json = " & strJson, "JScript" '解析json
Set result = window.json ' 获取解析后的对象
WScript.Echo "站点名:", result.site,"地址:", result.url

如果需要回调函数,就调整下调用方法。

callback = "cb"
Set http = CreateObject("Msxml2.ServerXMLHTTP")
http.open "GET", "传送门;&callback, False
http.send
strJson = http.responseText ' 得到数据
Set html = CreateObject("htmlfile")
Set window = html.parentWindow
window.execScript "function " & callback & "(o){json=o;}var json ="& strJson&";", "JScript" 'jsonp回调函数并解析json
Set result = window.json ' 获取解析后的对象
WScript.Echo "站点名:", result.site,"地址:", result.url

htmlfile不单可以解析json,还可以解析HTML,有空大家不妨多试试。
猜您喜欢:
Q群: 231151757微信:superimagelove 官网:www.593668.com