Probleme lecture fichier texte [Résolu]

Question

Probleme lecture fichier texte [Résolu]

Signaler

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

A voir également:

Probleme lecture fichier texte
Vba lecture fichier texte - Conseils pratiques - Visual Basic / VB.NET
Visual Basic / VB.NET : Lecture fichier texte avec objet fso (file system object) - CodeS SourceS - Guide
Lecture fichier texte avec délimiteurs - Codes sources - Delphi / Pascal (Texte)
Lecture fichier texte, prob avec les accents ✓ - Forum - VB.NET
Lecture fichier texte ✓ - Forum - VB.NET

1 réponse

Posez votre question

econs · Accepted Answer · 2005-06-14T15:35:43+0200

Réponse 1 / 1

econs

Messages postés: 4030
Date d'inscription: mardi 13 mai 2003
Statut: Modérateur
Dernière intervention: 23 décembre 2008

22
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.

Votre réponse