[VBS]遍历XML文档

 1 Option Explicit 
 2  
 3 ‘定义常量
 4 Const NodeElement = 1        ‘元素
 5 Const NodeText = 3           ‘文本
 6 Const NodeCDATA = 4          ‘CDATA
 7 Const NodeEntityRef = 5      ‘实体引用
 8 Const NodeEntity = 6         ‘实体
 9 Const NodeCommand = 7        ‘处理指令
10 Const NodeComment = 8        ‘注释
11 Const NodeDOCTYPE = 10       ‘文档类型
12  
13 ‘遍历文件 NameList.xml
14 WScript.Echo VbCrLf
15 WScript.Echo "开始遍历文件 NameList.xml"
16 Dim XDoc
17 Set XDoc = CreateObject("MSXML2.DOMDocument")
18 XDoc.Load("NameList.xml")
19 ReadXmlNode xdoc, 0
20 WScript.Echo "遍历完毕"
21  
22 ‘递归遍历结点信息 x：结点 lvl：层，从0开始计算
23 Sub ReadXmlNode(x, lvl)
24      
25     Dim gap, child, i
26     gap = Space(lvl * 3)
27  
28     ‘WScript.Echo gap & "< - - - -"
29  
30     ‘输出结点类型
31     WScript.Echo gap & "TYPE: " & UCase(x.NodeTypeString), x.NodeName 
32      
33     ‘遍历属性
34     If x.NodeType = 1 Then 
35         Dim Alist
36         Set Alist = x.Attributes
37         For i = 0 To Alist.Length - 1
38             Dim Attr
39             Set Attr = Alist.Item(i)
40             WScript.Echo gap & "ATTRIBUTE", Attr.NodeName, "=", Attr.NodeValue
41         Next 
42     End If 
43      
44     ‘如果结点值不为空，显示结点值
45     If Not IsNull(x.NodeValue) Then _
46         WScript.Echo gap & "NODE_VALUE:", "‘" & x.NodeValue & "‘"
47  
48     ‘递归遍历子结点
49     If x.HasChildNodes Then 
50         For Each Child In x.ChildNodes
51             ReadXmlNode child, lvl + 1
52         Next
53     End If 
54      
55     ‘WScript.Echo gap & ">"
56  
57 End Sub