[VB6] lecture d'XML

Version imprimable

[VB6] lecture d'XML

Bonjour,
je sèche sur un problème surment très simple à résoudre, mais j'ai beau chercher sur les forums, je trouve rien qui me débloque;
Je cherche à accéder aux données "ADRESSE" (cf ci dessous). J'explique, j'arrive à acéder aux info à la racine et ainsi qu'aux données comme "REMARQUE" pour l'utilisateur, mais dès que je veux descendre d'un crant je sèche.
voici un exemple d'XML que j'ai sité

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
<DONNEES Date_creation="14/11/04">
    <UTILISATEUR NOM="PISSARO Camille">
<RUE1>Rue Victor Hugo</RUE1>
<RUE2/>
<CODE_POSTAL>95300</CODE_POSTAL>
<VILLE>Pontoise</VILLE>
<PAYS>France</PAYS>
    <REMARQUE>
azezaezaeze
</REMARQUE>
    <MELS>
<ADRESSE Num="1">c.pissaro@pontoise.org</ADRESSE>
<ADRESSE Num="2">camille.pissaro@impressioniste.pict</ADRESSE>
</MELS>
</UTILISATEUR>
    <UTILISATEUR NOM="COURBET Gustave">
<RUE1>Hôtel Hébert</RUE1>
<RUE2>Place Robert Fernier</RUE2>
<CODE_POSTAL>25290</CODE_POSTAL>
<VILLE>Ornans</VILLE>
<PAYS>France</PAYS>
    <REMARQUE>
zaezaezea
</REMARQUE>
    <MELS>
<ADRESSE Num="1">g.courbet@free.fr</ADRESSE>
<ADRESSE Num="2">gustave.courbet@patres.sky</ADRESSE>
</MELS>
</UTILISATEUR>
    <UTILISATEUR NOM="GEROME Jean-Léon">
<RUE1>Musée Georges Garret</RUE1>
RUE2>1 bis, rue des Ursulines</RUE2>
<CODE_POSTAL>70000</CODE_POSTAL>
<VILLE>Vesoul</VILLE>
<PAYS>France</PAYS>
    <REMARQUE>
zzaazezaezea
</REMARQUE>
    <MELS>
<ADRESSE Num="1">jl.gerome@wanadoo.fr</ADRESSE>
</MELS>
</UTILISATEUR>
</DONNEES>

voici ce que j'ai essayé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim xText As IXMLDOMElement
Dim xObjects As IXMLDOMElement
Dim xTruc As IXMLDOMElement
Set xObjects = xmlDoc.selectSingleNode("Objects")
 
For Each xTruc In xmlDoc.getElementsByTagName("MELS")
If DEBOG = 1 Then Text1 = Text1 & "Objects " & vbCrLf & "---" & vbCrLf
Next
 
For Each xTruc In xObjects.getElementsByTagName("ADRESSE") ''Bloque ici!!!
If DEBOG = 1 Then Text1 = Text1 & "Text " & vbCrLf & "---" & vbCrLf
Next

merci d'avance

Salut :)

Une petite remarque concernant ton XML qui est mal formaté (Ce qui gène le parseur lors de la lecture du document) :

Citation:

RUE2>1 bis, rue des Ursulines</RUE2>

