VB写XML

[andersonlinden]

我要用VB6以下格式的XML文件，请教一下哪位可以帮忙写一下原码？谢谢！
<?xml version="1.0" standalone="yes" ?>
- <Inv4Transer>
- <Header>
<DeviceName>EZ5259B-AJ004</DeviceName>
<LOTNO>1T0939A1</LOTNO>
<GrossDie>1939</GrossDie>
</Header>
- <DeTail>
<ID>1</ID>
<PASS>1848</PASS>
<Skip>1</Skip>
</DeTail>
- <DeTail>
<ID>2</ID>
<PASS>1860</PASS>
<Skip>4</Skip>
</DeTail>
</Inv4Transer>

[andersonlinden]

Node中的两个“Detail”如何处理的？假如我很多一个Detail添加又如何处理？

[fkestrel]

是要写

Private Sub WriteXML()

Dim XmlDom As New MSXML2.DOMDocument
Dim DomElement As IXMLDOMElement
Dim DomElement2 As IXMLDOMElement
Dim DomNode As IXMLDOMNode
Dim DomHead As IXMLDOMProcessingInstruction
Dim i, j As Integer

Dim strArr(3) As Variant
strArr(0) = Array("DeviceName", "EZ5259B-AJ004")
strArr(1) = Array("LOTNO", "1T0939A1")
strArr(2) = Array("GrossDie", "1939")


'设置根节点
Set DomElement = XmlDom.createElement("Inv4Transer")
Set DomElement2 = XmlDom.createElement("Header")
DomElement.appendChild DomElement2

For i = 0 To 3 - 1
Set DomNode = XmlDom.CreateNode(MSXML2.NODE_ELEMENT, strArr(i)(0), "")
DomNode.Text = strArr(i)(1)
DomElement2.appendChild DomNode
Next i

For i = 0 To 1
Set DomElement2 = XmlDom.createElement("DeTail")
Set DomNode = XmlDom.CreateNode(MSXML2.NODE_ELEMENT, "ID", "")
DomNode.Text = i + 1
DomElement2.appendChild DomNode

Set DomNode = XmlDom.CreateNode(MSXML2.NODE_ELEMENT, "PASS", "")
DomNode.Text = 1848 + i
DomElement2.appendChild DomNode

Set DomNode = XmlDom.CreateNode(MSXML2.NODE_ELEMENT, "Skip", "")
DomNode.Text = i
DomElement2.appendChild DomNode

DomElement.appendChild DomElement2
Next i

'追加到节点
XmlDom.appendChild DomElement


'添加xml头部信息: List
Set DomHead = XmlDom.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8' standalone='no'")
XmlDom.insertBefore DomHead, XmlDom.firstChild

XmlDom.save "c:\csdn.xml"
Set XmlDom = Nothing
Set DomHead = Nothing
End Sub

[andersonlinden]

帮帮我啊，这么多天了，怎么就没人理呢？是不是分不够啊？我刚来，救济一下我吧！

[ftz820127]

引用micorsoft xml，6.0

可以很方便得操作XML结构

    If sDetail = "" Then sDetail = "<xml></xml>"
    Dim xml As New DOMDocument
    xml.loadXML sDetail
    DoEvents
    For i = 0 To xml.childNodes(0).childNodes.Length - 1

类似这样的操作

[vansoft]

楼上已经给出方法，
具体的代码要你自己完成了。