一、脚本源码
使用VBS脚本遍历XML文件
OptionExplicit '定义常量 ConstNodeElement=1'元素 ConstNodeText=3'文本 ConstNodeCDATA=4'CDATA ConstNodeEntityRef=5'实体引用 ConstNodeEntity=6'实体 ConstNodeCommand=7'处理指令 ConstNodeComment=8'注释 ConstNodeDOCTYPE=10'文档类型 '遍历文件NameList.xml WScript.EchoVbCrLf WScript.Echo"开始遍历文件NameList.xml" DimXDoc SetXDoc=CreateObject("MSXML2.DOMDocument") XDoc.Load("NameList.xml") ReadXmlNodexdoc,0 WScript.Echo"遍历完毕" '递归遍历结点信息x:结点lvl:层,从0开始计算 SubReadXmlNode(x,lvl) Dimgap,child,i gap=Space(lvl*3) 'WScript.Echogap&"<----" '输出结点类型 WScript.Echogap&"TYPE:"&UCase(x.NodeTypeString),x.NodeName '遍历属性 Ifx.NodeType=1Then DimAlist SetAlist=x.Attributes Fori=0ToAlist.Length-1 DimAttr SetAttr=Alist.Item(i) WScript.Echogap&"ATTRIBUTE",Attr.NodeName,"=",Attr.NodeValue Next EndIf '如果结点值不为空,显示结点值 IfNotIsNull(x.NodeValue)Then_ WScript.Echogap&"NODE_VALUE:","'"&x.NodeValue&"'" '递归遍历子结点 Ifx.HasChildNodesThen ForEachChildInx.ChildNodes ReadXmlNodechild,lvl+1 Next EndIf 'WScript.Echogap&">" EndSub
二、运行结果
打开cmd,使用cscript运行VBS脚本
END