ecrire debut fichier text et imprimer le tout

Question

Bonjour, je souhaiterais  iprimer un fichier texte, et aussi pouvoir rajouter  d'un fichier text.
merchi

cs_oliver68 · Answer

il doit y avoir des 10aines de sources sur ce site à ce sujet mais voici un ex d'impression de fichier texte, sans mise en forme :

sub imprimemontext()
open "monfichier.txt" for input as #1
do until eof(1)
line input #1,laligne
printer.print laligne
loop
close
printer.enddoc
end sub

pour écrire dans un fichier texte, tu l'ouvres avec
open "monfichier.txt" for append as #

Note, ça écrira à la fin, pour écrire au début, je pense que tu dois passer par un 2eme fichier :

écrire le début dans fichier 2, avec "open for append" et "print #"
copier les données du fichier 1 avec "open for input" et "line input #" et les écrire 1 à 1 avec "print #"
fermer les fichiers avec "close"
supprimer le fichier1 avec "kill"
renommer le fichier2 avec "name....as....."

good luck

Ecrire debut fichier text et imprimer le tout

1 réponse

Discussions similaires