Udskriv alle childnodes i xml

skal du bare skrive dem ud, i ren tekst ? eller skal du traversere igennem dem ?

/nute

Har fundet en løsning

For Each objChildElement In node.childNodes
skriv objChildElement.name ud
next objChildElement

Men tak for interessen nute

ved følgende XML fil

<?xml version="1.0" encoding="ISO-8859-1"?>

<names>
    <name>Christian</name>
    <name>Maya</name>
    <name>Kim</name>
    <name>Malene</name>
</names>

kan du bruge følgende kode:

Sub childNodes()
    Dim root As DOMDocument50
    Set root = New DOMDocument50
    Dim item As IXMLDOMNode
    If root.Load("c:\text.xml") Then
        For Each item In root.childNodes(1).childNodes
            MsgBox item.Text
        Next
    End If
    Set root = Nothing
End Sub

VH CK

Hov - havde ikke lige set du havde svaret selv :-)

VH CK

Ok men rart med hurtig respons ser ud som om jeg kunne have brugt dit forslag

//Casper

kedde65 >> denne er jo lidt farlig:

For Each item In root.childNodes(1).childNodes

her antager du at rodens første barn har børn ... og koden vil give fejl.

/nute

Nute>> Nej den vil da ikke!! Roden(XMLDomDocument) har altid mindst 2 børn, det er en del af standarden for XML. De to er PI (Processing Instructions) og første reele rod element. Som det kan ses i XML dokumentet - så er det Names.

Min kode er testet og melder ikke fejl - hvis den melder fejl så er der en struktur fejl i XML filen, der betyder at XML filen ikke er Valid.

VH CK

nåh ... så lærte jeg da det :-)

Undskyld min ubegrundede påstand ...

/nute

Nute>> det er helt iorden, vi er her for at lære allesammen :-)

VH CK