XmlTextReader: XmlNodeType Element, Text and EndElement
Imports System Imports System.Drawing Imports System.Data Imports System.IO Imports System.Collections Imports System.Windows.Forms Imports System.Xml Public Class MainClass Shared Sub Main() Dim filename As String = "book.xml" Dim reader As New XmlTextReader(filename) reader.MoveToContent() Dim addressData As Collection, elementName As String Do While reader.Read Select Case reader.NodeType Case XmlNodeType.Element Console.WriteLine("XmlNodeType.Element " & reader.Name ) Case XmlNodeType.Text Console.WriteLine("XmlNodeType.Text " & reader.Value ) Case XmlNodeType.EndElement Console.WriteLine("XmlNodeType.EndElement " & reader.Name ) End Select Loop End Sub End Class '<?xml version = "1.0"?> '<books xmlns = "x-schema:book.xdr"> ' <book> ' <title>C# How to Program</title> ' </book> ' <book> ' <title>Java How to Program, 4/e</title> ' </book> ' <book> ' <title>Visual Basic .NET How to Program</title> ' </book> ' <book> ' <title>Advanced Java 2 Platform How to Program</title> ' </book> ' <book> ' <title>Python How to Program</title> ' </book> '</books>