使用DOM创建XML

在XML技术时，经常有人向我询问是否可以通过DOM直接生成一个全新的XML文件。答案是肯定的，而且这一过程可以通过编程实现。今天，我将以VB和MSXML的COM接口的DOM为例，详细解释这个过程。

我要强调的是，我使用的MSXML版本是IE5自带的，版本号为5.0.2919.3800。微软的早期版本接口与新版可能存在差异，因此在实际编程时，请务必查阅相应的接口和说明。

如果你对VB和COM不太熟悉，可能会觉得有些吃力。但相比其他语言，VB的实现方式应该是较为简单明了的。

接下来，我们需要声明将要使用的对象变量，包括：

Dim tempdoc As MSXML.DOMDocument

Dim tempnode As MSXML.IXMLDOMNode

Dim tempelement As MSXML.IXMLDOMElement

Dim tempattribute As MSXML.IXMLDOMElement

Dim root As MSXML.IXMLDOMElement

然后，我们可以开始生成XML DOMDocument对象：

Set tempdoc = New MSXML.DOMDocument

接着，我们创建一个根节点并将其设置为文档的根元素：

Set root = tempdoc.createElement("MyRoot")

Set tempdoc.documentElement = root

随后，我们生成一个子节点并添加到根节点上，同时为这个节点设置一个属性：

Set tempnode = tempdoc.createNode(MSXML.NODE_ELEMENT, "MyNode", "")

tempnode.Text = "MyNodeValue"

root.appendChild tempnode

之后，我们获取元素节点的接口，并为其添加属性：

Set tempelement = tempnode

tempelement.setAttribute "MyAttribute", "MyAttributeValue"

我们将生成的XML文件写入到文件中：

Open "MyXMLFile.xml" for output as 1

Print 1, root.XML

Close 1

这样，我们就完成了一个简单的XML文件生成过程。生成的XML文件内容如下：

MyRoot（根节点）下有一个名为“MyNode”的子节点，其值为“MyNodeValue”，并且该节点具有一个名为“MyAttribute”的属性，其值为“MyAttributeValue”。这就是通过编程使用DOM直接生成XML文件的基本过程。值得注意的是，MSXML还提供了非DOM的接口，可以根据实际需求选择使用。