Vb.net 检查是否存在同名的第二个标记,确保不存在错误

Vb.net 检查是否存在同名的第二个标记,确保不存在错误,vb.net,Vb.net,我有一个XML,其中包含两个同名列的标记,如下所示: <column> <entry>....</entry> </column> <column> <entry>....</entry> </column> 然而,我觉得这样做不舒服。是否有一种解决方案可以处理可能发生的所有异常,或者有一种解决方案可以确保不会发生错误,或者有另一种方法可以做到这一点?您可以使用for each遍

我有一个XML,其中包含两个同名列的标记,如下所示:

<column>
   <entry>....</entry>
</column>   
<column>
   <entry>....</entry>
</column> 

然而,我觉得这样做不舒服。是否有一种解决方案可以处理可能发生的所有异常,或者有一种解决方案可以确保不会发生错误,或者有另一种方法可以做到这一点?

您可以使用for each遍历所有列。演示:

Sub Main()
    Dim fileName As String = "yourXml.xml"
    Dim document As XDocument = XDocument.Load(fileName, LoadOptions.None)

    Dim columns As IEnumerable(Of XElement) = document.Root.Elements("column")

    For Each element As XElement In columns
        'get data
    Next
End Sub
或者,如果索引很重要:

Sub Main()
    Dim fileName As String = "yourXml.xml"
    Dim document As XDocument = XDocument.Load(fileName, LoadOptions.None)

    Dim columns As XElement() = document.Root.Elements("column").ToArray()

    For index = 0 To columns.Length - 1
        Dim column As XElement = columns(index)
        'get data
    Next
End Sub
Sub Main()
    Dim fileName As String = "yourXml.xml"
    Dim document As XDocument = XDocument.Load(fileName, LoadOptions.None)

    Dim columns As XElement() = document.Root.Elements("column").ToArray()

    For index = 0 To columns.Length - 1
        Dim column As XElement = columns(index)
        'get data
    Next
End Sub