Sub a3 '三级节点的读取
set Doc = CreateObject("Microsoft.XMLDOM")
Doc.async = false
Doc.load("2.xml")
Dim node,i,nodecount,root
Set nodeLis= Doc.getElementsByTagName("user")
nodeCount = nodeLis.length
MsgBox Date & nodeCount
For i=0 to nodeCount - 1
MsgBox nodeLis.item(i).childnodes.item(0).text&" ###### "&nodeLis.item(i).childnodes.item(1).text
Next
End Sub
<?xml version="1.0" encoding="gb2312"?>
<user_cnname>
<user>
<username>u2</username>
<cnname>n1</cnname>
</user>
<user>
<username>u2</username>
<cnname>n2</cnname>
</user>
</user_cnname>
Sub a2 '二级节点的读取
set Doc = CreateObject("Microsoft.XMLDOM")
Doc.async = false
Doc.load("2l.xml")
Dim node,i,nodecount,root
Set nodeLis= Doc.getElementsByTagName("user_cnname")
nodeCount = nodeLis.length
MsgBox Date & nodeCount
For i=0 to nodeCount - 1
'MsgBox nodeLis.item(1).text
MsgBox nodeLis.item(i).childnodes.item(0).text&" ###### "&nodeLis.item(i).childnodes.item(1).text
'&" "&nodeLis.item(i).childnodes.item(1).text
Next
End Sub
<?xml version="1.0" encoding="gb2312"?>
<user_cnname>
<username>2la</username>
<cnname>2lb</cnname>
</user_cnname>