VBA et bibliothèque IXMLDOMNode (gestion XML) : profondeur d'arborescence

Version imprimable

Bonjour,
J'ai essayé de rendre le titre compréhensible mais c'est pas gagné :?
Ma macro ouvre des fichiers de dessin au format .svg qui est un format xml. Pas de soucis pour utiliser la bibliothèque IXMLDOM.
Mon problème c'est de gérer les imbrications de balise <g>. Je vous donne un exemple simplifié :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 <svg width="4000" height="6000" version="1.1" > <title>Le joli plan du siège mondial de developpez.net</title> <g id="zone 1" > <g id="sous_groupe 1"> <path id="fosse" d="M 714.274,3026.228Q721.6679,3021.7303 724.3654,3017.3556C726.5549,3013.8046 725.6282,3010.788 726.4913,3006.4139C727.295,3002.3408z" style=" fill:None; stroke:#000" /> <polyline id="mur M12" fill="none" stroke="#000000" stroke-width="0.1" points="1810.772,2218.874 1810.772,2228.874 1810.772,2223.874 1805.772,2223.874 1815.772,2223.874 " /> </g> <g id="sous_groupe 2"> <path id="mur M13" d="M 714.274,3026.228Q721.6679,3021.7303 724.3654,3017.3556C726.5549,3013.8046 725.6282,3010.788 726.4913,3006.4139C727.295,3002.3408z" style=" fill:None; stroke:#000" /> <polyline id="mur M14" fill="none" stroke="#000000" stroke-width="0.1" points="1810.772,2218.874 1810.772,2228.874 1810.772,2223.874 1805.772,2223.874 1815.772,2223.874 " /> <g> <polygon id="mur M15" fill="none" stroke="#000000" stroke-width="0.1" points="1810.772,2218.874 1810.772,2228.874 1810.772,2223.874 " /> </g> </g> </g> <g id="autre zone"> <path d="M 691.0583,2905.4721C692.6233,2908.3657 697.6717,2908.9186 691.0583,2905.4721z" style=" fill:None;stroke-width:0.1; stroke:#000" /> </g> </svg>
En svg, la balise <g> correspond aux calques/sous-calques visibles sur un logiciel de dessin vectoriel tel qu'Illustrator.
Il y a donc des <g> dans des <g> un nombre indéterminé de fois.
Je voudrais récupérer les identifiants de ces balises <g> et les saisir en BDD .
Je précise que les <g> n'ont pas forcément d'identifiant unique. Donc pas possible de se reposer là-dessus

A la base, facile, il suffit de faire :
Code:

1 2 3 4 5 6 Dim xNode As IXMLDOMNode, nitem As IXMLDOMAttribute, identifiant as string For Each nitem In xNode.Attributes If nitem.Name = "id" Then dentifiant = nitem.Value End If Next
Mais comment garder les identifiants des <g> dans lesquels sont placés les balises <path>, <polyline> ou autres ?
En clair, en suivant l'exemple plus haut, je voudrais par exemple avoir comme info : le <path> id = "fosse" appartient à zone1 / sous-groupe1
Ce qui implique de savoir où je suis dans l'arborescence et ne pas mélanger les <g> "frères"
Si vous avez une solution, je suis preneur. Si j'ai pas été clair, j'en suis désolé, dites-le moi et je tâcherai de ré-expliquer.
Merci d'avance

21/11/2019, 21h36
Arkham46

Bonjour,

Rien compris. :aie:

Mais on trouve le parent avec parentNode.
Une boucle si besoin de remonter plusieurs niveaux jusqu'à ce que le parentNode soit Nothing.

Bonjour Arkham46,
et merci pour ton tuto sur le sujet, il m'a été bien utile. :merci:
Désolé, oui j'ai du mal à expliquer. :marteau: Mais à ta réponse, tu as compris le principe. :ccool:
Ce que tu proposes, c'est de partir du dernier élément (l'arrière petit-enfant...) pour ensuite remonter les générations.
Suite à ta réponse, j'ai commis ce code :

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
 
Sub parcourir_noeuds(n As IXMLDOMNode)
 
    Dim mesparents As IXMLDOMElement, xNode As IXMLDOMNode,  nitem As IXMLDOMAttribute, identifiant As String
 
    If n.ChildNodes.Length = 0 Then Exit Sub
 
    'je fais le tour des mioches
    For Each xNode In n.ChildNodes
 
        'si je tombe sur une balise de dessin par exemple ici <path>
        If xNode.nodeName = "path" Then
            'je remonte la généalogie pour trouver les identifiants des parents, grands-parents, ...
            Set mesparents = xNode.ParentNode
 
            'tant qu'il existe un parent
            While Not (mesparents.ParentNode Is Nothing)
                   'je parcours les attributs de mon noeud pour chercher les valeurs de mon identifiant : id = "blabla"
                    For Each nitem In mesparents.Attributes
                        If nitem.Name = "id" Then
                            identifiant = nitem.Value
 
                        End If
                    Next
               'je remonte à la génération précédente
                Set mesparents = mesparents.ParentNode
 
            Wend
 
 
        End If
 
 
        'on passe au noeud suivant
 
        Call parcourir_noeuds(xNode)
    Next
 
 
End Sub

Après plusieurs tests, ce code marche mais... je me méfie. Es-ce à ça que tu pensais, est-ce que c'est trop lourd ?
Merci