利用Visual Basic操作XML数据

XML工具

　　如前面的例子显示，XML语法是如此的简单以至于你可以在很短的时间作一个XML解析器，幸运的是你不必这样做，因为XML工具可以运行在各种平台上，包括可以安装了Visual Basic的Windows。

　　正是这些L工具而不是XML本身使XML变得更强大和复杂。不同的解析器使你可以某一时刻加载整个XML文档或只加载某个节点，与此相反，XML Writer 可以同时创建一个XML文档和节点。

　　DOM解析器使我们能够很方便的加载、复制、排序、修改和存储XML文件，遍历节点获得名称或属性，并给结果排序。虽然他们的功能没有真正的关系数据库强大，但DOM的这些特点依然非常有用。

　　XSD可以定义XML文档的格式，XSL扩展样式单定义了怎样将XML文档转换成其他可以在WEB浏览器中浏览的文件格式，比如HTML文件。

　　这些工具实际上比XML本身更复杂，所以所有讲解XML的书籍都花了很大的篇幅解释这些XML工具。但这超出了本文的范围，有兴趣的读者可以参考有关资料。

　　Visual Basic.Net提供了使用XML、XSL以及其他XML工具的完整工具。但不用等待VB.NET，微软XML核心服务（MSXML）版本4.0提供了从Visual Basic6.0加载和存储XML文档的工具。

　　在msdn.microsoft.com/xml/default.asp中下载最新版本的MSXML，并安装在计算机上。在Visual Basic 6.0中使用Microsoft XML V4.0象引用其他对象一样，首先在工程菜单中选择引用菜单项，选择Microsoft V4.0,单击OK,一切完成后就现在就可以在VB应用程序中添加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