sabou94
Messages postés158Date d'inscriptionvendredi 12 mars 2004StatutMembreDernière intervention17 avril 2007
-
1 avril 2005 à 14:45
sabou94
Messages postés158Date d'inscriptionvendredi 12 mars 2004StatutMembreDernière intervention17 avril 2007
-
3 avril 2005 à 16:28
Bonjour,
j'aimerais savoir comment on crée un fichier texte (creation, lecture,
fermeture), connaissez vous un site qui parle de ca ou m'expliquer vous
meme? (en VB6) google ne m'aide pas aujourd'hui.... merci d'avance!!!
crenaud76
Messages postés4172Date d'inscriptionmercredi 30 juillet 2003StatutMembreDernière intervention 9 juin 200628 1 avril 2005 à 14:56
Ouverture d'un fichier texte en mode Lecture : Open "Monfichier.txt" for input As #1
Ouverture d'un fichier texte en mode Ecriture : Open "Monfichier.txt" for output As #1
Ouverture d'un fichier texte en mode Ajout : Open "Monfichier.txt" for Append As #1
Le #1 représente le N° de fichier ouvert : Si tu ouvre plusieurs fichier en même temp, il doivent tous avoir un N° unique. La fonction Freefile peut t'aider en te retournant le prochain N° de ficheir disponible pour ouvrir un nouveau fichier
Fermeture d'un fichier (texte ou pas) : close #1
Lecture dans un fichier, ligne par ligne : Line Input #1, UneVariableString
Lecture dans un fichier, pour n caractères : UneVarString = Input(#1, NbDeCaractèreALire)
Ecriture dans un fichier : Print #1, UneVarString
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 2 avril 2005 à 18:09
Place un CommandButton et un TextBox sur ta Form .
Création du fichier txt (ici MonFichier.txt)
Private Sub Form_Load()
Dim crlf, tout, texte
On Error Resume Next
crlf = Chr(13) + Chr(10)
Open "C:\MonFichier.txt" 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
'Ensuite écris quelques mots dans le TextBox.
'Commande Enregistrer
Private Sub Command1_Click()
Open "C:\MonFichier.txt" For Output As #1
Print #1, Text1.Text
Close #1
End
End Sub
'Tu peux vérifier ensuite sue le lecteur C, le fichier a été créé et enregistrer.
Le code étant dans Form_Load , le TextBox se remplira dès le lancement de la Form.
Si tu rajoute du texte ensuite après celui existant l'enregistrement se fera avec.
jpleroisse
Vous n’avez pas trouvé la réponse que vous recherchez ?
sabou94
Messages postés158Date d'inscriptionvendredi 12 mars 2004StatutMembreDernière intervention17 avril 2007 3 avril 2005 à 14:49
Merci pour votre aide, l'ecriture est facile mais comment je fais pour
ouvrir mon fichier lorsque je suis ds mon appli vb? ou est ce que je
peux afficher les données de mon fichier quelque part dans ma form?
merci encore de votre aide....
sabrina