WEB开发网      婵犻潧鍊婚弲顐︽偟椤栨稓闄勯柦妯侯槸閻庤霉濠婂骸浜剧紒杈ㄥ笚閹峰懘鎮╅崹顐ゆ殸婵炴垶鎸撮崑鎾趁归悩鐑橆棄闁搞劌瀛╃粋宥夘敃閿濆柊锕傛煙鐎涙ê鐏f繝濠冨灴閹啴宕熼鍡╀紘婵炲濮惧Λ鍕叏閳哄懎绀夋繛鎴濈-楠炪垽鎮归崶褍妲婚柛銊ュ缁傚秹鏁撻敓锟� ---闂佹寧娲╅幏锟�
开发学院WEB开发Xml 怎样使用DOM创建XML 阅读

怎样使用DOM创建XML

 2011-01-09 08:06:07 来源:WEB开发网 闂侀潧妫撮幏锟�闂佸憡鍨电换鎰版儍椤掑倵鍋撳☉娆嶄沪缂傚稄鎷�婵犫拃鍛粶闁靛洤娲ㄩ埀顒佺⊕閵囩偟绱為敓锟�闂侀潧妫撮幏锟�  闂佺ǹ绻楀▍鏇㈠极閻愬灚瀚梺鍨儏閳ь剙绉归弻銊р偓闈涙啞閻h京鈧敻鍋婇崰鏍х暦閿燂拷
核心提示:首先我要说明的是,我用的MSXML的版本是IE5带的,怎样使用DOM创建XML,版本号是5.0.2919.3800,微软的早期版本的接口和新的有些不一样,应该是比较简单清楚的了,首先声明下面要用的几个对象的变量:Dim tempdoc As MSXML.DOMDocumentDim tempnode As MSXML.

首先我要说明的是,我用的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

Tags:DOM 创建 XML

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接