|
我以前在介绍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文件内容：
|
闂傚倸鍊峰ù鍥Υ閳ь剟鏌涚€ｎ偅宕岄柡宀€鍠栭、娑樷堪閸愮偓姣夋俊鐐€戦崕鏌ュ垂閸ф钃熼柣鏃囥€€閸嬫挸鈽夊▍顓т簼閹便劑宕惰閺€鑺ャ亜閺囩偞顥為悗姘炬嫹闂傚倸鍊风粈渚€骞栭銈嗗仏妞ゆ劧绠戠壕鍧楁煕閹邦垼鍤嬮柤鏉挎健閺屾稑鈽夊▎鎰▏缂傚倷璁查弲鐘诲蓟閻旂⒈鏁嶆繝濠傚枤閺嗩厼顪冮妶鍐ㄥ姷闁瑰嚖鎷�>>
正在阅读：使用DOM创建XML使用DOM创建XML
2004-02-14 09:33
出处：PConline
责任编辑：zyq
