Enregistrer les TextBox dans fichier txt

[Résolu]
Signaler
Messages postés
6
Date d'inscription
mardi 9 novembre 2004
Statut
Membre
Dernière intervention
1 janvier 2005
-
Messages postés
6
Date d'inscription
mardi 9 novembre 2004
Statut
Membre
Dernière intervention
1 janvier 2005
-
Salut et Bonne Annee a tous,

voila je cherche a enregister toutes les textbox d'une Form dans un fichier texte a la fermeture de celle-ci et les rehcargees a la reouverture du programme en lisant le fichier txt

j'arrive bien a enregistrer les textbox a la fermeture mais pas a les reilire
mon code pour enregistrer les textbox a la fermeture est:

Private Sub Form_Unload(Cancel As Integer)
Dim SavSet As Integer
SavSet = FreeFile
Open App.Path & "\sav.txt" For Output As #SavSet
Print #SavSet, "Text1.text = " & Text1.Text
Print #SavSet, "Text2.text = " & Text2.Text
Print #SavSet, "Text3.text = " & Text3.Text
Print #SavSet, "Text4.text = " & Text4.Text
Print #SavSet, "Text5.text = " & Text5.Text
Close #SavSet
End Sub

Merci d'avance pour cotre aide @+

If All_else = fails then read (the manual!) :big)

4 réponses

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
29
    Dim s      As String
    Dim SavSet As Integer
    SavSet = FreeFile
    Open App.Path & "\sav.txt" For Input As #SavSet
    Line Input #SavSet, s: Text1.Text = Mid$(s, 14)
    Line Input #SavSet, s: Text2.Text = Mid$(s, 14)
    Line Input #SavSet, s: Text3.Text = Mid$(s, 14)
    Line Input #SavSet, s: Text4.Text = Mid$(s, 14)
    Line Input #SavSet, s: Text5.Text = Mid$(s, 14)
    Close #SavSet


Daniel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
29
oui c'est gênant pour le multiligne à cause de la présence de fin de Ligne qui marque aussi la fin de l'enregistrement
avant de sauvegarder il faut remplacer par 1 caractère non utilisés.
à la sauvegarde:
s = Replace(Text5, vbCrLf, Chr$(255) )
Print #SavSet, "Text5.text = " & s
à la lecture:
Line Input #SavSet, s: Text5.Text = Replace(Mid$(s, 14), Chr$(255), vbCrLf)

Daniel
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
6
Date d'inscription
mardi 9 novembre 2004
Statut
Membre
Dernière intervention
1 janvier 2005

Salut Gobillot,

Merci beacoup ca marche tres bien :)

Par contre j'avais oublier de presiser que dans les TextBox y en a un qui est en multiligne :( y a t'il une sollution ds ces cas la ?
sinon tanpis pour ce TextBox la

merci encore @+

If All_else = fails then read (the manual!) :big)
Messages postés
6
Date d'inscription
mardi 9 novembre 2004
Statut
Membre
Dernière intervention
1 janvier 2005

Mouarf wai...

j'etais partis ds sur la meme idee mais j'etais entrain de me compliquer grave la vie
merci mille fois @+
Bonne Prog et Bonne Annee :)

If All_else = fails then read (the manual!) :big)