probleme lecture fichier texteRésolu

Question

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+++

econs · Accepted Answer

Dim numFile As Long

Dim s As String



numFile=FreeFile

Open "C:	oto.txt" For Input As #numFile

    While not EOF(numFile)

        Line Input #numFile,s

        MsgBox s

    Wend

Close #numFile


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Probleme lecture fichier texte

1 réponse