Discussion :

[Florian54]

Bonjour,

Dans le cadre de mon travail, je dois développer une application.
Souhaitant proposer un paramétrage simple, j'ai choisi d'utiliser un fichier XML.

Voici mon code "test" :

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
 
        Dim XmlDoc As XmlDocument = New XmlDocument()
        Dim element As XmlNodeList
        Dim noeud, noeudEnf As XmlNode
        Dim url As String = Application.StartupPath & "\config.xml"
        XmlDoc.Load(url)
        element = XmlDoc.DocumentElement.GetElementsByTagName("KelioData")
        For Each noeud In element
            For Each noeudEnf In noeud.ChildNodes
                If (noeudEnf.LocalName = "test") Then
                    MsgBox("ok")
                End If
 
            Next
        Next

Le fichier XML :

<KelioData>
<test>tutu</test>
</KelioData>

Comme vous pouvez le voir, je tente simplement de sortir ce qu'il y a entre mes balises test.
Par contre, d'après mes tests, je ne rentre même pas dans mon premier for each.

Si quelqu'un a une idée, je suis preneur.

Merci !

[Sehnsucht]

Bonsoir,

Ton souci, vient du fait qu'en faisant XmlDoc.DocumentElement tu te places déjà sur ta balise KelioData et donc la méthode GetElementsByTagName("KelioData") ne renvoie rien (en effet la balise KelioData n'a pas d'éléments KelioData)

Il suffit donc de juste écrire XmlDoc.GetElementsByTagName("KelioData") pour que cela fonctionne, mais...

Parce qu'il y a un mais, KelioData représente ton noeud racine, et un document xml bien formé ne peut en contenir qu'un seul, donc boucler sur eux ne rime à rien, tu n'auras qu'un seul "tour de boucle" et par conséquent ton For Each extérieur est inutile, tu peux donc réécrire ceci de la sorte.

Code :

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

1
2
3
4
5
6
7
 
XmlDoc.Load(url)
For Each noeudEnf In XmlDoc.DocumentElement.ChildNodes
    If noeudEnf.LocalName = "test" Then
         MsgBox("ok")
    End If
Next

voire carrément (avec utilisation de variables au besoin, là c'est surtout pour des raisons de concision)

Code :

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

1
2
3
4
5
 
XmlDoc.Load(url)
For Each noeudEnf In XmlDoc.DocumentElement.GetElementsByTagName("test")
     MsgBox("ok")
Next

Pense à vérifier la syntaxe, je n'ai pas testé le code et j'ai plus l'habitude d'utiliser des XDocument que des XmlDocument, au passage je mets ici le code équivalent avec un XDocument (et je me sers d'une possibilité VB.Net au passage les "xml-literal")

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
 
Dim xDoc As XDocument = XDocument.Load(url)
 
' Récupère tous les éléments directs de la racine nommés <test>
' renvoie un IEnumerable(Of XElement)
Dim testContent = xDoc.Root.<test>
 
For Each content In testContent
    MessageBox.Show(content.Value) 'Affichera "tutu" avec ton exemple
    'MessageBox.Show(content) ' afficherait <test>tutu</test> avec ton exemple
Next
 
'On pourrait aussi faire
'Dim contents = From content xDoc.Root.<test> Select content.Value
' qui renverrait un IEnumerable(Of String) ne stockant que les contenus (ici uniquement "tutu" donc

Cordialement !

[gilles_906]

Bonjour

Lorsque j'écris cette boucle

Code :

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

1
2
3
4
For Each content In testContent
    MessageBox.Show(content.Value) 'Affichera "tutu" avec ton exemple
    'MessageBox.Show(content) ' afficherait <test>tutu</test> avec ton exemple
Next

j'ai content qui est souligné comme quoi il n'est pas déclaré.

Pourtant j'ai bien importé ca:

Code :

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

1
2
3
4
Imports System.Linq
Imports System.Data
Imports System.Xml.Linq
Imports System.Xml

Il y a t il autre chose a importer ou a faire pour que cela fonctionne?

Merci d'avance