使用 XmlDocument 类

 使用 XmlDocument 类

　　XmlDocument 将整个 XML 文档都存放在内存中，并使其节点、元素和属性可用于编程处理。XmlDocument 类可以：

　　1、从本地存储的文件中读取 XML，并使用流对象 XmlReader 和 TextReader。

　　2、将 XML 写入本地存储的文件，并使用流对象 XmlWriter 和 TextWriter

　　代码演示

　　以下代码演示了如何使用 XmlDocument 创建 XML 文件。这是 XML 文件。

<?xml version="1.0" encoding="ISO-8859-1" ?>
- <Products Date="2003-05-09 00:00:00">
<Product Name="Butter" Price="3.95" />
</Products>
　　这是用于生成 XML 文件的代码：

Dim oXMLDOM As New XmlDocument
' 创建 Products 根元素
Dim oRoot As XmlElement = oXMLDOM.CreateElement("Products")
oXMLDOM.appendChild(oRoot)
' 在 Products 级别设置日期和时间
Dim oProductsInformation As XmlAttribute = oXMLDOM.CreateAttribute("Date")
oProductsInformation.InnerText = Date.Today.ToString
oRoot.SetAttributeNode(oProductsInformation)
' 创建新的 Product 元素
Dim oProduct As XmlElement = oXMLDOM.CreateElement("Product")
oRoot.appendChild(oProduct)
' 设置 Product 属性（Name 和 Price）
Dim oProductName As XmlAttribute = oXMLDOM.CreateAttribute("Name")
oProductName.InnerText = "Butter"
oProduct.setAttributeNode(oProductName)
Dim oProductPrice As XmlAttribute = oXMLDOM.CreateAttribute("Price")
oProductPrice.innerText = "3.95"
oProduct.SetAttributeNode(oProductPrice)
'创建 XML 处理指令。
Dim oXMLPI As XmlProcessingInstruction =
oXMLDOM.CreateProcessingInstruction("xml", "version='1.0'
encoding='ISO-8859-1'")
'将处理指令附加到 XML 文档中。
oXMLDOM.InsertBefore(oXMLPI, oXMLDOM.ChildNodes(0))
' 保存文档
oXMLDOM.Save("/Products.xml")
　　以下示例代码演示了如何读取本地存储的 XML 文件并使用 XML 文件的内容填充 XmlDocument。

Dim xmldocument As New XmlDocument
xmldocument.Load("/Products.xml")