Discussion :

[tito55]

Bonjour,

J'ai le fichier XML

Code :

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

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 :

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

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

[tomlev]

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 :

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

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 :

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

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

[tito55]

Code :

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

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 !