Discussion :

[eagleleader]

Bonjour à toutes et à tous,

J'ai posté une question dans le forum VBScript http://www.developpez.net/forums/sho...d.php?t=557709

Le problème est le suivant : Je n'arrive pas à déterminer si un Node existe dans le document et auquel cas ajouter un node dans ce Node qui existe.
Et dans le cas où il n'existe pas alors il faudrait que je puisse le créer.

Cordialement,

[eagleleader]

Pour ceux que cela intéresse, voici la solution

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
17
18
19
20
 
Set oElement = xmlDoc.selectSingleNode("Racine/" & NomElement)
 
	If Not oElement Is Nothing Then
 
		Set oNode = xmlDoc.createElement(NomNode)
		oNode.Text = Valeur
		oElement.appendChild(oNode)
 
	Else
 
		Set oElement = xmlDoc.selectSingleNode("/Racine")  ' positionnement sur la racine
		Set oElement = xmlDoc.createElement(NomElement)    ' création d'un fils membre
		xmlDoc.documentElement.appendChild(oElement)       ' crée le fils de la racine
 
		Set oNode = xmlDoc.createElement(NomNode)
		oNode.Text = Valeur
		oElement.appendChild(oNode)
 
	End If