Discussion :

[Manulegosny]

Voilà la routine récursive avec laquelle j'ajoute mes nodes.

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
Private Sub AddChildNodes(ByVal XMLNode As Xml.XmlNode, ByVal ParentNode As TreeNode)
 
        Dim ChildXMLNode As Xml.XmlNode
        Dim NewNode As TreeNode
 
        For Each ChildXMLNode In XMLNode.ChildNodes
            NewNode = ParentNode.Nodes.Add(ChildXMLNode.Attributes(0).Value)
            If NewNode.Level = 5 Then
                Dim parametres(1) As String
                parametres(0) = ChildXMLNode.Attributes("observe").Value.ToString
                parametres(1) = ChildXMLNode.Attributes("chemin").Value.ToString
                NewNode.Tag = parametres
            End If
            If ChildXMLNode.ChildNodes.Count > 0 Then
                AddChildNodes(ChildXMLNode, NewNode)
            End If
        Next
 
    End Sub

On voit bien que je charge les attributs "observe" et "chemin" dans paramètres si le node est de niveau 5.
Dans l'absolu j'aimerai que ça fonctionne pour les noeuds de tout niveau.
Sauf que pour les noeuds de niveau 0, 1, 2, 3, 4, les attributs "observe" et chemin" n'existent pas.

Voilà ma question :

Comment connaitre la liste des attributs d'un node donné (ici ChildXMLNode) ?
Merci d'avance !
Sam

[Manulegosny]

Bon je me réponds tout seul

Je suis idiot, à croire qu'il faut parfois écrire les choses pour mieux les voir ...
La solution tient dans :

Code :

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

1
2
3
   Dim enumere As XmlAttributeCollection = ChildXMLNode.Attributes
            If enumere.Count < 4 Then
...