Discussion :

[pegase06]

Bonjour,

J'aimerais parser un contenu XML en VB6.
J'ai lu le tutoriel http://khany.developpez.com/tutoriel/xml/

Je n'ai pas trouvé comment charger dans un objet MSXML2.IXMLDOMDocument un flux XML contenu dans un string.

Merci pour votre aide.

[pegase06]

J'ai trouver la réponse.
Pour les personnes intéressées, dans le cadre du tutoriel ca donne :

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
Dim oDvpDOMDocument As MSXML2.IXMLDOMDocument
    Dim strm As ADODB.Stream
 
    Set oDvpDOMDocument = New MSXML2.DOMDocument
    Set strm = New ADODB.Stream
 
    strm.Type = adTypeText
    strm.Charset = "ascii"
    strm.Open
    strm.WriteText "<?xml version=""1.0"" encoding=""ISO-8859-1""?><developpez><membre fonction=""Responsable Visual Basic""><nom>Cécile Muno</nom><pseudo>khany</pseudo><activite><date-inscription>21/10/2002</date-inscription><nbmsg>1698</nbmsg><nbtutoriel>4</nbtutoriel></activite></membre></developpez>"
    strm.Position = 0
 
    ' Chargement du document XML
 
    oDvpDOMDocument.async = False ' permet de charger entièrement le document en mémoire avant le traitement
 
    If oDvpDOMDocument.Load(strm) Then
        MsgBox "Document XML correctement chargé"
    Else
        MsgBox "Erreur de lecture du document XML"
        End
    End If

Il faut ajouter au projet la référence "Microsoft ActiveX Data Objects" (msado15.dll) pour pouvoir utiliser le type ADODB.Stream