Discussion :

[paintbox]

Bonjour à tous,

je débute en VB . J'ai un petit programme en mode console qui demande les nom et prénom de personnes. Je cherche à enregistrer les données des personnes dans un fichier XML.

Cela fonction tant que je ne quitte pas mon programme. Si je quitte et rouvre à nouveau mon programme l'enregistrement se fait mais pas à la suite de ce qui a déjà été encodé -> Perte d'infos.

Je dois avoir loupé un truc pourtant je charge mon fichier xml au début.

Quelqu'un aurait-il une idée ?

Merci

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
        Dim choix As String
        Dim Nom As String
        Dim Prenom As String
        Dim ListePersonne As ArrayList = New ArrayList()
        Dim UnePersonne As Personne
 
        Do
            Console.WriteLine("1 - Créer une nouvelle personne ")
            Console.WriteLine("0 - Quitter ")
            choix = Console.ReadLine()
            If (choix = "exit") Then
                Exit Do
            End If
            Select Case choix
                Case 0
                    Exit Do
                Case 1
                    Console.Write("Nom : > ")
                    Nom = Console.ReadLine()
                    Console.Write("Prénom : > ")
                    Prenom = Console.ReadLine()
                    UnePersonne = New Personne(Nom, Prenom)
                    ListePersonne.Add(UnePersonne)
                Case Else
                    Exit Select
            End Select
        Loop
 
 
 
        ' Le fichier XML
        ' --------------
        ' 1° Création d'une nouvelle instance
        Dim XmlDoc As XmlDocument = New XmlDocument()
        Dim FileName As String = "MonTestXML.xml"
 
        ' 2° Vérification de l'existance du fichier
        If File.Exists(FileName) Then
            XmlDoc.Load(FileName.ToString())
        End If
 
        Dim Root As XmlElement
        Dim elementBook As XmlNode
        Dim elementNom As XmlNode
        Dim elementPrenom As XmlNode
 
        Root = XmlDoc.CreateElement("Library")
 
        For Each UnePersonne In ListePersonne
            ' Creation de la balise Book
            elementBook = XmlDoc.CreateElement("Book")
 
            ' Creation de la balise Nom
            elementNom = XmlDoc.CreateElement("Nom")
            elementNom.InnerText = UnePersonne.Nom
 
            ' Creation de la balise Prenom
            elementPrenom = XmlDoc.CreateElement("Prenom")
            elementPrenom.InnerText = UnePersonne.Prenom
 
            elementBook.AppendChild(elementNom)
            elementBook.AppendChild(elementPrenom)
            Root.AppendChild(elementBook) ' Ajout après le noeud Book
        Next
        If Not File.Exists(FileName) Then
            XmlDoc.AppendChild(Root)
        End If
        XmlDoc.Save(FileName)
        MsgBox("REUSSI")
 
    End Sub

[paintbox]

Je viens de trouver la solution.

Il faut en fait rechercher le dernier noeud et ajouter les nouvelles données à la suite de ce dernier noeud.

Ce qui se fait comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
...
        If Not File.Exists(FileName) Then
            XmlDoc.AppendChild(Root)
        Else
            XmlDoc.LastChild.AppendChild(Root)
        End If
...

Merci