XmlTextReader не работает должным образом

Question

Я пытаюсь создать цикл, который читает XML-документ для элемента с определенным идентификационным номером, а затем сохраняет дочерние узлы этого элемента в виде переменных, которые затем используются для заполнения меток на моей странице.

Sub LinkButton_Click(sender As Object, e As CommandEventArgs)
    Dim selected = Convert.ToInt32(e.CommandArgument)
    System.Diagnostics.Debug.WriteLine("selected")
    System.Diagnostics.Debug.WriteLine (selected)

    Dim selectedXML = New XmlTextReader(MapPath("xml/questions.xml"))

    selectedXML.ReadToFollowing("Question")
    If selectedXML.HasAttributes Then
        selectedXML.MoveToNextAttribute()

        Do While selectedXML.MoveToNextAttribute()

            Dim compareID = selectedXML.Value
            System.Diagnostics.Debug.WriteLine("compareID:")
            System.Diagnostics.Debug.WriteLine(compareID)

            If compareID = selected Then
                selectedXML.ReadToFollowing("A")
                sA.Text = selectedXML.Value
                System.Diagnostics.Debug.WriteLine("SA:")
                System.Diagnostics.Debug.WriteLine(sA.Text)

                selectedXML.ReadToFollowing("Q")
                sQ.Text = selectedXML.Value
                System.Diagnostics.Debug.WriteLine("SQ:")
                System.Diagnostics.Debug.WriteLine(sQ.Text)

                selectedXML.ReadToFollowing("Download")
                sDL.Text = selectedXML.Value
                System.Diagnostics.Debug.WriteLine("SDL:")
                System.Diagnostics.Debug.WriteLine(sDL.Text)

                selectedXML.Close()
            Else
                selectedXML.ReadToNextSibling("Question")
            End If
        Loop
    Else
        System.Diagnostics.Debug.WriteLine("error")
        selectedXML.Close()
    End If

End Sub

Документ XML (избыточные узлы идентификатора используются при получении номера идентификатора, но в конечном итоге будут удалены. Текущий код ищет только атрибут "id". Это возможно, поскольку он чувствителен к регистру)

<?xml version="1.0" encoding="utf-8" ?>
<Questions>

  <Question id="1">
    <ID>1</ID>
    <Category>Troubleshooting</Category>
    <Keywords>tags troubleshooting troubleshoot slow computer slowly</Keywords>
    <Q>Why is my computer so slow?</Q>
    <A>You have bad habits and your computer sucks</A>
    <Download>None.</Download>
  </Question>

  <Question id="2">
    <ID>2</ID>
    <Category>Troubleshooting</Category>
    <Keywords>tags troubleshooting troubleshoot slow computer slowly</Keywords>
    <Q>Why is my computer so slow? (again)</Q>
    <A>You have bad habits and your computer sucks</A>
    <Download>None.</Download>
  </Question>

  <Question id="3">
    <ID>3</ID>
    <Category>Microsoft Office</Category>
    <Keywords>tags microsoft office outlook calendar room rooms meeting schedule scheduling reserving reserve</Keywords>
    <Q>How do I reserve rooms and set up meetings?</Q>
    <A>View the following Document:</A>
    <Download><![CDATA[<a href="doc/new_employee/new_employee_agreement.doc">New Employee Software and Hardware Agreement</a>]]></Download>
  </Question>

</Questions>

Кнопка ссылки передала переменную "selected" в качестве командного аргумента. В моей консоли я вижу, что это работает правильно. т. е. щелчок по первому элементу тщательно устанавливает "selected" равным 1. У меня проблемы с чтением XML и передачей атрибута id в качестве compareID переменная. Независимо от того, что я делаю, я, кажется, всегда получаю compareID=0,

Во-вторых, цикл, кажется, работает бесконечно. Как я могу запрограммировать считыватель на остановку, когда он достигает конца документа после того, как не найдет совпадений.

Answer 1

Используйте Using Statement для автоматического закрытия XmlReader даже в случае исключений.

Не используйте класс XmlTextReader, не рекомендуется начинать с.NET Framework 2.0. Вместо этого используйте XmlReader.

Обратите внимание, что мы должны обратиться к узлам Q, A а также Download в том порядке, в котором они расположены в xml-документе.

Упрощенный код:

Using selectedXML = XmlReader.Create(MapPath("xml/questions.xml"))
    While selectedXML.ReadToFollowing("Question") ' Iterates through Question nodes.

        Dim compareID = selectedXML.GetAttribute("id")

        If compareID IsNot Nothing Then                
            Debug.WriteLine("compareID: " + compareID)

            If compareID = selected Then
                selectedXML.ReadToFollowing("Q")
                sQ.Text = selectedXML.ReadElementContentAsString
                Debug.WriteLine("SQ: " + sQ.Text)

                selectedXML.ReadToFollowing("A")
                sA.Text = selectedXML.ReadElementContentAsString
                Debug.WriteLine("SA: " + sA.Text)

                selectedXML.ReadToFollowing("Download")
                sDL.Text = selectedXML.ReadElementContentAsString
                Debug.WriteLine("SDL: " + sDL.Text)

                Exit While
            End If
        Else
            Debug.WriteLine("Error: attribute id not found")
        End If

    End While
End Using ' Close XmlReader