代码之家 › 专栏 › 技术社区 › Codename K

如何使用VBScript或批处理文件从JSON文件下载和获取值?

vbscript batch-file json

-1

Codename K · 技术社区 · 7 年前

这是应答的VBScript代码 here 从计算机获取具有正确值的JSON文件。

Set fso = CreateObject("Scripting.FileSystemObject")

json = fso.OpenTextFile("C:\path\to\combined.json").ReadAll

Set re = New RegExp
re.Pattern = """passed"":(true|false),"
re.IgnoreCase = True

For Each m In re.Execute(json)
  passed = CBool(m.SubMatches(0))
Next

但是我有一个json文件,看起来像是在线的,

["AA-BB-CC-MAKE-SAME.json","SS-ED-SIXSIX-TENSE.json","FF-EE-EE-EE-WW.json","ZS-WE-AS-FOUR-MINE.json","DD-RF-LATERS-LATER.json","FG-ER-DC-ED-FG.json"]

如何下载此JSON文件并使用VBScript或批处理文件将值获取到五个变量?

1 回复 | 直到 7 年前

Hackoo 7 年前

下面是一个从Internet下载并解析JSON的示例:

Dim http,URL
URL = "http://ip-api.com/json/"
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "GET",URL,False
http.send
strJson = http.responseText

Set j = ParseJson(strJson)
Result = "IP =" & j.query & vbCrlf &_
"ISP = "& j.isp & vbCrlf &_
"Country = "& j.country & vbCrlf &_
"TimeZone = "& j.timezone

Wscript.echo Result
'--------------------------------------------------------
Function ParseJson(strJson)
    Set html = CreateObject("htmlfile")
    Set window = html.parentWindow
    window.execScript "var json = " & strJson, "JScript"
    Set ParseJson = window.json
End Function
'--------------------------------------------------------

您可以尝试以下代码:

Dim http,URL
URL = "https://privateURL/jsonfile/"
Set http = CreateObject("Msxml2.XMLHTTP")
http.open "GET",URL,False
http.send
strJson = http.responseText
Result = Extract(strJson,"(\x22(.*)\x22)")
Arr = Split(Result,",")
For each Item in Arr
    wscript.echo Item
Next
'******************************************
Function Extract(Data,Pattern)
   Dim oRE,oMatches,Match,Line
   set oRE = New RegExp
   oRE.IgnoreCase = True
   oRE.Global = True
   oRE.Pattern = Pattern
   set oMatches = oRE.Execute(Data)
   If not isEmpty(oMatches) then
       For Each Match in oMatches  
           Line = Line & Trim(Match.Value) & vbCrlf
       Next
       Extract = Line
   End if
End Function
'******************************************

推荐文章

kwirky_penguin · VBScript远程WMI调用“错误:0”权限被拒绝:“GetObject”

4 年前

michael_wycklendt · 拆分字符串上的类型不匹配

4 年前

RuffMingani · VBScript-WMI查询的语法无效

4 年前

Munaver Munu · 这段VB代码是如何自动添加到我的html文件中的?[重复]

4 年前

whoislouis · 是否使用vbscript/hta将文件夹中的所有文件加载到数组中?

8 年前

Er Reddy · VBS-查找计算机所在的SCCM集合Id、名称和包名称?

8 年前

Nick Cage Wellfair · 编写Photoshop脚本时,打开扩展名为JPG的文件夹中的所有文件

8 年前

Ali Sheikhpour · 在VBScript中将字符串转换为变量名

8 年前

QHarr · 命令行执行VBScript文件以执行VBA宏无法生成msgbox

8 年前

arana · 生成3位字母数字日期索引

8 年前