Læsning af et XML dokument

Følgende kode illustrere mulighederne:

Imports System
Imports System.Xml

Class MainClass

    Public Shared Sub Main(ByVal args As String())
        Dim doc As XmlDocument = New XmlDocument
        doc.Load("C:\z.xml")
        doc.Save(Console.Out)
        Console.WriteLine
        Dim elements As XmlNodeList = doc.GetElementsByTagName("License")
        For Each element As XmlNode In elements
            Dim subelements As XmlNodeList = element.ChildNodes
            For Each subelement As XmlNode In subelements
                Console.WriteLine(subelement.Name + " = " + subelement.FirstChild.Value)
            Next
            Dim add As XmlNode = doc.CreateElement("Noget")
            add.AppendChild(doc.CreateTextNode("bare noget"))
            element.AppendChild(add)
        Next
        doc.Save(Console.Out)
        Console.WriteLine
    End Sub
End Class

Output:

<?xml version="1.0" encoding="IBM437"?>
<License>
  <Date>23/12/2004</Date>
  <Hash>iuewr798w7e98rasdf234</Hash>
</License>
Date = 23/12/2004
Hash = iuewr798w7e98rasdf234
<?xml version="1.0" encoding="IBM437"?>
<License>
  <Date>23/12/2004</Date>
  <Hash>iuewr798w7e98rasdf234</Hash>
  <Noget>bare noget</Noget>
</License>

Det var et stort hjælp. Nu tror jeg at jeg kan komme videre. Tak Arne!