Mega Code Archive
XmlTextReader
<![CDATA[
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>
]]>