lire fichier text dans objet

Question

Bonjour a tous

je souhaite ouvrir un fichier dans des objets

Saisie.textbox de 0 a 10
Prix.textbox de 0 a 10
Paiment.textbox de 0 a 10
Reste.textbox de 0 a 10

et qui a été au préalable enregistré dans un fichier txt  comme ci dessous

Open App.Path & "\exemple.txt" For Output As #1
For I = 0 To 10
Print #1, Saisie(I).Text
Print #1, Prix(I).Text
Print #1, Paiment(I).Text
Print #1, Reste(I).Text
Next I
Close #1

avez vous la solution svp  ?                   merci.

cs_DARKSIDIOUS · Answer

Salut,

Et bien il te suffit de faire l'inverse : lire ligne à ligne le fichier, et charger tes contrôles :

Sauvegarde :
Open App.Path & "\exemple.txt" For Output As #1
For I = 0 To 10
Print #1, Saisie(I).Text & vbcrlf
Print #1, Prix(I).Text  & vbcrlf
Print #1, Paiment(I).Text  & vbcrlf
Print #1, Reste(I).Text  & vbcrlf
Next I
Close #1

Chargement :
Dim sDonnee as string
Open App.Path & "\exemple.txt" For input As #1

For I = 0 To 10
line input #1, sDonnee
Saisie(I).Text = sDonnee

line input #1, sDonnee
Prix(I).Text  = sDonee
line input #1, sDonnee
Paiment(I).Text  = sDonnee
line input #1, sDonnee
Reste(I).Text = sDonnee

Next I

Close #1
______________________________________
DarK Sidious

jbdu22 · Answer

je te remercie Darksidious

ma formule n'était pas très loin mais ne fonctionnait pas


Open App.Path & "\exemple.txt" For input As #1

For I = 0 To 10
input #1, Valeur
Saisie(I).Text = Valeur
Next I

For I= 0 To 10
input #1, Valeur
Prix(I).Text = Valeur
Next I

etc ..............

Close #1

Encore merci ..

Lire fichier text dans objet

2 réponses

Votre réponse

Discussions similaires