Probleme lecture fichier texte

Résolu
cs_simonfr
Messages postés
9
Date d'inscription
lundi 2 mai 2005
Statut
Membre
Dernière intervention
8 avril 2006
- 14 juin 2005 à 15:21
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
- 14 juin 2005 à 15:35
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

econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
23
14 juin 2005 à 15:35
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