vb6 & create xml-file?

Postades av 2014-09-16 14:01:41 - Per Johansson, i forum visual basic - allmänt, Tråden har 0 Kommentarer och lästs av 2588 personer

Hej, någon som vet?
Använder MS XML v.6.
Ändrar i ett gammalt program och men är inte van xml.
Jag behöver få till en XML-struktur med flera noder.
Idag skapar den <root><n1><n2><child1>
Jag behöver få till en struktur med noder under <child1> typ:
<root><n1><n2><child1><n3><n4>Text="Hej"

Dim objDOM As New MSXML2.DOMDocument60
Dim objNode As MSXML2.IXMLDOMNode
Dim objPerson As MSXML2.IXMLDOMNode
Dim objGrandChildNode As MSXML2.IXMLDOMNode
Dim objAttribute As MSXML2.IXMLDOMAttribute
Dim objElement As MSXML2.IXMLDOMElement
Dim i As Integer
 
Set objNode = objDOM.createNode(NODE_PROCESSING_INSTRUCTION, "xml", "")
objDOM.appendChild objNode
Set objNode = objDOM.createNode(NODE_ELEMENT, "Lista", "") 'encoding="ISO-8859-1"?
 
For i = 1 To 3
     Set objPerson = objDOM.createNode(NODE_ELEMENT, "nood1", "")
     objNode.appendChild objPerson
      
     Set objGrandChildNode = objDOM.createNode(NODE_ELEMENT, "noodChild", "")
     objGrandChildNode.Text = "Kontaktdata"
     objPerson.appendChild objGrandChildNode
      
     Set objGrandChildNode = objDOM.createNode(NODE_ELEMENT, "noodNoodChild", "")
     objGrandChildNode.Text = "Information"
     objPerson.appendChild objGrandChildNode
      
     Set objGrandChildNode = objDOM.createNode(NODE_ELEMENT, "noodNoodChild", "")
     objGrandChildNode.Text = "Info"
     objPerson.appendChild objGrandChildNode
Next i
     
objDOM.appendChild objNode
Set objNode = Nothing
 
 Debug.Print objDOM.xml

Mycket tacksam för hjälp!

Svara

vb6 & create xml-file?

Nyligen

Sidor

Statistik

Kontakta oss