Tester l'existence d'un noeud XML

Version imprimable

Bonjour à tous,
Mon problème est simple, pourtant je butte dessus depuis plusieurs heures.
Malgré mes recherches sur le net, je ne parviens pas à trouver la solution :
Je cherche à tester l’existence d'un noeud spécifique dans une fichier XML.
Je pense donc utiliser le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim doc As New XmlDocument() doc.Load(NomFichier) Dim test As XmlNode Dim test_List As XmlNodeList = doc.SelectNodes("//I1_A1_L1") For Each test In test_List MsgBox(test.Attributes.Count) If test.Attributes.Count > 0 Then MsgBox("Trouvé") Else MsgBox("pas trouvé") End If Next
Pourtant ce code ne fonctionne pas.

Si le noeud est trouvé, j'ai le premier message avec le chiffre 0 et un second message "non trouvé"
Je peux comprendre ça : le premier noeud trouvé à l'index 0
Mais si le noeud n'est pas trouvé, je n'ai aucun message ...

Comment est-ce que je peux faire pour afficher le message trouvé quand le noeud existe et inversement ?

Merci d'avance pour votre aide

21/02/2017, 06h58
François DORIN

Bonjour,

Tu mélanges élément et attribut, d'où ta confusion.

Code:

<Element attr1="xxx" attr2="yyy"> ... </Element>

"Element" correspond à un élément, "attr1" et "attr2" à des attributs.

Ton code, recherche des éléments et pour chacun d'entre eux, tu regardes le nombre d'attributs. Si ce dernier est nul, tu affiches le message "pas trouvé". Dans le cas contraire "trouvé".

Mais la présence d'attributs ne signifie rien quand à l'existence de l'élément. La seule chose sur c'est que si tu as au moins un attribut, ton élément existe. Mais si tu n'en as pas, tu ne peux rien dire quant à l'existence de ton élément.

Ici, il faut simplement que tu regardes la taille de la collection de noeud test_List. Si elle est nulle, c'est que l'élément n'est pas trouvé.

Merci de passer du temps pour répondre à ma question.
J'ai modifier mon code comme suit et il a l'air de fonctionner, mais j'aimerai la confirmation que mon code est correct :

Code:

1
2
3
4
5
6
7
8
9
 
        Dim doc As New XmlDocument()
        doc.Load(NomFichier)
        Dim test_List As XmlNodeList = doc.SelectNodes("//I1_A1_L1") 
         If test_List.Count > 0 Then
            MsgBox("Trouvé")
        Else
            MsgBox("pas trouvé")
        End If

21/02/2017, 12h46
François DORIN

Ca me semble correct ;)
21/02/2017, 16h10
djedje-08

Impec alors !
Merci beaucoup pour ton aide :)