Probleme lecture fichier texte [Résolu]

Signaler
Messages postés
9
Date d'inscription
lundi 2 mai 2005
Statut
Membre
Dernière intervention
8 avril 2006
-
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
-
bonjour,

j'ai un script pour lire un fichier texte et l'afficher ligne par ligne
ca marche mais le seul probleme c'est qu'il lit une ligne sur 2 et je
comprend pas pourkoi.



voila mon code :



Const cForReading = 1

Set objFso = CreateObject("Scripting.FileSystemObject")

Set ts = objFso.OpenTextFile("toto.txt", cForReading)



Do While Not ts.AtEndOfStream



MsgBox (ts.ReadLine)

Loop

Set ts = nothing

Set objFso = nothing





si quelqu'un a une idee de comment avance d'une seule ligne a la fois



merci d'avance+++

1 réponse

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Dim numFile As Long

Dim s As String



numFile=FreeFile

Open "C:\toto.txt" For Input As #numFile

While not EOF(numFile)

Line Input #numFile,s

MsgBox s

Wend

Close #numFile


Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci