( XD::XML:GetDocument)获取XML DOM

st788796

1. ;;参数: file   --- xml 文件
   
2. ;;      XMLDoc --- XMLDocument Object
   
3. (defun XD::XML:GetDocument (file XMLDoc /)
   
4.   (if (vlax-property-available-p
   
5.         (if (= (type XMLDoc) 'SYM)
   
6.           (eval XMLDoc)
   
7.           XMLDoc
   
8.         )
   
9.         'nodeType
   
10.       )
    
11.     (eval XMLDoc)
    
12.     (if        (set XMLDoc (vlax-create-object "MSXML2.DOMDocument.3.0"))
    
13.       (progn
    
14.         (if (and file (findfile file))
    
15.           (progn
    
16.             (vlax-put-property (eval XMLDoc) "async" :vlax-false)
    
17.             (vlax-invoke (eval XMLDoc) "Load" file)
    
18.           )
    
19.         )
    
20.         (eval xmldoc)
    
21.       )
    
22.     )   
    
23.   )
    
24. )
    

;;参数: file   --- xml 文件<br /> ;;      XMLDoc --- XMLDocument Object<br /> (defun XD::XML:GetDocument (file XMLDoc /)<br />   (if (vlax-property-available-p<br />         (if (= (type XMLDoc) 'SYM)<br />           (eval XMLDoc)<br />           XMLDoc<br />         )<br />         'nodeType<br />       )<br />     (eval XMLDoc)<br />     (if        (set XMLDoc (vlax-create-object "MSXML2.DOMDocument.3.0"))<br />       (progn<br />         (if (and file (findfile file))<br />           (progn<br />             (vlax-put-property (eval XMLDoc) "async" :vlax-false)<br />             (vlax-invoke (eval XMLDoc) "Load" file)<br />           )<br />         )<br />         (eval xmldoc)<br />       )<br />     )    <br />   )<br /> )<br />

st788796

http://www.w3school.com.cn/xmldom/index.asp

st788796

http://www.webshu.net/jiaocheng/programme/XML/200804/6850.html
我以前在介绍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文件内容：
　　 MyNodeValue
　
　　在MSXML中也有非DOM的接口可以用，这就要看大家自己的用法了。

st788796

测试

1. ;;生成一个新 xml 文档添加根节点并保存
   
2. (defun XD::XML:NewXMLDoc
   
3.        (file XMLDoc rootTagName lst / documentElemenut)
   
4.   (XD::XML:GetDocument file XMLDoc)
   
5.   (setq        documentElemenut
   
6.          (vlax-invoke-method
   
7.            XMLDoc
   
8.            'createElement
   
9.            rootTagName
   
10.          )
    
11.   )
    
12.   (vlax-put XMLDoc 'documentElement documentElemenut)
    
13.   (XD::XML:SaveAs XMLDoc file)
    
14. )

;;生成一个新 xml 文档添加根节点并保存<br /> (defun XD::XML:NewXMLDoc<br />        (file XMLDoc rootTagName lst / documentElemenut)<br />   (XD::XML:GetDocument file XMLDoc)<br />   (setq        documentElemenut<br />          (vlax-invoke-method<br />            XMLDoc<br />            'createElement<br />            rootTagName<br />          )<br />   )<br />   (vlax-put XMLDoc 'documentElement documentElemenut)<br />   (XD::XML:SaveAs XMLDoc file)<br /> )