Indlæsning af XML

Jeg ville gerne have noget der hed firstParent eller lign.

?

Det kan sikert laves smartere men det her virker:

Imports System
Imports System.Xml

Class MainClass
    Public Shared Sub Main(ByVal args As String())
        Dim doc As XmlDocument = New XmlDocument
        doc.Load("C:\test.xml")
        Dim elements As XmlNodeList = doc.GetElementsByTagName("Punkt")
        For Each element As XmlNode In elements
            Dim subelements As XmlNodeList = element.ChildNodes
            Dim one As Boolean = False
            For Each subelement As XmlNode In subelements
                If subelement.Name = "Menu" Then
                    If subelement.FirstChild.Value = "side1" Then
                        one = True
                    End If
                End If
                If subelement.Name = "Nyhed" Then
                    If one Then
                        Console.WriteLine(subelement.FirstChild.Value)
                    End If
                End If
            Next
        Next
    End Sub
End Class

Smukkere kode ser man sjældent...!

Jeg takker!