Visual Basic.NET How to Program (PDF)

844 Extensible Markup Language (XML) Chapter 18
45 TabOutput(depth)
46 txtOutput.Text &= "" & _
47 vbCrLf
48
49 ' if empty element, decrease depth
50 If reader.IsEmptyElement Then
51 depth -= 1
52 End If
53
54 Case XmlNodeType.Comment ' if Comment, display it
55 TabOutput(depth)
56 txtOutput.Text &= "" & vbCrLf
58
59 Case XmlNodeType.Text ' if Text, display it
60 TabOutput(depth)
61 txtOutput.Text &= vbTab & reader.Value & vbCrLf
62
63 ' if XML declaration, display it
64 Case XmlNodeType.XmlDeclaration
65 TabOutput(depth)
66 txtOutput.Text &= "" & vbCrLf
68
69 ' if EndElement, display it and decrement depth
70 Case XmlNodeType.EndElement
71 TabOutput(depth)
72 txtOutput.Text &= "/" & _
73 vbCrLf
74
75 depth -= 1
76
77 End Select
78
79 End While
80
81 End Sub ' New
82
83 ' Visual Studio .NET generated code
84
85 ' insert tabs
86 Private Sub TabOutput(ByVal number As Integer)
87 Dim i As Integer
88
89 For i = 0 To number - 1
90 txtOutput.Text &= vbTab
91 Next
92
93 End Sub ' TabOutput
94
95 End Class ' FrmXmlReaderTest
Fig. 18.7 XmlNodeReader iterates through an XML document (part 2 of 3).