Fichier en vb6

Résolu
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
j'ai plusieurs zone texte ! et je veux ecrire et lire chaque zone texte a partir de 2 bouttons ecrire et lire ... !
?
Private Sub cmdDecrire_Click()
Open "C:\vb\Fichier.Txt" For Output As #1 'on ouvre le fichier'
Print #1, Txtdescr.Text ' on ecrit dans le fichier'
Close #1
Open "C:\vb\Fichier.Txt" For Output As #1
Print #1, Txtjour.Text
Print #1, Txtmois.Text
Print #1, Txtanne.Text
Print #1, Txtimpo.Text
End Sub

3 réponses


Comme dirait Creton (cf La petite vie) : "Vous pouvez répéter la question ?"
j'ai plusieurs zone texte ! je veut l'ecrire dans le fichier a la fois!!!
si je met
Private Sub cmdDecrire_Click()
Open "C:\vb\Fichier.Txt" For Output As #1 'on ouvre le fichier'
Print #1, Txtdescr.Text ' on ecrit dans le fichier'
Close #1
ca marche mais si j'ajoute Print #1, Txtjour.Text
Print #1, Txtmois.Text
Print #1, Txtanne.Text
Print #1, Txtimpo.Text
ne marche pas......
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
81
Pas bonjour non plus

Private Sub cmdDecrire_Click()
    Open "C:\vb\Fichier.Txt" For Output As #1
    Print #1, Txtdescr.Text
    ' Ici, tu fermes ton fichier
    Close #1  
    ' Ici, tu réouvres le même fichier
    ' Les données écrites juste au dessus seront perdues
    Open "C:\vb\Fichier.Txt" For Output As #1 
    Print #1, Txtjour.Text
    Print #1, Txtmois.Text
    Print #1, Txtanne.Text
    Print #1, Txtimpo.Text
    ' Ici, manque un Close
End Sub

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)