Hiérarchiser des noeuds en XML

Bonjour à tous,
Je travaille dans un fichier XML organisé comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<ERGIL>
  <Version>1.0</Version>
  <I_NB>1</I_NB>
  <I1>
    <I1_Actif>True</I1_Actif>   
    <I1_A_NB>1</I1_A_NB>
	<I1_A1>
		<I1_A1_Actif>True</I1_A1_Actif>
		<I1_A1_PceNb>1</I1_A1_PceNb>
		<I1_A1_Pce1>
			<I1_A1_P1_Nom>Pièce n°1</I1_A1_P1_Nom>			
		</I1_A1_Pce1>		
    </I1_A1>
  </I1>
</ERGIL>

J'ai besoin de créer de nouveaux nœuds au même niveau que "I1_A1_Pce1 et "I1_A1_P1_Nom", je pensais donc utiliser le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Dim noeud As XmlNode = doc.DocumentElement
        Dim noeudRacine As XmlNode = doc.DocumentElement
 
        Dim ANB As XmlElement = doc.SelectSingleNode("I1_A1") 'I" & LblImmeuble_Org.Tag & "_A" & LblAppart_Org.Tag)
 
 
        Dim PNB As XmlElement
        PNB = doc.CreateElement("I1_A1_Pce" & NbPieces)
        PNB.InnerText = ""
        ANB.AppendChild(PNB)
 
        Dim PceNom As XmlElement
        PceNom = doc.CreateElement("I1_A1_P" & NbPieces & "_Nom")
        PceNom.InnerText = " "
        PNB.AppendChild(PceNom)

cependant, ce code ne fonctionne pas ANB ne semble pas reconnu.

J'ai donc essayé comme suit :

Code:

1
2
3
4
Dim ANB As XmlElement 
        For Each noeud1 In noeudRacine.ChildNodes
            If noeud1.Name = "I1_A1" & "_Pce" & NbPieces Then ANB = noeud1
        Next

Mais rien n'y change.
Quelqu'un aurait une idée pour solutionner mon problème ?

Merci d'avance :)

Salut,

la fonction SelectSingleNode s'attend à un XPath, pas juste un identifiant qu'il devrait trouver en pronfondeur. Pour la syntaxe du XPath je te laisse chercher sur le net, mais pour faire vite, dans ton cas, ce serait plutôt un truc du genre (à vérifier) :

Code:

Dim ANB As XmlElement = doc.SelectSingleNode("//I1_A1")

Bon dev.

Impec, ça fonctionne nickel !
En plus c'est bien plus simple que ce que je pensais faire :)

Merci beaucoup ;)