Ton fichier XML formaté correctement et indenté :

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
<?xml version="1.0" encoding="ISO-8859-1"?>
<DONNEES Date_creation="14/11/04">
    <UTILISATEUR NOM="PISSARO Camille">
        <RUE1>Rue Victor Hugo</RUE1>
        <RUE2/>
        <CODE_POSTAL>95300</CODE_POSTAL>
        <VILLE>Pontoise</VILLE>
        <PAYS>France</PAYS>
        <REMARQUE>zezaezaeze</REMARQUE>
        <MELS>
            <ADRESSE Num="1">c.pissaro@pontoise.org</ADRESSE>
            <ADRESSE Num="2">camille.pissaro@impressioniste.pict</ADRESSE>
        </MELS>
    </UTILISATEUR>
    <UTILISATEUR NOM="COURBET Gustave">
        <RUE1>Hôtel Hébert</RUE1>
        <RUE2>Place Robert Fernier</RUE2>
        <CODE_POSTAL>25290</CODE_POSTAL>
        <VILLE>Ornans</VILLE>
        <PAYS>France</PAYS>
        <REMARQUE>zaezaezea</REMARQUE>
        <MELS>
            <ADRESSE Num="1">g.courbet@free.fr</ADRESSE>
            <ADRESSE Num="2">gustave.courbet@patres.sky</ADRESSE>
        </MELS>
    </UTILISATEUR>
    <UTILISATEUR NOM="GEROME Jean-Léon">
        <RUE1>Musée Georges Garret</RUE1>
        <RUE2>1 bis, rue des Ursulines</RUE2>
        <CODE_POSTAL>70000</CODE_POSTAL>
        <VILLE>Vesoul</VILLE>
        <PAYS>France</PAYS>
        <REMARQUE>zzaazezaezea</REMARQUE>
        <MELS>
            <ADRESSE Num="1">jl.gerome@wanadoo.fr</ADRESSE>
        </MELS>
    </UTILISATEUR>
</DONNEES>

Sinon pour ton problème de lecture du doc, voici un code qui permet de lister les adresses de chaque utilisateur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Dim xmlDoc As MSXML2.DOMDocument
    Dim xmlElement As MSXML2.IXMLDOMElement
    Dim userNode As MSXML2.IXMLDOMElement
    Dim emailNode As MSXML2.IXMLDOMElement
 
    Dim myStr As String
 
    Set xmlDoc = New MSXML2.DOMDocument
 
    xmlDoc.async = False
    test = xmlDoc.Load("C:\Data.xml")
 
    If test = True Then
        Set xmlElement = xmlDoc.documentElement
        For Each userNode In xmlElement.getElementsByTagName("UTILISATEUR")
            myStr = ""
            For Each emailNode In userNode.getElementsByTagName("ADRESSE")
                myStr = myStr + vbCrLf + emailNode.Text
            Next
            MsgBox myStr
        Next
    Else
        MsgBox "erreur de lecture du fichier XML"
    End If

Bon courage :)

merci bcp, ça marche bien.
par contre j'ai un autre fichier où je n' arrive pas a avoir "font" dans "Text" qui se trouve lui même dans "Objects".

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
<AWT sX="1200" sY="1697">
<Colors>
<Color colorId="black" r="0" g="0" b="0" invisible="false"/>
<Color colorId="white" r="255" g="255" b="255" invisible="false"/>
</Colors>
<Objects>
<Text font="font0" textColor="black" hAlign="left" vAlign="top">
<Basic xInit="865" yInit="585" xFinal="1017" yFinal="696" xCenter="941" yCenter="640"/>
<Style lineStyle="solid" lineWidth="3" lineColor="gray" lineEnd="round" patternStyle="full" 
 
patternColor="rgb(255,255,225)"/>
<AdvancedStyle style="Shadow" thickness="3" colorTopLeft="lightGray" 
 
colorBottomRight="gray"/>
<Content/>
</Text>
 
    <Text font="font1" textColor="rgb(0,0,128)" hAlign="left" vAlign="top">
<Basic xInit="861" yInit="749" xFinal="1018" yFinal="876" xCenter="939" yCenter="812"/>
<Style lineStyle="solid" lineWidth="3" lineColor="gray" lineEnd="round" patternStyle="full" 
 
patternColor="rgb(128,255,255)"/>
<AdvancedStyle style="Shadow" thickness="3" colorTopLeft="lightGray" 
 
colorBottomRight="gray"/>
<Content>properties tests</Content>
</Text>
 
    <Text font="font0" textColor="black" hAlign="left" vAlign="top">
