Zitat:

<?xml version="1.0" encoding="UTF-16" ?> - <IGCMarkupEntityDocument xmlns="http://www.infograph.com" majorversion="2" minorversion="8" revision="0" author="User1" page="0" deleted="false"> - <Line id="0" time="1357553315" guid="C5767BCB3B45DF4F84D1D2884A47D6CD" linewidth="0.1" linestyle="solid" color="255|0|255" hyperlink="" comment=""> - <PointList pointcount="2"> - <Point> <x>18665.2</x> <y>17086.8</y> </Point> - <Point> <x>20173.9</x> <y>17086.8</y> </Point> </PointList> </Line> </IGCMarkupEntityDocument>

Private Sub xmlReader(ByVal xmlString As String)
        Dim Ausgabe As String = xmlString
        Try
            Dim m_xmld As XmlDocument
            Dim m_nodelist As XmlNodeList
            Dim m_node As XmlNode
            'Create the XML Document
            m_xmld = New XmlDocument()
            'Load the Xml file
            m_xmld.LoadXml(xmlString)
            'Get the list of name nodes 
            m_nodelist = m_xmld.SelectNodes("/IGCMarkupEntityDocument")
            'Loop through the nodes
            For Each m_node In m_nodelist
                'Get the Attribute Value
                Dim MarkupAttribute = m_node.Attributes.GetNamedItem("PointList" & _
                  "").Value
                'Get the first Element Value
                Dim XValue = m_node.ChildNodes.Item(0).InnerText
                'Get the lastName Element Value
                Dim YValue = m_node.ChildNodes.Item(1).InnerText
                'Write Result to the Console
                Ausgabe = Ausgabe & vbcrlf & “X “ & Xvalue.toString & “ Y “ & _
                  Yvalue.ToString
            Next
        Catch 
 
        End Try
            MsgBox(Ausgabe)
    End Sub

Danke für die Hilfe

Gruß Christian