la copie de noeud XML ne fonctionne pas avec moi...

Voila mon souci.

Je voudrai copier le premier n½ud dans les n½uds suivants.

Le XML du départ


<root>
<new>
<b></b>
</new>

<num id="1">
<a>un</a>
</num>

<num id="2">
<a>deux</a>
</num>

<num id="3">
<a>trois</a>
</num>
</root>

et si possible à l'arrivée

<root>
<num id="1">
<a>un</a>
<new id="1">
<b></b>
</new>
</num>

<num id="2">
<a>deux</a>
<new id="2">
<b></b>
</new>
</num>

<num id="3">
<a>trois</a>
<new id="3">
<b></b>
</new>
</num>
</root>


mon le traitement je développe an VB6

Dim xmlDoc As New DOMDocument
Dim dom As DOMDocument

Dim newNode As IXMLDOMElement
Dim curNode As IXMLDOMNodeList
Dim i As Integer

Dim xmlString As String

Call xmlDoc.Load(App.Path & "\truc.xml")
Debug.Print xmlDoc.xml

Set newNode = xmlDoc.selectSingleNode("root/new")
Set curNode = xmlDoc.selectNodes("root/num")

For i = 0 To 2
Call newNode.setAttribute("id", i + 1)
Call curNode.Item(i).appendChild(newNode)

Debug.Print xmlDoc.xml
Next




le problème est que le nouveau n½ud est bien copier lors du passages dans la boucle
mais au passage suivant je perds le n½ud copié
au final le nouveau n½ud est seulement copié dans le dernier n½ud (num) car il a écrasé les autres


alors comment faire pour conserver touts les nouveaux n½uds ???

merci

ton probleme vient probeblement du fait que
appendChild coupe newNode et le colle au nouvel endroit
appendChild coupe/colle et non copie/colle

il faut recopier newNode dans un nouveau node avant de l'"appendChilder".
attention a ne pas faire une simple copie de pointeur (qui n'aurait aucun effet)

Zan