Lire un fichier texte (txt)

Contenu du snippet


Source / Exemple :


Const cForReading = 1
'Instancie l'objet FileSystemObject
Set objFso = CreateObject("Scripting.FileSystemObject")
'Creer un "buffer" ts contenant le fichier indiquer
Set ts = objFso.OpenTextFile("fichier.txt", cForReading)
'Tant que l'on est pas a la fin du Streamming on affiche le texte contenu dans le fichier
do while not ts.AtEndOfStream
     response.write(ts & "<br>" & chr(10))
loop
'Voila c'est tout

A voir également

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.