对VB.NET DataTable的无组织XML响应

Imports System.Xml

Module Module1
    Sub Main()
        Dim xmlString As String = _
        "<root>" & _
        "  <item id='1'>Item 1</item>" & _
        "  <extra>Extra Info</extra>" & _
        "  <item id='2'>Item 2</item>" & _
        "</root>"

        Try
            Dim xmlDoc As New XmlDocument()
            xmlDoc.LoadXml(xmlString)

            Dim nodes As XmlNodeList = xmlDoc.SelectNodes("//item")
            For Each node As XmlNode In nodes
                Console.WriteLine("ID: " & node.Attributes("id").Value)
                Console.WriteLine("Value: " & node.InnerText)
            Next
        Catch ex As Exception
            Console.WriteLine("Error parsing XML: " & ex.Message)
        End Try
    End Sub
End Module