Imports System
Imports System.IO
Imports System.Xml
public class Sample
public shared sub Main()
Dim xmlFrag as string = " " & _
" C#" & _
" XML" & _
""
Dim nt as NameTable = new NameTable()
Dim nsmgr as XmlNamespaceManager = new XmlNamespaceManager(nt)
Dim context as XmlParserContext = new XmlParserContext(nothing, nsmgr, nothing, XmlSpace.None)
Dim reader as XmlTextReader = new XmlTextReader(xmlFrag, XmlNodeType.Element, context)
reader.WhitespaceHandling = WhitespaceHandling.None
while (reader.Read())
select case reader.NodeType
case XmlNodeType.Element:
Console.WriteLine("{0}: <{1}>", reader.XmlLang, reader.Name)
case XmlNodeType.Text:
Console.WriteLine("{0}: {1}", reader.XmlLang, reader.Value)
case XmlNodeType.EndElement:
Console.WriteLine("{0}: ", reader.XmlLang, reader.Name)
end select
end while
reader.Close()
end sub
end class