能遍历出一个xml文档的所有的节点。
Module Module1
Sub Main()
Dim iReturn As Integer
Dim myXmlDocument As New XmlDocument
myXmlDocument.Load("books.xml")
Dim myNodes As XmlNode = myXmlDocument.DocumentElement
ListNode(myNodes)
myXmlDocument = Nothing
Console.WriteLine("List Over!")
End Sub
Sub ListNode(ByVal oNodes As XmlNode)
Dim iAttrib, iNode, iChildNode As Integer
If oNodes.ChildNodes(0).Name = "#text" Then
Console.WriteLine(oNodes.Name & "= " & oNodes.InnerText)
Else
For iAttrib = 0 To oNodes.Attributes.Count - 1
Console.WriteLine("Attributes: " & oNodes.Attributes(iAttrib).Name & "= " & oNodes.Attributes(iAttrib).Value)
Next
For iNode = 0 To oNodes.ChildNodes.Count - 1
If oNodes.ChildNodes.Count >= 2 Then
Console.WriteLine("Call ListNode by self!")
ListNode(oNodes.ChildNodes(iNode))
Else
ListNode(oNodes.ChildNodes(0))
End If
Next
End If
End Sub
End Module