Imports System.Xml
Imports System.Xml.Serialization
Imports System.IO
Public Class MainClass
Public Shared Sub Main()
Dim myXmlSettings As New XmlReaderSettings()
Using readMovieInfo As XmlReader = XmlReader.Create("test.xml", myXmlSettings)
While readMovieInfo.Read()
ShowXmlNode(readMovieInfo)
While readMovieInfo.MoveToNextAttribute()
ShowXmlNode(readMovieInfo)
End While
End While
End Using
End Sub
Shared Private Sub ShowXmlNode(ByVal reader As XmlReader)
If reader.Depth > 0 Then
For depthCount As Integer = 1 To reader.Depth
Console.Write(" ")
Next
End If
If reader.NodeType = XmlNodeType.Whitespace Then
Console.WriteLine("Type: {0} ", reader.NodeType)
ElseIf reader.NodeType = XmlNodeType.Text Then
Console.WriteLine("Type: {0}, Value: {1} ",reader.NodeType,reader.Value)
Else
Console.WriteLine("Name: {0}, Type: {1}, AttributeCount: {2}, Value: {3} ", _
reader.Name, reader.NodeType,reader.AttributeCount, _
reader.Value)
End If
End Sub
End Class
|