OVH Cloud OVH Cloud

LECTURE FICHIER TXT

2 réponses
Avatar
Rombeau Jonathan
Bonjour tout le monde, j'essaye de lire un fichier TXT mais je ne sais pas
comment faire pour savoir
si je suis à la fin du fichier ou pas ?


Set fs = CreateObject("scripting.filesystemobject")
Set fichier = fs.getfile("C:\test.txt")
Set ts = fichier.openastextstream(1, 0)

Do While ICI JE METS QUOI ????
ligne = ts.readline
MsgBox ligne
Loop

ts.Close

2 réponses

Avatar
Salvo
Salut
essai ça :
While Not Ligne Is Nothing


-----Message d'origine-----
Bonjour tout le monde, j'essaye de lire un fichier TXT


mais je ne sais pas
comment faire pour savoir
si je suis à la fin du fichier ou pas ?


Set fs = CreateObject("scripting.filesystemobject")
Set fichier = fs.getfile("C:test.txt")
Set ts = fichier.openastextstream(1, 0)

Do While ICI JE METS


QUOI ????
ligne = ts.readline
MsgBox ligne
Loop

ts.Close


.



Avatar
ng
Salut,

Pas de FSO en .Net ! Il y a des namespace qui font ca très bien et tout
aussi facilement.


--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/

Rombeau Jonathan wrote:
Bonjour tout le monde, j'essaye de lire un fichier TXT mais je ne
sais pas comment faire pour savoir
si je suis à la fin du fichier ou pas ?


Set fs = CreateObject("scripting.filesystemobject")
Set fichier = fs.getfile("C:test.txt")
Set ts = fichier.openastextstream(1, 0)

Do While ICI JE METS QUOI ????
ligne = ts.readline
MsgBox ligne
Loop

ts.Close