VB.Net - XML - 比较子元素名称以填充文本框

Question

我正在 VB.Net 中开发一个应用程序。我是初学者，我正在努力解决这个问题：

我想将一个子元素的名称读入我的 xml 文件并进行比较。如果这个值匹配，我将用这个元素的值填充一个文本框。请在下面找到我的程序的这一部分（经过改进编辑）：

Private Sub ReadXMLFile(path As String)
Dim reader As XmlTextReader = New XmlTextReader(path)
Dim elements As ArrayList = New ArrayList

Do While (reader.Read())
    Select Case reader.Name
        Case "DistributorName"
            Do While (reader.Read())
                If XmlNodeType.Text Then
                    txtDistrName.Text = reader.Value
                End If
            Loop
    End Select
End Sub

仅当元素名称为“DistributorName”时，我必须使用元素的值填充文本框 txtDistrName。

感谢 Sam Rad 的帮助，现在一切正常。

何塞。

Answer 1

您需要更改您的Case 语句。我想你把它误认为If：

Private Sub ReadXMLFile(path As String)
    Dim reader As XmlTextReader = New XmlTextReader(path)

    Do While (reader.Read())
        Select Case reader.Name
            Case "DistributorName" // <------ Here
                txtDistrName.Text = reader.Value
        End Select
    Loop
end sub

对于您的第二个问题，我已将循环更改为：

    Dim reader As XmlTextReader = New XmlTextReader("yourXmlPath")
    reader.WhitespaceHandling = WhitespaceHandling.None

    Do While (reader.Read())
        Select Case reader.NodeType
            Case XmlNodeType.Element
                If reader.Name = "DistributorName" Then
                    txtDistrName.Text = reader.ReadElementContentAsString()
                End If                          
        End Select
    Loop