Creation de fichier txt

sabou94 Messages postés 158 Date d'inscription vendredi 12 mars 2004 Statut Membre Dernière intervention 17 avril 2007 - 1 avril 2005 à 14:45
sabou94 Messages postés 158 Date d'inscription vendredi 12 mars 2004 Statut Membre Dernière intervention 17 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!!!


sabrina

6 réponses

crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
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

C'est OK ?
Christophe R
0
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
1 avril 2005 à 14:57
Recherche sur le forum, y a pas mal d rep.



Déja tu commence par OPEN

Open NomDeFichier For {Append|Output|input} as #NumeroDeFichier



NomDeFichier est le nom du fichier ke t veux ouvrir

Append ajoute les données à la fin du fichier

Output, vide le fichier et écri depuis le début

Input, permet de lire le fichier

NumeroDeFichier est conpri entre 1 et 511, identifie le fichier ouvert,
tu peux utiliser la fonction freefile pour ne pas le coder en dur.



Close #NumeroDeFichier



Close sans parametre, ferme tous les fichiers ouverts

Close avec parametre, ferme uniquement le fichier désiré.





Print #NumeroDeFichier, Données[,Données......]

Données, chaine, nombre ... à écrire dans le fichier



Input #NumeroDeFichier, Variable[,Variable...]

Varaible dans lesquelles les données recup du fichier vont aller.



Ce n'est pas vraiment complet ni performant, mais j'espere ke sa t'aidera.







Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)



NH
0
sabou94 Messages postés 158 Date d'inscription vendredi 12 mars 2004 Statut Membre Dernière intervention 17 avril 2007
1 avril 2005 à 17:18
Ok merci je vais essayer de me débrouiller avec ca!
sabrina
0
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
sabou94 Messages postés 158 Date d'inscription vendredi 12 mars 2004 Statut Membre Dernière intervention 17 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
0
sabou94 Messages postés 158 Date d'inscription vendredi 12 mars 2004 Statut Membre Dernière intervention 17 avril 2007
3 avril 2005 à 16:28
Non c'est bon me repondez pas j'ai trouvé...

sabrina
0
Rejoignez-nous