Reading an XML file example
Module MainModule Sub Main() Dim MyReader As New Xml.XmlTextReader("c:\simple.xml") Dim strOutput As String, intCount As Integer Do While MyReader.Read Select Case MyReader.NodeType Case Xml.XmlNodeType.Element System.Console.WriteLine(MyReader.Name) If MyReader.HasAttributes Then For intCount = 0 To MyReader.AttributeCount - 1 MyReader.MoveToAttribute(intCount) System.Console.WriteLine(MyReader.Name & "=" & MyReader.Value) Next End If Case Xml.XmlNodeType.Text System.Console.WriteLine(MyReader.Value) Case Xml.XmlNodeType.EndElement System.Console.WriteLine(MyReader.Name) End Select Loop End Sub End Module