Ecriture en boucle dans un fichier xml
Bonjour,
Je me retrouve confronté à un problème.
Je souhaite écrire en boucle dans un fichier xml, lors de l'écriture une à une cela ce passe correctement mais dès lors que je le fais en boucle non :?
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
XmlDoc.LoadXml("<lesPersonnes></lesPersonnes>")
catPersonne = XmlDoc.CreateElement("PERSONNE")
elemCivilite = XmlDoc.CreateElement("CODE_CIVI")
elemNom = XmlDoc.CreateElement("NOM_ASSURE")
elemPrenom = XmlDoc.CreateElement("PRENOM_ASSURE")
If Exists("C:\Users\*****\Desktop\****\XML\" & nomDocument) Then
XmlDoc.Load("C:\Users\****\Desktop\****\XML\" & nomDocument)
End If
'on rentre dans la boucle
Dim i As Integer = Nothing
For i = 0 To personne.count - 1
personne = personne(i)
'On affecte les variables
elemCivilite.InnerText = civilite
elemNom.InnerText = nom
elemPrenom.InnerText = prenom
'On met tout dans le doc
catPersonne .AppendChild(elemCivilite)
catPersonne .AppendChild(elemNom)
catPersonne .AppendChild(elemPrenom)
XmlDoc.DocumentElement.AppendChild(catPersonne )
XmlDoc.LastChild.AppendChild(catPersonne )
Next
XmlDoc.Save("C:\Users\*****\Desktop\****\XML\" & nomDocument) |
Et le problème est lors de l'enregistrement de plusieurs personnes lors du passage dans la boucle il ne trouve pas le dernier noeud et n'écrit pas après, alors quand écrivant un à un il le fait très bien...
