Fichier .Txt
Résolu
anspauldou
Messages postés
42
Date d'inscription
lundi 14 janvier 2002
Statut
Membre
Dernière intervention
30 juin 2016
-
12 nov. 2005 à 13:51
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 13 nov. 2005 à 01:16
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 13 nov. 2005 à 01:16
2 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
13 nov. 2005 à 01:16
13 nov. 2005 à 01:16
Bonsoir,
Place sur ta Form un CommandButton (propriété Name: cmdEnregistrer) et un TextBox (propriété Multiligne à True)
Private Sub cmdEnregistrer_Click()
'Création du fichier et enregistrement des données écrites dans le TextBox.
Open "C:\TonFichier" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Form_Load()
Dim texte, tout, crlf
On Error Resume Next
crlf = Chr$(13) + Chr$(10)
'Ouverture et lecture du fichier
Open "C:\TonFichier" For Input As #1
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
End If
Text1.Text = tout
Close #1
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Place sur ta Form un CommandButton (propriété Name: cmdEnregistrer) et un TextBox (propriété Multiligne à True)
Private Sub cmdEnregistrer_Click()
'Création du fichier et enregistrement des données écrites dans le TextBox.
Open "C:\TonFichier" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Form_Load()
Dim texte, tout, crlf
On Error Resume Next
crlf = Chr$(13) + Chr$(10)
'Ouverture et lecture du fichier
Open "C:\TonFichier" For Input As #1
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
End If
Text1.Text = tout
Close #1
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
12 nov. 2005 à 14:30
12 nov. 2005 à 14:30
Salut
As-tu remarqué la première zone sous la pub : "Rechercher sur ce site" :
Tape "fichier texte" dedans et tu trouveras ton bonheur
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 la partage. (Socrate)
As-tu remarqué la première zone sous la pub : "Rechercher sur ce site" :
Tape "fichier texte" dedans et tu trouveras ton bonheur
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 la partage. (Socrate)
