XML Kald

Du kan kommunikere med et xml dokument fra Visual Basiv ved hjælp af en reference til MSXML2.dll og xmldom script kode.
Giv mig lige lidt tid så skal jeg give dig et kode ekempel

kedde

Flg kode smider alle værdier fra nr i liste1 og alle værdier fra bes over i liste 2.
Håber det kan bruges.

VB Koden er


Private Sub Form_Load()
    Dim xDoc As MSXML.DOMDocument
    Set xDoc = New MSXML.DOMDocument
   
    Dim root As MSXML.IXMLDOMNode
    Dim node As MSXML.IXMLDOMNode
    Dim tmpnode As MSXML.IXMLDOMNode
   
    xDoc.validateOnParse = False
   
    If xDoc.Load(App.Path & \"\\temp.xml\") Then
        Set root = xDoc.documentElement
        For Each node In root.childNodes
            Set tmpnode = node.selectSingleNode(\"nr\")
            List1.AddItem tmpnode.Text
            Set tmpnode = node.selectSingleNode(\"bes\")
            List2.AddItem tmpnode.Text
        Next
    End If
    Set root = Nothing
    Set xDoc = Nothing
    Set node = Nothing
    Set tmpnode = Nothing
End Sub

og xml filen er:

<?xml version=\"1.0\"?>
<type>
    <v1>
        <nr>1</nr>
        <bes>Kat</bes>
    </v1>
    <v2>
        <nr>2</nr>
        <bes>Hund</bes>
    </v2>
</type>

venlig hilsen christian

den dll du skal sætte reference til hedder msxml.dll og IKKE msxml2.dll som jeg tidligere skrev.