vb6里面生成xml文件

终于找到了一段在我的电脑vb6+win7上能正常工作的代码。

先添加 引用 Microsoft xml 6.0

 

 

代码

Dim xmlDOMDocument As DOMDocument ' xml文档

Dim Root_Node As IXMLDOMElement ' 文档的根节点
Dim Added_Node As IXMLDOMNode ' 新添加的节点

Dim Added_Element As IXMLDOMNode ' 新添加的元素节点
Dim Added_Attribute As IXMLDOMNode ' 新添加的属性

' 生成一个XML DOMDocument对象
Set xmlDOMDocument = New MSXML2.DOMDocument

' 生成根节点
Set Root_Node = xmlDOMDocument.createElement( " Root " )
Set xmlDOMDocument.documentElement = Root_Node

' 在此节点上添加多个属性
Call Root_Node.setAttribute( " 属性 " , " http://www.w3.org/2001/XMLSchema " )
Call Root_Node.setAttribute( " 属性2 " , " http://www.w3.org/2001/XMLSchema-instance " )
' Call Root_Node.setAttribute("属性3", "http://www.kingdee.com/ReK3Inventory")

' 生成“父亲辈”节点添加到根节点
Set Added_Element = xmlDOMDocument.createNode(NODE_ELEMENT, " Nodes " , "" )
Added_Element.Text = ""
Root_Node.appendChild Added_Element

''''''''' ''此处连续生成三个“孙子辈”节点 ''''''''''''''''''''''''''''''''''''
Set Added_Node = xmlDOMDocument.createNode(NODE_ELEMENT, " Node_1 " , "" ) '
Added_Node.Text = " this Is Node_2.Texth汉字" '
Added_Element.appendChild Added_Node '
'
Set Added_Node = xmlDOMDocument.createNode(NODE_ELEMENT, " Node_2 " , "" ) '
Added_Node.Text = " this is Node_3.Text " '
Added_Element.appendChild Added_Node '
'
Set Added_Node = xmlDOMDocument.createNode(NODE_ELEMENT, " Node_3 " , "" ) '
Added_Node.Text = " this is Node_4.Text " '
Added_Element.appendChild Added_Node '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '
' 创建节点有个一般性规律： '
' 语法上体现为　父节点.appendChild 子节点　　　　　　 '
' 注意：父节点和子节点要声明为 IXMLDOMNode或者IXMLDOMElement '
' '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '

' 创建序言部分
Dim pi As IXMLDOMProcessingInstruction
Set pi = xmlDOMDocument.createProcessingInstruction( " xml " , " version='1.0' encoding='gb2312' " )
Call xmlDOMDocument.insertBefore(pi, xmlDOMDocument.childNodes( 0 ))
' 直接保存成文件即可
xmlDOMDocument.save m_AppPath & " myTest.xml "

 

转载于:https://www.cnblogs.com/mitang/archive/2010/10/16/1853308.html