Lire XML avec Vb.NET

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:

---

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 :

Citation:

---

<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 !

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:

---

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:

---

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:

---

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 !

Bonjour

Lorsque j'écris cette boucle

Code:

---

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:

---

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