<Basic xInit="861" yInit="924" xFinal="1017" yFinal="1060" xCenter="939" yCenter="992"/>
<Style lineStyle="solid" lineWidth="3" lineColor="gray" lineEnd="round" patternStyle="full" 
 
patternColor="rgb(221,190,181)"/>
<AdvancedStyle style="Shadow" thickness="3" colorTopLeft="lightGray" 
 
colorBottomRight="gray"/>
<Content/>
</Text>
 
    <Text font="font2" textColor="black" hAlign="left" vAlign="top">
<Basic xInit="856" yInit="1107" xFinal="1082" yFinal="1211" xCenter="969" yCenter="1159"/>
<Style lineStyle="solid" lineWidth="3" lineColor="gray" lineEnd="round" patternStyle="full" 
 
patternColor="rgb(255,255,225)"/>
<AdvancedStyle style="Shadow" thickness="3" colorTopLeft="lightGray" 
 
colorBottomRight="gray"/>
<Content>Tests</Content>
</Text>
 
    <Text font="font0" textColor="black" hAlign="left" vAlign="top">
<Basic xInit="851" yInit="1238" xFinal="983" yFinal="1388" xCenter="917" yCenter="1313"/>
<Style lineStyle="solid" lineWidth="3" lineColor="gray" lineEnd="round" patternStyle="full" 
 
patternColor="rgb(255,255,225)"/>
<AdvancedStyle style="Shadow" thickness="3" colorTopLeft="lightGray" 
 
colorBottomRight="gray"/>
<Content/>
</Text>
 
    <CustomObject name="DisplayText" >
<Basic xInit="21" yInit="37" xFinal="121" yFinal="138" xCenter="71" yCenter="87"/>
</CustomObject>
</Objects>
</AWT>

j'ai essayé ça et ça renvoi rien:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim Indice%
Dim taille As Integer
Dim myStr As String
Dim xmlElement As MSXML2.IXMLDOMElement
Dim userNode As MSXML2.IXMLDOMElement
Dim emailNode As MSXML2.IXMLDOMElement
'Dim xText As IXMLDOMElement
'Dim xObjects As IXMLDOMElement
'Dim xTruc As IXMLDOMElement
'Dim ListeDeNoeuds As IXMLDOMNodeList
'Dim NoeudRecherché As IXMLDOMNode
            Set xmlElement = xmlDoc.documentElement
            For Each userNode In xmlElement.getElementsByTagName("Objects")
                myStr = ""
                For Each emailNode In userNode.getElementsByTagName("Text")
                    myStr = myStr & vbCrLf & emailNode.getAttribute("font")
                Next
                If myStr = "" Then
                MsgBox "_Rien à voir_"
                Else: MsgBox myStr
                End If
 
 
            Next

merci d'avance

19/04/2006, 16h13
adjava

Salut,

Je te conseil de créer une fonction récursive qui te permettra de lire un fichier XML quelque soit sa profondeur.
19/04/2006, 16h14
kboo

heu... je veux bien mais on fais ça comment...
19/04/2006, 16h30
ridan

re,

