使用Visual Basic操纵XML文档[1]|中文方案文档站(提供各类方案下载,WORD文档下载,范文,案例等)

使用visual basic操纵xml文档

中国航空信息中心吴斌

对于xml文档，插入、修改、检索等数据操作工作可以通过一个xml解析器及其列举的一系列对象来完成。 microsoft的xml解析器驻留在名为msxml.dll的动态链接库文件中。因为msxml是一个com对象，所以可以在任何兼容activex的环境中使用它，如在vb和 asp中。本文介绍在visual basic中操纵xml文档的具体方法。

装载xml文档

新建一个vb standard exe工程项目。在form1中添加一个commandbutton控件，将其name和caption属性分别设为cmdload和load xml。为了使用msxml解析器，必须事先设置工程项目对msxml.dll的引用。选择project菜单的 references命令，选中microsoft xml, version 2.0或更高版本。将下列代码加入 cmdload_click事件：

option explicit

dim xml as domdocument

private sub cmdload_click()

set xml = new domdocument

call xml.load(app.path ＆ “flight.xml")

' flight.xml为描述航班信息的xml文档

end sub

运行该程序，点击load xml按钮即可装载xml文档。载入的xml文档包含一个按照树状结构排列的节点对象集合，顶层节点或根节点是 documentelement。每个节点都有一组属性和方法，每个节点可以包含一个或多个子节点，当然也可以不包含任何节点。必须先取得对根节点的引用才能操纵xml文档。在 cmdload_click事件代码后添加下列代码：

dim root as ixmldomelement

set root = xml.documentelement

遍历节点集合

可以使用visual basic的for each...next循环结构在节点对象集合中循环。在cmdload_click事件代码后添加下列代码：

dim node as ixmldomnode

for each node in root.childnodes

debug.print node.text

运行后点击load xml按钮，将会在immediate窗口中看到如下输出结果：

2000年10月15日

北京首都国际香港赤邋角中国国际航空公司波音公司

b747 13:00 15:55

上海浦东法兰克福美茵塔什干尤日内汉莎航空公司空中客车工业公司

a330 21:45 01:45

注意，每个节点的text属性不仅包含自身的属性值，还包含其下属所有子节点的text属性值。一般情况下，不会同时操作所有的节点。可以使用 selectnodes方法取得对一个特定的节点子集的引用，selectnodes方法返回一个 ixmldomnodelist对象。在cmdload_click事件代码后添加下列代码：

dim flightnodes as ixmldomnodelist

set flightnodes = root.selectnodes(“航班")

for each node in flightnodes

debug.print node.selectsinglenode

使用Visual Basic操纵XML文档[1]

[入库：2005年8月18日] [更新：2007年3月24日]

使用visual basic操纵xml文档