只要你会VB下用DOM写XML你就能帮我解决，简单送分了~
问题就是一个包含元素的子节点怎么建立啊？
出个小例子大家给我写一下吧！完整点
<?xml version="1.0"?>
<root>
<individual>
<name>xxc</name>
<age>24</age>
<sex>male</sex>
</individual>
<public>
<company>sdln</company>
<school>SDUST</school>
</public>
</root>
主要是这个individual和public节点怎么建立啊？
大家给各完整源码吧！谢谢啦！
</root>
问题点数：0、回复次数：1Top
1 楼net_lover（【孟子E章】）回复于 2005-06-02 06:51:51 得分 0
Dim xmldom As New MSXML2.DOMDocument30
xmldom.loadXML ("<root/>")
Dim node1, node2 As IXMLDOMElement
Set node1 = xmldom.createElement("individual")
Set node2 = xmldom.createElement("name")
node2.Text = "xxc"
node1.appendChild node2
Set node2 = xmldom.createElement("age")
node2.Text = "18"
node1.appendChild node2
Set node2 = xmldom.createElement("sex")
node2.Text = "male"
node1.appendChild node2
xmldom.documentElement.appendChild node1
Set node1 = xmldom.createElement("public")
Set node2 = xmldom.createElement("company")
node2.Text = "sdln"
node1.appendChild node2
Set node2 = xmldom.createElement("school")
node2.Text = "SDUST"
node1.appendChild node2
node1.appendChild node2
xmldom.documentElement.appendChild node1
Dim pi As IXMLDOMProcessingInstruction
Set pi = xmldom.createProcessingInstruction("xml", "version='1.0'")
xmldom.insertBefore pi, xmldom.childNodes.Item(0)
Top
