Discussion :

[djedje-08]

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 :

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

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

[François DORIN]

Bonjour,

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

Code XML :

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

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

[djedje-08]

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 :

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

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

[François DORIN]

Ca me semble correct

[djedje-08]

Impec alors !
Merci beaucoup pour ton aide