Discussion :

[TheBlackReverand]

Bonjour,

j'ai dans mon programme 2 listbox a enregistrè a chaque fin de programme.

j'ai donc "lstDefinition" et "lstMot"

j'ai mis en place le code d'ecriture dans "Form/Terminate" et le code de lecture dans 1 Bouton

je lance le programme, j'y insert des valeurs, je ferme, je vais voir mes 2 fichiers(lstDefinition.lst et lstMot.lst) deja je suis surpris car il sont vide(0Ko). je relance, chargement et la avec moins de surprise rien....

le problème viens donc de l'écriture. je comprend le code et je vois pas d'ou pourrais provenir l'erreur...

merci a vous

PS: la diference est que j'utilise Write au lieu de Print et je n'ai pas utilise EOF(je sais pas a quoi il sert)

[Phifi]

Bonjour,

EOF = End Of File.

Voyons un peu de ce code !

[TheBlackReverand]

code d'ecriture qui s'execute a la fermeture de l'unique feuille du programme

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
 
Private Sub Form_Terminate()
'Lecture du nombre d'objet dans les listes
NbreDef = lstDef.ListCount
 
'Sauvegarde des variables
Open App.Path & "\" & "save.txt" For Append As #1
Write #1, NFaute; NBien;
Close #1
 
'Sauvegarde de la liste de definition
Open App.Path & "\" & "Definition.lst" For Append As #2
Close #2
Open App.Path & "\" & "Definition.lst" For Output As #2
For i = 0 To lstDef.ListCount - 1
    lstDef.ListIndex = i
    Write #2, lstDef.Text
Next
Close #2
 
'Sauvegarde de la liste de mot
Open App.Path & "\" & "Mot.lst" For Append As #3
Close #3
Open App.Path & "\" & "Mot.lst" For Output As #3
For i = 0 To lstMot.ListCount - 1
    lstMot.ListIndex = i
    Print #3, lstMot.Text
Next
Close #3
 
End Sub

code de lecture contenu pas 1 bouton de commande

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
Private Sub cmdChargement_Click()
'Chargement des variables
Open App.Path & "\" & "save.txt" For Input As #1
Input #1, NFaute, NBien
Close #1
 
'Chargement de la liste de definition
Open App.Path & "\" & "Definition.lst" For Input As #2
For i = 0 To NbreDef - 1
    Input #2, Tempo$
    lstDef.AddItem (Tempo$)
Next
Close #2
 
'Chargement de la liste de mot
Open App.Path & "\" & "Mot.lst" For Input As #3
For i = 0 To NbreDef - 1
    Input #3, Tempo$
    lstMot.AddItem (Tempo$)
Next
Close #3
 
'Redistribution du focus
If optTest.Value = True And optParam.Value = False Then
    txtRep.SetFocus
ElseIf optParam.Value = True And optTest.Value = False Then
    txtMot.SetFocus
End If
 
End Sub

[AlainTech]

Juste pour ne pas mourir idiot...

Ca sert à quoi ton

Code :

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

1
2
Open App.Path & "\" & "Definition.lst" For Append As #2
Close #2

juste avant le Open For Output?

[TheBlackReverand]

A la 1er exection les fichiers de sauvegarde n'existe pas
OutPut ne fait que de l'écriture et Append crèè si le fichier n'existe pas

1er execution:
ouverture lecture seul et creation
fermeture
ouverture en ecriture seul

N-iéme execution:
ouverture lecture seul
fermeture
ouverture en ecriture seul

[AlainTech]

Un Open For Output crée le fichier s'il n'existe pas...

Edit: Et pas seulement s'il n'existe pas.
Merci delbeke de m'avoir corrigé.

[Delbeke]

Nan, c'est pas comme çà que ca marche
L'ouverture en OutPut écrase le fichier s'il existe déjà et en crée un nouveau
L'ouverture en Append ouvre un fichier existant ou en cree un nouveau s'il n'existe pas. Les ecritures dans le fichier se feront apres la fin du fichier existant.
Donc, dans

Code :

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

1
2
3
4
5
6
7
8
9
'Sauvegarde de la liste de definition
Open App.Path & "\" & "Definition.lst" For Append As #2
Close #2
Open App.Path & "\" & "Definition.lst" For Output As #2
For i = 0 To lstDef.ListCount - 1
    lstDef.ListIndex = i
    Write #2, lstDef.Text
Next
Close #2

Code :

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

1
2
Open App.Path & "\" & "Definition.lst" For Append As #2
Close #2

ne sert strictement à rien.

Code :

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

Open App.Path & "\" & "Definition.lst" For Output As #2

Ecrase le fichier App.Path & "\" & "Definition.lst" et en recréée un nouveau completement vide.