乱云飞 - 翼展电脑服务中心

河南：https://weixin.hngscloud.com/ 公众号：河南高速浙江：监控视频 (zjt.gov.cn) 公众号：浙里畅行四川：https://etc.scjtonline.cn/ScWeChatAvatar/#/homePage 黑龙江：帮车宝APP，路况：https://gzh.hljtit.com/gis#/home 江西：https://gzh.hljtit.com/gis#/home 小程序江西交通监控云江苏：江苏路网 (gandongyun.com) （还有零星省道）公众号：江苏高速安徽：安徽高速出行服务（试运行） (u-road.com) （手动点亮右上角监控按钮）上海：https://epsn.jtw.sh.gov.cn/wxgzh/html/ssjt.html （手动点亮右上角监控按钮）陕西（需在微信使用）：https://gaoguantong.ruitong369.c … 12122/MainTest.html 公众号：陕西交通12122 广西（微信）：https://traffic.gxxfzjt.com/traffic.html 河北：公众号：畅行燕赵；路况：河北省高速公路出行信息服务网 (hebecc.com) 新疆：新疆交通公众出行信息服务网 (xinjiang.gov.cn) 云南：云南高速通APP（现在只有点播），路况：https://wxyngst.u-road.com/YunNanWeChatServer/html/SVG/map.html 吉林：（目前只有平台没有设备）https://www.hikjtxx.com/app?inde … e=123#/live_traffic 广东：（目前仅开放内部用户）小程序高速视频云，二维码：https://img1.imgtp.com/2023/02/17/h5dQcHPh.jpg 宁夏：https://pubvideo.nxjtglgs.com/public/page/index?project=nx，公众号：宁夏高速服务（只有俩摄像头，一个还是坏的）以下省份只有路况无监控湖北：http://www.02712122.com/oss/gst-hubei/svg/index.html 甘肃：http://gstgansuapi.u-road.com/Ga … /roadCondition.html 福建（微信）：https://jjzd.fzga.gov.cn/3g/sslkxx.msw 内蒙：实时路况_内蒙古自治区交通运输厅 (nmg.gov.cn) 辽宁：https://app.ln-gst.com/nuxtH5/epidemicSituation、辽宁高速通APP 湖南（快拍）：湖南高速公众出行服务网 (u-road.com)、湖南高速通APP 山东：e高速APP

批处理获取XML节点数值

2023-6-9 乱云飞代码评论(0) 浏览(160) 标签: 批处理 VBS 获取XML 读取XML

//用bat获取XML节点
SET FILE=onvif.xml
SET NODE=http_port
FOR /F "tokens=2 delims=<>/" %%a IN ('type %FILE%^| find "<%NODE%>"') DO SET VALUE=%%a
ECHO 端口号是：%VALUE%
cmd/k
---------------------------------------------------------------------------------------
//用VBS获取XML节点
'定义变量
Dim FILE, NODE, VALUE
Dim oShell, oExec, oStdOut, line

'设置文件名和节点名
FILE = "onvif.xml"
NODE = "http_port"

'使用CMD命令获取节点值
Set oShell = CreateObject("WScript.Shell")
Set oExec = oShell.Exec("cmd /c type " & FILE & " | find """ & NODE & """")
Set oStdOut = oExec.StdOut

'读取输出结果并提取值
Do While Not oStdOut.AtEndOfStream
    line = oStdOut.ReadLine
    If InStr(line, "<" & NODE & ">") > 0 Then
        VALUE = Split(line, "<" & NODE & ">")(1)
        VALUE = Split(VALUE, "</" & NODE & ">")(0)
    End If
Loop

'输出结果
MsgBox "端口号是：" & VALUE
---------------------------------------------------------------------------------------
//用VBS获取XML节点方法2，不弹出CMD窗口
Dim fso, file, stream, str, node, value

' 创建 File System Object
Set fso = CreateObject("Scripting.FileSystemObject")

' 打开文件
Set file = fso.OpenTextFile("onvif.xml", 1)

' 读取文件内容
str = file.ReadAll

' 关闭文件
file.Close

' 查找节点
node = "http_port"
value = ""

' 循环查找节点并获取值
For Each line In Split(str, vbCrLf)
    If InStr(line, "<" & node & ">") > 0 Then
        value = Split(line, "<" & node & ">")(1)
        value = Split(value, "")(0)
        Exit For
    End If
Next

' 输出结果
If value <> "" Then
    WScript.Echo "端口号是：" & value
End If