vb System.Xml.XmlTextReader类(方法)实例源码

' 导入命名空间
Imports System.Xml.Serialization, System.IO
Imports System.Xml
Public Class Tester
    Public Shared Sub Main
    
      Dim myXMLTextReader As New XmlTextReader("doc.xml")
      myXMLTextReader.ReadStartElement("UserChoice")
      Do While myXMLTextReader.Read()
         If myXMLTextReader.Name = "UserChoice" Then Exit Do

         Console.WriteLine(myXMLTextReader.ReadOuterXml)

      Loop
      myXMLTextReader.Close()

    End Sub

End Class