Sauvegarde par ligne

Question

Bonjour tout le monde !!

 J'ai encore un problème : je sais sauvegarder dans un fichier texte. Ce que je voudrais, c'est pouvoir ressortir les informations ligne par ligne. Exemple :

   Pour sauvegarder :

Open App.Path & "\Save.sav" For Append As #1
Print #1, Text1.Text
Close #1

   
   Pour Charger : 

Open App.Path & "\Save.sav" For Input As #1
Do
Input #1, Tmp2
Tmp = Tmp & Tmp2
Loop Until EOF(1)
Close #1
 Et moi je voudrais par exemple que label1.caption ligne 1 du fichier de sauvegarde, label2.caption ligne 2 du fichier de sauvegarde... etc ...

                       Merci d'avance                       Sebleboss2002

Vbsupernul · Answer

alors
tu fais

Open App.Path & "\Save.sav" For Input As #1
Do
Input #1, Tmp2
ligne= #1
Tmp = Tmp & Tmp2
if label1.caption = "" then
label1.caption = ligne
else
label2.caption=ligne
end if
Loop Until EOF(1)
Close #1

non ?

@+
Vbsupernul (à force de poster des sos, je vais finir par devenir moins nul  :clown) )

cs_rene38 · Answer

Bonjour

Pourquoi pas mettre ces lignes dans une ListBox plutôt que dans des Label ?

JeffLC · Answer

La fonction Line Input # lit une et une seule ligne d'un fichier séquentiel.
Donc dans ton cas 
Line Input #1, Tmp2 stocke la ligne courante dans la variable Tmp2 et avance dans le fichier à la ligne suivante.

sebleboss2002 · Answer

Merci beaucoup JeffCL sa marche super bien !!!!

ngfr · Answer

Bonjour,

VB me renvoi une erreur de syntaxe à la ligne :
ligne = #1

Merci d'avance

Sauvegarde par ligne

5 réponses

Discussions similaires