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