批处理之家 - Powered by Discuz! Board

标题: [文本处理] 求用 json 返回值 BAT 如何解释切割出版定义字段进行调用 [打印本页]

作者: hellohgh 时间: 2022-1-4 00:06 标题: 求用 json 返回值 BAT 如何解释切割出版定义字段进行调用

本帖最后由 hellohgh 于 2022-1-4 18:28 编辑

来源网址：http://api.ip138.com/ip/?ip=&datatype=jsonp&token=12f911dede85b244e702cb5f59575201
ip138.vbs
用vbs命令保存网页内容：

' 要下载的文件
strFileURL = "http://api.ip138.com/ip/?ip=&datatype=jsonp&token=12f911dede85b244e702cb5f59575201"
' 文件存放路径
strHDLocation = "c:\ip.txt"

Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
    Set objADOStream = CreateObject("ADODB.Stream")
    objADOStream.Open
    objADOStream.Type = 1

    objADOStream.Write objXMLHTTP.ResponseBody
    objADOStream.Position = 0

    Set objFSO = Createobject("Scripting.FileSystemObject")
    If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
    Set objFSO = Nothing

    objADOStream.SaveToFile strHDLocation
    objADOStream.Close
    Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing
复制代码

保存文件"c:\ip.txt"的内容为：

{"ret":"ok","ip":"113.94.52.188","data":["中国","广东","茂名","化州市","电信","525100","0668"]}
复制代码

用BAT 如何解释切割出版定义字段进行调用？

我要将各个字段都定制并设为变量，要调用的。非常感谢“for_flr”帮助，已经成功调用到IP了。

@echo off
for /f "tokens=4 delims=:," %%a in (C:\ID\ip.txt) do set ip=%%~a
echo 外网IP：%ip%
pause
复制代码

最好有不用下载保存文丁，直接调用的方法。。。。新手脑瓜痛。。。新手脑瓜痛。。。新手脑瓜痛。。。

作者: for_flr 时间: 2022-1-4 09:34

用powershell

$json='{"ret":"ok","ip":"113.94.52.188","data":["中国","广东","茂名","化州市","电信","525100","0668"]}'
($json|convertfrom-json).ip
复制代码

作者: for_flr 时间: 2022-1-4 09:54

用批处理

@echo off
set var={"ret":"ok","ip":"113.94.52.188","data":["中国","广东","茂名","化州市","电信","525100","0668"]}
for /f "tokens=4 delims=:," %%a in ("%var%") do echo;%%~a
复制代码

作者: hellohgh 时间: 2022-1-4 14:31

回复 3# for_flr

成功了。非常感谢。。但还有个疑问。如何将这个IP定义变量？我要调用这个IP值。。新手问题多，还请赐教。谢谢。

作者: hellohgh 时间: 2022-1-4 14:31

回复 2# for_flr

感谢。

作者: for_flr 时间: 2022-1-5 08:01

3楼最后的的echo;%%~a改为set ip=%%~a

欢迎光临批处理之家 (http://www.bathome.net/)