在Visual Basic 6.0中操纵XML文件

DOMDocument 类

　　文档对象模型(DOM)使用了一系列相应的对象描述了XML文档的等级状态，DOMDocument类是一个描绘XML文档的DOM结构的MSXML类。

　　DOMDocument类仅仅提供了很少的几个有用的属性和方法。Load方法载入一个xml文件，loadxml方法将字符串作为xml数据添加到对象中。例如，下面的代码就将一个小的xml文件添加到名为xml_document的文档中。

Dim xml_document As New DOMDocument

xml_document.loadXML _
"＜Person＞" & vbCrLf & _
" ＜FirstName＞Rod＜/FirstName＞" & vbCrLf & _
" ＜LastName＞Stephens＜/LastName＞" & vbCrLf & _
"＜/Person＞"

　　DOMDocument的xml属性返回文档的xml描述，可以显示这些返回值看看这些文档究竟是什么样子，也可以将它存储为一个文件，但这完全不必要，因为DOMDocument对象的save方法已经自动将他们存储了。

　　DOMDocument对象的documentElement属性表示文档数据的根结点，通常情况下操作XML文档都从这里开始。

　　DOMDocument提供了几种创建新节点的方法。CreateElement方法为文档创建一个新的元素节点，其他创建节点的方法有createAttribute, createProcessingInstruction, 和 createTextNode，在这里就不一一介绍了。

　　IXMLDOMNode类

　　IXMLDOMNode类描述了一个节点，该类提供了一系列用于搜索和操纵XML文档的属性和方法。
selectSingleNode 方法用于搜索指定节点的后代，用于搜索指定节点路径的语言称为XPATH，XPATH非常棘手，本文就不详细说明其规范了。下面我们将介绍两个对搜索子节点有特别有用并且简单的方法。

　　在给selectsingleNode方法中输入子节点的名字，该方法将在节点的子节点进行精确匹配搜索。如果在输入的字符串前面加上".//"，那么将搜索节点的全部后代。

' Search for a child node named "LastName."
Set last_name_node = address_node.selectSingleNode("LastName")

' Search for any descendant named "LastName."
Set last_name_node = address_node.selectSingleNode(".//LastName")
　　下面列出了IXMLDOMNode对象的部分非常有用的属性：

　　　attributes.节点属性集合

　　　nodeName.节点的标记名

　　　nodeTypeString.节点的类型

　　　ownerDocument.返回DOMDocument对象包含的节点

　　　text.表示节点包含的文本内容。如果该节点包含其他节点，那么text代表了所有节点的文本内容的组合。

　　　xml.给出了节点的xml内容，例如："＜FirstName＞Rod＜/FirstName＞".

　　ChildNodes集合包含了节点的子节点。要给节点增加一个子节点，首先必须给使用DOMDocument对象的节点创建方法，然后将这个新建的节点加入到父节点的childNodes集合中。下面的代码展示了创建一个新的子节点的子程序，并使用父节点的appendChild方法将其加入到父节点中：

' Add a new node to the indicated parent node.
Private Sub CreateNode(ByVal indent As Integer, _
ByVal parent As IXMLDOMNode, ByVal node_name As String, _
ByVal node_value As String)
Dim new_node As IXMLDOMNode

' Create the new node.
Set new_node = parent.ownerDocument.createElement(node_name)

' Set the node's text value.
new_node.Text = node_value

' Add the node to the parent.
parent.appendChild new_node
End Sub
SaveValues 程序
　　现在我们可以使用XML创建一个简单的程序（如图1），其值存储到XML文件中，在程序开始运行时，程序从VALUE.XML文件中加载数据，在程序运行结束时，将程序中的现行值存入VALUE.XML文件中。


　　下面的代码是显示了VALUE.XML文件的结构:

＜Values＞
　＜FirstName＞Rod＜/FirstName＞
　＜LastName＞Stephens＜/LastName＞
　＜Street＞1234 Programmer Place＜/Street＞
　＜City＞Bugsville＜/City＞
　＜State＞CO＜/State＞
　＜Zip＞80276＜/Zip＞
＜/Values＞
　　List1显示了怎样编写SaveValues，当载入表单时，form_load事件触发LoadValues子程序。
LoadValues创建了一个名为xml_document的DOMDocument对象，然后载入xml文件，使用selectSingleNode方法查找名为values的节点，然后使用GetNodeValue方法获得从value节点后代中得到的值。

　　GetNodeValue使用value节点的selectSingleNode方法寻找目标节点，如果节点不存在函数将返回一个缺省值，如果找到这个节点GetNodeValue将返回该节点的text值。对于value.xml文件中的数据节点，text仅仅是包含在节点中的文本内容。

　　当窗体卸载时触发form_unload事件，unload事件调用SaveValues子程序。程序创建一个新的DOMDocument对象，该对象创建一个新的名为value的节点，然后用文档的appendChild方法将节点添加到文档中。

　　在创建所有新的节点后，SaveValues调用DOMDocument's save方法存储新的xml文件。

　　注意这个新的文件已经覆盖了旧文件，使用DOMDocument对象无法部分改变XML文件，可以加载XML文件，然后修改其中一部分，然后保存文件，但原文件将被完全覆盖。这是一个小的缺陷，但在这时可以使用其它程序进行修改。

　　List1的最后一部分是CreateNode子程序，CreateNode 为父节点创建一个新节点并同时给这个节点赋值。在这个子程序中首先引用一个DOMDocument对象，然后使用该对象的createElement方法创建一个新的节点。

　　createNode方法设置节点的text属性，然后将节点作为子节点添加到父节点中。

List1:

Option Explicit

Private m_AppPath As String

Private Sub Form_Load()
' Get the application's startup path.

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!