Enregistrer un fichieren mode sequenciel et le lire
Contenu du snippet
il vous permet d'enregistrer un fichier à acces sequentiel c'est à dire que les donnes enregistrer sont ajouter les unes à la suite des autres.
premiere partie: il faut que vous creer un fichier ou vb va enregistrer vos données. si le fichier n'existe pas il le creer automatiquement.
l'instruction write #1, text1.text ecrit les donnes qui sont contenues dans le text box.
close #1 ferme le fichier, il faut toujours fermetr un fichier avec le numero avec lequel vous l'avez ouvert.
maintenant la lecture.il vous faut ouvrir avec le meme nom de fichier.
la variable fichier de type chaine va acceuillir les donnes que vb va lire dans vos fichier. ensuite vous affecter cette variable au text box pour que vb les affiche à l'interieur.
l'instruction do while not eof(1) veut dirre tant quel e fichier n'est pas a la fin lit le. c'est pourquoi on utilise une boucle do while que l'on ferme avec loop
et bien sur on referme le fichier apres l'avoir lu avec close #1 voila.
premiere partie: il faut que vous creer un fichier ou vb va enregistrer vos données. si le fichier n'existe pas il le creer automatiquement.
l'instruction write #1, text1.text ecrit les donnes qui sont contenues dans le text box.
close #1 ferme le fichier, il faut toujours fermetr un fichier avec le numero avec lequel vous l'avez ouvert.
maintenant la lecture.il vous faut ouvrir avec le meme nom de fichier.
la variable fichier de type chaine va acceuillir les donnes que vb va lire dans vos fichier. ensuite vous affecter cette variable au text box pour que vb les affiche à l'interieur.
l'instruction do while not eof(1) veut dirre tant quel e fichier n'est pas a la fin lit le. c'est pourquoi on utilise une boucle do while que l'on ferme avec loop
et bien sur on referme le fichier apres l'avoir lu avec close #1 voila.
Source / Exemple :
open"c:\votre fichier" for append as #1 write #1,text1.text close #1 ================================= dim fichier as string open "c:\votre fichier" for input as #1 do while note eof(1) input #1,fichier text1.text=fichier loop close #1 n
A voir également
- Enregistrer un fichieren mode sequenciel et le lire
- Impossible d'executer le code en mode arrêt - Forum VBA Office (Excel, Word ...)
- Mode création excel ✓ - Forum VBA Office (Excel, Word ...)
- Tout arréter ✓ - Forum Visual Basic 6
- Code ne s'exécute pas - Forum Delphi / Pascal
- Impossible de lire la propriété vlookup - Forum Visual Basic
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.