Lire un fichier texte (txt)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 63 229 fois - Téléchargée 35 fois

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

Ajouter un commentaire

Commentaires

cs_Chrigou
Messages postés
30
Date d'inscription
lundi 10 février 2003
Statut
Membre
Dernière intervention
27 juin 2008
-
Non, c'est pas tout !
Il ne faut jamais oublier de fermer l'objet:
Set objFso = nothing
ykjmaster
Messages postés
4
Date d'inscription
lundi 14 avril 2003
Statut
Membre
Dernière intervention
1 décembre 2003
-
merci pour la source mais pouvez vous me donner un exemple ou en utilise ce script par exemple un lien qui ouvre un txt de preference dans un textarea.

merci d'avence
DjZebulon
Messages postés
19
Date d'inscription
lundi 11 mars 2002
Statut
Membre
Dernière intervention
12 décembre 2005
-
pour moi j'ai une erreur au niveau : Response.Write(ts & "
" & Chr(10)), j'obtiens : Erreur d'exécution Microsoft VBScript erreur '800a01b6' , Cet objet ne gère pas cette propriété ou cette méthode, currieux non
Bonne année 2004 à tous
cs_Chrigou
Messages postés
30
Date d'inscription
lundi 10 février 2003
Statut
Membre
Dernière intervention
27 juin 2008
-
Evidemment que ça fonctionne pas, il y a encore un bug dans cette source !
Il faut écrire:
Response.Write(ts.ReadLine & "
" & Chr(10))

Pour le textarea, il suffit de mettre ce source entre les balises du textarea et le tour est joué.
Bonne année...
cybunk
Messages postés
13
Date d'inscription
lundi 23 juin 2003
Statut
Membre
Dernière intervention
20 février 2005
-
et ben chez moi il trouve meme pas le fichier texte :

Erreur d'exécution Microsoft VBScript (0x800A0035)
Fichier introuvable

et pourtant j'ai changé les noms de multiples fois alors dite moi !!!

sam

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.