uses a simple XML file. It contains a perls element and also several article elements. The article element has an attribute "name" as well.
Imports System.Xml
Module Module1
Sub Main()
' Create an XML reader.
Using reader As XmlReader = XmlReader.Create(
"C:\perls.xml")
While reader.Read()
' Check for start elements.
If reader.IsStartElement() Then
' See if perls element or article element.
If reader.Name =
"perls" Then
Console.WriteLine(
"Start <perls> element.")
ElseIf reader.Name =
"article" Then
Console.WriteLine(
"Start <article> element.")
' Get name attribute.
Dim attribute As String = reader(
"name")
If attribute IsNot Nothing Then
Console.WriteLine(
" Has attribute name: {0}", attribute)
End If
' Text data.
If reader.Read() Then
Console.WriteLine(
" Text node: {0}", reader.Value.Trim())
End If
End If
End If
End While
End Using
End Sub
End Module
<?xml version=
"1.0" encoding=
"utf-8" ?>
<perls>
<article name=
"backgroundworker">
Example text.
</article>
<article name=
"threadpool">
More text.
</article>
<article></article>
<article>Final text.</article>
</perls>
Start <perls> element.
Start <article> element.
Has attribute name: backgroundworker
Text node: Example text.
Start <article> element.
Has attribute name: threadpool
Text node: More text.
Start <article> element.
Text node:
Start <article> element.
Text node: Final text.