[VB6] lecture d'XML

**kboo** · 19/04/2006, 11h57

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 :

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
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 :

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

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

**ridan** · 19/04/2006, 14h46

Salut

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

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

Ton fichier XML formaté correctement et indenté :

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
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 :

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
    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

**kboo** · 19/04/2006, 15h29

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 :

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
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 :

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
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

**adjava** · 19/04/2006, 16h13

Salut,

Je te conseil de créer une fonction récursive qui te permettra de lire un fichier XML quelque soit sa profondeur.

**kboo** · 19/04/2006, 16h14

heu... je veux bien mais on fais ça comment...

**ridan** · 19/04/2006, 16h30

re,

Pourrais-tu organiser ton code XML stp

ça facilite la lecture pour ceux qui veulent t'aider

++

**kboo** · 19/04/2006, 16h41

j'ai trouvé ça:

Code :

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

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 :

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
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>

**ridan** · 20/04/2006, 00h13

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

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
    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

**kboo** · 20/04/2006, 09h55

merci ...

[VB6] lecture d'XML

VB 6 et antérieur

Discussions similaires

Partager

Partager