Opret XML-fil fra VB 6.0
Hej Alle.Jeg er XML begynder, og vil oprette en XML-fil fra VB 6.0
Jeg har problemer med at få det rigtige output
Mit ønske var at det så således ud.
<?xml version="1.0" encoding="UTF-8" ?>
- <Invoice>
<TEST>1234</TEST>
- <Book>
<ID>9999</ID>
<IssueDate>21-11-04</IssueDate>
</Book>
</Invoice>
Men jeg kan ikke få <TEST>1234</TEST> indsat.
Min kode er som nedestående.
_________________________________________________
Dim objXMLDOM As DOMDocument40
Dim Pi As IXMLDOMProcessingInstruction
Dim Invoice As Object
Dim Book As Object
Set objXMLDOM = CreateObject("Microsoft.XMLDOM")
Set Pi = objXMLDOM.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'")
Set objXMLDOM.documentElement = objXMLDOM.createElement("Invoice")
Set Book = objXMLDOM.createElement("Book")
objXMLDOM.insertBefore Pi, objXMLDOM.childNodes.Item(0)
Book.appendChild objXMLDOM.createElement("ID")
Book.appendChild objXMLDOM.createElement("IssueDate")
Book.childNodes(0).Text = "9999" ' Fakturanummer
Book.childNodes(1).Text = "21-11-04" 'Fakturadato
objXMLDOM.documentElement.appendChild Book.cloneNode(True)
objXMLDOM.Save (App.Path & "\myXMLfile1.xml")
Set Pi = Nothing
Set objXMLDOM = Nothing
_________________________________________________
Min XML output er
<?xml version="1.0" encoding="UTF-8" ?>
- <Invoice>
- <Book>
<ID>9999</ID>
<IssueDate>21-11-04</IssueDate>
</Book>
</Invoice>
