如何使用MSXML.DOMDocument生成有层次格式的XML文件？

Question

<root>
  <A qq="1001" qqname="Test1" >
    <B code="1001001">
      <i1 AA="001" BB="50"  CC="10"></i1>
      <i1 AA="002" BB="50"  CC="5"></i1>
<i2 V="12345658"></i2>
<i2 V="1001001"></i2>
    </B>
    <B code="1001002">
      <i1 AA="LC001" BB="50"  CC="20"></i1>
      <i1 AA="LC002" BB="50"  CC="10"></i1>
 <i2 V="12345698"></i2>
 <i2 V="1001002"></i2>
    </B>
  </A></root>如何使用MSXML.DOMDocument生成上面有层次格式的XML文件？

Answer 1

简单一点Dim doc As New MSXML2.DOMDocumentDim a As IXMLDOMNode, b As IXMLDOMNodeSet a = doc.createNode(NODE_ELEMENT, "test1", "")
Set b = doc.createNode(NODE_ELEMENT, "test2", "")Call doc.appendChild(a)
Call a.appendChild(b)  

Answer 2

怎么把<?xml version="1.0" encoding="utf-8" ?>也写到文件头啊？我不想使用文件系统写

Answer 3

Set xmlDoc = New DOMDocument40
    xmlDoc.async = False
    root = "<?xml version=""1.0"" encoding=""utf-8"" ?>" & vbCrLf & "<ConstructProject></ConstructProject>"
    
    If xmlDoc.LoadXML(root) Then
        Set rootNode = xmlDoc.documentElement   '获得根节点
        ............
    end if

Answer 4

我有VB生成XML数据交换文件接口模块和类。

Answer 5

结点中<A qq="1001" qqname="Test1" >  的qq="1001" qqname="Test1"这些属性怎么添加啊?

Answer 6

没有找到SetAttribute的方法,其他方法可以代替吗?

Answer 7

If xmlDoc.LoadXML(root) Then
        Set rootNode = xmlDoc.documentElement   '获得根节点
        rootnode.setAttribute "qq","1001"
    end if

Answer 8

我是这样定义的:Dim item_node As IXMLDOMNode 
               找不到SetAttribute的方法

Answer 9

我用的是4.0，3.0没有试过
Dim item_node As IXMLDOMNode40

Answer 10

哦，错了，是
Dim item_node As IXMLDOMElement 你再试试