這篇文章給大家分享的是有關(guān)使用DOM創(chuàng)建XML的方法的內(nèi)容。小編覺得挺實用的，因此分享給大家做個參考。一起跟隨小編過來看看吧。

站在用戶的角度思考問題，與客戶深入溝通，找到巴彥淖爾網(wǎng)站設(shè)計與巴彥淖爾網(wǎng)站推廣的解決方案，憑借多年的經(jīng)驗，讓設(shè)計與互聯(lián)網(wǎng)技術(shù)結(jié)合，創(chuàng)造個性化、用戶體驗好的作品，建站類型包括：網(wǎng)站制作、成都網(wǎng)站設(shè)計、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣、域名注冊、雅安服務(wù)器托管、企業(yè)郵箱。業(yè)務(wù)覆蓋巴彥淖爾地區(qū)。

我以前在介紹xml和讓別人試著使用DOM時，不只一個人問過我用DOM是否能用來憑空直接生成一個XML文件。

當(dāng)然，這是當(dāng)然可以的了，其次是怎么寫程序呢。

那我就這個問題，專門在這篇文章中用VB和MSXML的COM接口的DOM實現(xiàn)的一個例子來講一下：

首先我要說明的是，我用的MSXML的版本是IE5帶的，版本號是5.0.2919.3800，微軟的早期版本的接口和新的有些不一樣，所以自己編程時，應(yīng)該看一下她的接口和說明。

如果你對vb和COM不太熟悉，看下面的就可能比較費(fèi)勁了，但VB比起其他的語言實現(xiàn)，應(yīng)該是比較簡單清楚的了。

首先聲明下面要用的幾個對象的變量:

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

生成根節(jié)點并把它設(shè)置為文件的根

Set root = tempdoc.createElement("MyRoot") 
Set tempdoc.documentElement = root

生成孩子節(jié)點添加到根節(jié)點上去，并且為這個節(jié)點設(shè)置一個屬性

Set tempnode = tempdoc.createNode(MSXML.NODE_ELEMENT, "MyNode", "") 
tempnode.Text = "MyNodeValue" 
root.appendChild tempnode

取得元素節(jié)點的接口，添加屬性

Set tempelement = tempnode 
tempelement.setAttribute "MyAttribute", "MyAttributeValue"

寫xml文件

Open "MyXMLFile.xml" for output as #1 
PRint #1, root.XML 
Close #1

下面就是上面程序生成的XML文件內(nèi)容：

　　 MyNodeValue

在MSXML中也有非DOM的接口可以用，這就要看大家自己的用法了。

感謝各位的閱讀！關(guān)于使用DOM創(chuàng)建XML的方法就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，讓大家可以學(xué)到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到吧！