Discussion :

[JEF95]

Débutant en Purebasic, je me trouve face à un problème. J'ai réussi à créer un fichier .txt avec mes données. Mais quand je veux ajouter de nouvelles données à ce fichier, il me
les ajoute bien, mais supprime celles précédemment entrées.

pouvez-vous me venir en aide ?

Merci beaucoup.

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
;------------------------------------------------------------------ Première Partie
 
TbComb.S(1)="13,16,18,19,20"
TbComb.S(2)="14,15,16,18,20"
TbComb.S(3)="14,15,18,19,20"
TbComb.S(4)="15,16,17,18,20"
 
 
 
    If OpenFile(0, "c:\Nouveau Dossier\Test4.txt")    
      FileSeek(0, Lof(0))                           
      For X=1 To fin
         WriteStringN(0, TbComb.S(X))
      Next
    CloseFile(0)
   EndIf
 
;--------------------------------------------------------- Deuxieme Partie, ajout de nouvelles données
 
TbComb.S(5)="23,26,28,29,30"
TbComb.S(6)="24,25,26,28,30"
TbComb.S(7)="24,25,28,29,30"
TbComb.S(8)="25,26,27,28,30"
 
 
 
    If OpenFile(0, "c:\Nouveau Dossier\Test4.txt")    
      FileSeek(0, Lof(0))                           
      For X=1 To fin
         WriteStringN(0, TbComb.S(X))
      Next
    CloseFile(0)
   EndIf

[comtois]

j'ai remplacé la variable 'fin' qui n'est pas définie dans ton prog, et ça fonctionne très bien chez moi

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
;------------------------------------------------------------------ Première Partie
 
Dim TbComb.s(8)
TbComb.S(1)="13,16,18,19,20"
TbComb.S(2)="14,15,16,18,20"
TbComb.S(3)="14,15,18,19,20"
TbComb.S(4)="15,16,17,18,20"
 
 
 
    If OpenFile(0, "g:\Test4.txt")    
      FileSeek(0, Lof(0))                           
      For X=1 To 4
        WriteStringN(0, TbComb.S(X))
      Next
    CloseFile(0)
   EndIf
 
;--------------------------------------------------------- Deuxieme Partie, ajout de nouvelles données
 
TbComb.S(5)="23,26,28,29,30"
TbComb.S(6)="24,25,26,28,30"
TbComb.S(7)="24,25,28,29,30"
TbComb.S(8)="25,26,27,28,30"
 
 
 
    If OpenFile(0, "g:\Test4.txt")    
      FileSeek(0, Lof(0))                           
      For X=5 To 8
         WriteStringN(0, TbComb.S(X))
      Next
    CloseFile(0)
   EndIf

[JEF95]

Merci beaucoup Comtois