XML文档对象模型----使用XmlNodeReader

XmlDocument myXmlDocument = new XmlDocument();
myXmlDocument.Load (arg);
...
XmlNodeReader myXmlNodeReader = new XmlNodeReader (myXmlDocument.SelectSingleNode("bookstore/book[3]"));
FormatXml (myXmlNodeReader);
...
myXmlNodeReader = new XmlNodeReader (myXmlDocument.SelectSingleNode("bookstore/book[2]"));
myXmlNodeReader.Read();
Console.WriteLine (myXmlNodeReader.ReadInnerXml());

Dim myXmlDocument as XmlDocument  = new XmlDocument()
myXmlDocument.Load (arg)
...
Dim myXmlNodeReader as XmlNodeReader  = new XmlNodeReader (myXmlDocument.SelectSingleNode("bookstore/book[3]"))
FormatXml (myXmlNodeReader)
...
myXmlNodeReader = new XmlNodeReader (myXmlDocument.SelectSingleNode("bookstore/book[2]"))
myXmlNodeReader.Read()
Console.WriteLine (myXmlNodeReader.ReadInnerXml())

private static void FormatXml (XmlNodeReader reader)
{
while (reader.Read())
{
switch (reader.NodeType)
{
case XmlNodeType.ProcessingInstruction:
Format (reader, "ProcessingInstruction");
break;
case XmlNodeType.DocumentType:
Format (reader, "DocumentType");
break;
case XmlNodeType.Document:
Format (reader, "Document");
break;
case XmlNodeType.Comment:
Format (reader, "Comment");
break;
case XmlNodeType.Element:
Format (reader, "Element");
while(reader.MoveToNextAttribute())
{
Format (reader, "Attribute");
}
break;
case XmlNodeType.Text:
Format (reader, "Text");
break;
case XmlNodeType.Whitespace:
Format (reader, "Whitespace");
break;
}
}
}
// Format the output
private static void Format(XmlNodeReader reader, String NodeType)
{
// Format the output
for (int i=0; i < reader.Depth; i++)
{
Console.Write('\t');
}
Console.Write(NodeType + "<" + reader.Name + ">" + reader.Value);
Console.WriteLine();
}

private sub FormatXml (reader as XmlNodeReader)
while (reader.Read())
select case reader.NodeType
case XmlNodeType.ProcessingInstruction:
Format (reader, "ProcessingInstruction")
case XmlNodeType.DocumentType:
Format (reader, "DocumentType")
case XmlNodeType.Document:
Format (reader, "Document")
case XmlNodeType.Comment:
Format (reader, "Comment")
case XmlNodeType.Element:
Format (reader, "Element")
while (reader.MoveToNextAttribute())
Format (reader, "Attribute")
end while
case XmlNodeType.Text:
Format (reader, "Text")
case XmlNodeType.Whitespace:
Format (reader, "Whitespace")
end select
end while
end sub
'Format the output
private sub Format (reader as XmlNodeReader, NodeType as String)
Dim value as String = System.String.Empty
Dim i as long
for i=0  to (reader.Depth - 1)
Console.Write(Chr(9))
Next
if (reader.HasValue)
value = reader.Value
end if
Console.WriteLine(NodeType & "<" & reader.Name & ">" + value)
end sub