使用DOM创建XML

　　我以前在介绍xml和让别人试着使用dom时，不只一个人问过我用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文件内容：

　　 mynodevalue

　　在msxml中也有非dom的接口可以用，这就要看大家自己的用法了。