01.Dim stream As System.IO.StreamReader
02.
03. stream = New StreamReader("cizen.xml")
04. Dim reader As XmlTextReader = New XmlTextReader(stream)
05.
06. Do While (reader.Read())
07. Select Case reader.NodeType
08. Case XmlNodeType.Element
09. Console.Write("<" + reader.Name)
10. If reader.HasAttributes Then
11. While reader.MoveToNextAttribute()
12.
13.
14. Console.Write(" {0}='{1}'", reader.Name, reader.Value)
15. End While
16. End If
17. Console.WriteLine(">")
18. Case XmlNodeType.Text
19. Console.WriteLine(reader.Value)
20.
21. Case XmlNodeType.EndElement
22. Console.Write("</" + reader.Name)
23. Console.WriteLine(">")
24. End Select
25.
26. Loop
