使用dom创建xml

作者:未知 来源:未知 添加时间:2006年7月3日 字体:

 我以前在介绍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 = "mynode&#118alue" 
root.appendchild tempnode 

  取得元素节点的接口,添加属性 

set tempelement = tempnode 
tempelement.setattribute "myattribute", "myattribute&#118alue" 

  写xml文件 

open "myxmlfile.xml" for output as #1 
print #1, root.xml 
close #1

  下面就是上面程序生成的xml文件内容: 

   mynode&#118alue 

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

ppdesk