使用Visual Basic操纵XML文档
de.Text
End If
If node.nodeName< >vbNullString And node.nodeName
< >“＃text" Then
Debug.PrintString
(tabLevel,Chr＄(9))＆“< /"＆node.nodeName＆“ >"
End If
End Sub
然后在Form1中加入第2个CommandButton控件，将其 Name和Caption属性分别设为cmdPrint和Print。将下列代码加入事件cmdPrint_Click中：
Private Sub cmdPrint_Click()
If Not xml Is Nothing Then
Call PrettyPrint
(xml.documentElement)
End If
End Sub
运行程序。首先点击Load XML按钮加载flight.xml，然后点击Print按钮。在Immediate窗口中可以看到层次分明、易于阅读的输出结果。子过程 PrettyPrint在documentElement的子节点中循环，打印每个节点的nodeName属性值，而每个子节点又递归调用PrettyPrint。XML文档内各节点内在的相似性是XML最具吸引力的特性，每个子节点都与其父节点有着相同的属性和方法（尽管各自的内容通常不同），这就使得为同一文档中的所有或部分节点编写某种规则变得相对简单。
修改节点内容
如同修改数据库中的记录一样，也可以修改XML文档中节点的内容。下列代码修改了flight.xml文档中“发布日期”节点的Text属性值：
Set node = root.selectSingleNode(“发布日期")
If Not node Is Nothing Then
node.Text = “2000年10月20日"
End If
修改了文档内容之后，可以使用Save方法保存修改后的文档。Save方法可以将XML文档保存为文件、数据流或ASP的Response对象。Save方法的用法如下：
xml.save App.Path ＆ “flightupdated.xml"
将上面两段代码添加在cmdLoad_Click事件中，运行程序。点击Load XML按钮，在程序工作目录中会增加一个新文件flightupdated.xml。在IE5 中打开该文件，可以看到“发布日期”标记的文本已经被改为“2000年10月20日”。
在实际应用中，XML可以被用作数据传输格式、可搜索数据库、可定制的数据存储方式和显示信息的数据源（需要XSL或如VB这样的编程语言的帮助）。因为msxml是一个COM对象，所以可以在ASP页中使用它的实例，然后方便地使用VBScript或JScript编程来操纵它。
End If
If node.nodeName< >vbNullString And node.nodeName
< >“＃text" Then
Debug.PrintString
(tabLevel,Chr＄(9))＆“< /"＆node.nodeName＆“ >"
End If
End Sub
然后在Form1中加入第2个CommandButton控件，将其 Name和Caption属性分别设为cmdPrint和Print。将下列代码加入事件cmdPrint_Click中：
Private Sub cmdPrint_Click()
If Not xml Is Nothing Then
Call PrettyPrint
(xml.documentElement)
End If
End Sub
运行程序。首先点击Load XML按钮加载flight.xml，然后点击Print按钮。在Immediate窗口中可以看到层次分明、易于阅读的输出结果。子过程 PrettyPrint在documentElement的子节点中循环，打印每个节点的nodeName属性值，而每个子节点又递归调用PrettyPrint。XML文档内各节点内在的相似性是XML最具吸引力的特性，每个子节点都与其父节点有着相同的属性和方法（尽管各自的内容通常不同），这就使得为同一文档中的所有或部分节点编写某种规则变得相对简单。
修改节点内容
如同修改数据库中的记录一样，也可以修改XML文档中节点的内容。下列代码修改了flight.xml文档中“发布日期”节点的Text属性值：
Set node = root.selectSingleNode(“发布日期")
If Not node Is Nothing Then
node.Text = “2000年10月20日"
End If
修改了文档内容之后，可以使用Save方法保存修改后的文档。Save方法可以将XML文档保存为文件、数据流或ASP的Response对象。Save方法的用法如下：
xml.save App.Path ＆ “flightupdated.xml"
将上面两段代码添加在cmdLoad_Click事件中，运行程序。点击Load XML按钮，在程序工作目录中会增加一个新文件flightupdated.xml。在IE5 中打开该文件，可以看到“发布日期”标记的文本已经被改为“2000年10月20日”。
在实际应用中，XML可以被用作数据传输格式、可搜索数据库、可定制的数据存储方式和显示信息的数据源（需要XSL或如VB这样的编程语言的帮助）。因为msxml是一个COM对象，所以可以在ASP页中使用它的实例，然后方便地使用VBScript或JScript编程来操纵它。