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
|