DOM load : DOM « XML « VB.Net Tutorial

1. VB.Net Tutorial
2. XML
3. DOM

public class Test
   public Shared Sub Main
        Dim myDoc As New Xml.XmlDocument
        myDoc.Load("test.xml")

        Dim chpts As Xml.XmlNodeList = myDoc.SelectNodes("/book/chapters/chapter")
        For Each nd As Xml.XmlNode In chpts
            Console.WriteLine(nd.Attributes("id").Value)

        Next


        Dim book As Xml.XmlElement
        book = myDoc.Item("book")
        Console.WriteLine("ISBN: " & book.Attributes("isbn").Value)

        Dim title As Xml.XmlElement
        title = book.Item("title")
        Console.WriteLine(title.InnerText)

        Console.WriteLine("Authors:")
        Dim authors As Xml.XmlElement
        authors = book.Item("authors")

        For Each node As Xml.XmlNode In authors.ChildNodes
            If node.Name = "author" Then
                Console.WriteLine(node.InnerText)
            End If
        Next

        Dim chapters As Xml.XmlElement
        chapters = book.Item("chapters")

        For Each node As Xml.XmlNode In chapters.ChildNodes
            If node.Name = "chapter" Then
                Console.WriteLine(node.Attributes("id").Value)
                Console.WriteLine(node.Attributes("topic").Value)
            End If
        Next
   End Sub
End class

1
2
3
4
5
6
7
8
9
10
K
ISBN: 0-672-32549-7
Start
Authors:
D
A
E
J
1
A
2
B
3
C
4
D
5
E
6
F
7
G
8
H
9
I
10
J
K
L