Pourrais-tu organiser ton code XML stp :( ça facilite la lecture pour ceux qui veulent t'aider ;)

++

j'ai trouvé ça:

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub BrowseChildNodes(root_node As IXMLDOMNode)
 
    Dim i As Long
 
    For i = 0 To root_node.childNodes.length - 1
        If root_node.childNodes.Item(i).nodeType <> 3 Then Debug.Print root_node.childNodes.Item(i).baseName
        BrowseChildNodes root_node.childNodes(i)
    Next
 
End Sub

mais je trouve que ça marche pas car il trouve des mots clefs qui ne se trouve pas dans le fichier (et puis je voudrai éviter la récursivité)!!!

sinon voici le code XML mieu affiché:

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 <AWT sX="1200" sY="1697">
    <Colors>
        <Color colorId="black" r="0" g="0" b="0" invisible="false"/>
        <Color colorId="white" r="255" g="255" b="255" invisible="false"/>
    </Colors>
    
    <Objects>
        <Text font="font0" textColor="black" hAlign="left" vAlign="top">
            <Basic xInit="865" yInit="585" xFinal="1017" yFinal="696" xCenter="941" yCenter="640"/>
            <Style lineStyle="solid" lineWidth="3" lineColor="gray" lineEnd="round" patternStyle="full"  patternColor="rgb(255,255,225)"/>
            <AdvancedStyle style="Shadow" thickness="3" colorTopLeft="lightGray"  colorBottomRight="gray"/>
            <Content/>
        </Text>

        <Text font="font1" textColor="rgb(0,0,128)" hAlign="left" vAlign="top">
            <Basic xInit="861" yInit="749" xFinal="1018" yFinal="876" xCenter="939" yCenter="812"/>
            <Style lineStyle="solid" lineWidth="3" lineColor="gray" lineEnd="round" patternStyle="full"  patternColor="rgb(128,255,255)"/>
            <AdvancedStyle style="Shadow" thickness="3" colorTopLeft="lightGray"  colorBottomRight="gray"/>
            <Content>properties tests</Content>
        </Text>

        <Text font="font0" textColor="black" hAlign="left" vAlign="top">
            <Basic xInit="861" yInit="924" xFinal="1017" yFinal="1060" xCenter="939" yCenter="992"/>
            <Style lineStyle="solid" lineWidth="3" lineColor="gray" lineEnd="round" patternStyle="full" patternColor="rgb(221,190,181)"/>
            <AdvancedStyle style="Shadow" thickness="3" colorTopLeft="lightGray" colorBottomRight="gray"/>
            <Content/>
        </Text>

        <Text font="font2" textColor="black" hAlign="left" vAlign="top">
            <Basic xInit="856" yInit="1107" xFinal="1082" yFinal="1211" xCenter="969" yCenter="1159"/>
            <Style lineStyle="solid" lineWidth="3" lineColor="gray" lineEnd="round" patternStyle="full" patternColor="rgb(255,255,225)"/>
            <AdvancedStyle style="Shadow" thickness="3" colorTopLeft="lightGray"  colorBottomRight="gray"/>
            <Content>Tests</Content>
        </Text>

        <Text font="font0" textColor="black" hAlign="left" vAlign="top">
            <Basic xInit="851" yInit="1238" xFinal="983" yFinal="1388" xCenter="917" yCenter="1313"/>
            <Style lineStyle="solid" lineWidth="3" lineColor="gray" lineEnd="round" patternStyle="full"  patternColor="rgb(255,255,225)"/>
            <AdvancedStyle style="Shadow" thickness="3" colorTopLeft="lightGray" colorBottomRight="gray"/>
            <Content/>
        </Text>

        <CustomObject name="DisplayText" >
        <Basic xInit="21" yInit="37" xFinal="121" yFinal="138" xCenter="71" yCenter="87"/>
        </CustomObject>
    </Objects>
</AWT>

Si tu cherches la valeur de l'attribut font pour chaque balise text :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
    Dim xmlDoc As MSXML2.DOMDocument
    Dim xmlElement As MSXML2.IXMLDOMElement
    Dim textNode As MSXML2.IXMLDOMElement
 
    Set xmlDoc = New MSXML2.DOMDocument
 
    xmlDoc.async = False
    test = xmlDoc.Load("C:\Data.xml")
 
    If test = True Then
        Set xmlElement = xmlDoc.documentElement
        For Each textNode In xmlElement.getElementsByTagName("Text")
            MsgBox textNode.getAttribute("font")
        Next
    Else
        MsgBox "erreur de lecture du fichier XML"
    End If

20/04/2006, 09h55
kboo

merci ...