Lecture XML vb.net

Version imprimable

Lecture XML vb.net

Bonjour,

J'ai le fichier XML

Code:

1
2
3
4
5
6
<?xml version="1.0" encoding="utf-8" ?>
<Param>
  <Param1>test 123</Param1>
  <Param2>test 456</Param2>
  <Param3>test 789</Param3>
</Param>

Voici mon code pour appeler l'élément Param1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load(FICHIER_XML)
        Dim element As XmlNodeList
        element = XmlDoc.DocumentElement.GetElementsByTagName("Param")
        Dim noeud As XmlNode
 
        For Each noeud In element
            Dim listeEnf As XmlNodeList = noeud.ChildNodes
            Dim noeudEnf As XmlNode
            For Each noeudEnf In listeEnf
                If noeudEnf.LocalName = "Param1" Then
                    Dim VAR as string
                    VAR = noeudEnf.InnerText
                End If
            Next
        Next

VAR est vide. J'ai trouvé le code sur un article de Selkis.

Avez-vous une idée pourquoi VAR est vide ?

Merci

XmlDoc.DocumentElement correspond au noeud racine, c'est à dire "<Param>". Et cet élément n'a pas de sous-éléments "<Param>", donc la variable element contient 0 noeuds...

Ce code devrait marcher :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim XmlDoc As XmlDocument = New XmlDocument() XmlDoc.Load(FICHIER_XML) Dim element As XmlNodeList Dim noeud As XmlNode = XmlDoc.DocumentElement Dim listeEnf As XmlNodeList = noeud.ChildNodes Dim noeudEnf As XmlNode For Each noeudEnf In listeEnf If noeudEnf.LocalName = "Param1" Then Dim VAR as string VAR = noeudEnf.InnerText End If Next
Note qu'il ne sert à rien de boucler sur tous les noeuds "<Param>" : vu que c'est l'élément racine, il ne peut y en avoir qu'un seul.

D'autre part, ce n'est certainement pas la méthode la plus efficace pour récupérer un noeud particulier... il vaudrait mieux utiliser XPath par exemple :
Code:

1 2 3 4 5 6 7 Dim XmlDoc As XmlDocument = New XmlDocument() XmlDoc.Load(FICHIER_XML) Dim param1 As XmlNode = XmlDoc.SelectSingleNode("/Param/Param1") If param1 IsNot Nothing Then Dim VAR As String = param1.InnerText End If

Citation:

Envoyé par tomlev

Code:

1
2
3
4
5
6
7
		Dim XmlDoc As XmlDocument = New XmlDocument()
		XmlDoc.Load(FICHIER_XML)
 
		Dim param1 As XmlNode = XmlDoc.SelectSingleNode("/Param/Param1")
		If param1 IsNot Nothing Then
		    Dim VAR As String = param1.InnerText
		End If

Ca marche, c'est plus celui que tu m'as suggéré qui va me servir.

Merci !