Discussion :

[leo13]

bonjour ,
j ai besion de votre aide. si quelqu'un peut m'expliquer comment je peux lire un fichier XML avec le visual basic 6.
merci de votre aide.
merci bcp

[khany]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim chargement As Boolean
    Dim dvpdocument As MSXML2.DOMDocument
    Dim membredvp As MSXML2.IXMLDOMElement
    Dim pseudo As MSXML2.IXMLDOMElement
 
 
    Set dvpdocument = New MSXML2.DOMDocument
 
    ' chargement du document XML
    chargement = dvpdocument.Load(App.Path & "\data\dvp.xml")
    dvpdocument.async = False
 
    If chargement Then
        MsgBox "Document XML correctement chargé"
    Else
        MsgBox "Erreur de lecture du document XML"
        End
    End If
 
    ' sélection des noeuds recherchés : membre
    Set membredvp = dvpdocument.documentElement
 
    For Each pseudo In membredvp.getElementsByTagName("pseudo")
        LstMembDvp.AddItem pseudo.Text
    Next

un petit exemple rapido et pas complet qui lit des pseudos dans un simple fichier appelé dvp.xml !

Ne pas oublier de cocher la bonne référence