Discussion :

[Kreepz]

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 :

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
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...

[strikel]

tu as essayé en incluant les create dans ta boucle for ?!

là tu fais ton create de ton élément avant ta boucle puis tu te sers du même élément pour toutes tes personnes.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
 
 
            XmlDoc.LoadXml("<lesPersonnes></lesPersonnes>")
 
 
            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
                catPersonne = XmlDoc.CreateElement("PERSONNE")
 
                elemCivilite = XmlDoc.CreateElement("CODE_CIVI")
                elemNom = XmlDoc.CreateElement("NOM_ASSURE")
                elemPrenom = XmlDoc.CreateElement("PRENOM_ASSURE")
               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 ) 
 
            Next
 
            XmlDoc.Save("C:\Users\*****\Desktop\****\XML\" & nomDocument)

[Kreepz]

tu as essayé en incluant les create dans ta boucle for ?!

là tu fais ton create de ton élément avant ta boucle puis tu te sers du même élément pour toutes tes personnes.

Je venais juste de le tester et c'est bon!

Merci!