明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

使用DOM創(chuàng)建XML

[摘要]我以前在介紹XML和讓別人試著使用DOM時,不只一個人問過我用DOM是否能用來憑空直接生成一個XML文件! ‘斎,這是當然可以的了,其次是怎么寫程序呢! ∧俏揖瓦@個問題,專門在這篇文章中用VB和MSXML的COM接口的DOM實現(xiàn)的一個例子來講一下:  首先我要說明的是,我用的MSXML的版本是...
我以前在介紹XML和讓別人試著使用DOM時,不只一個人問過我用DOM是否能用來憑空直接生成一個XML文件。

  當然,這是當然可以的了,其次是怎么寫程序呢。

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

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

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

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

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é)點并把它設置為文件的根

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

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

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文件內容:

   MyNodeValue

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