Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic LECTURE FICHIER TXT

LECTURE FICHIER TXT

27 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
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Thomas Marencic [MS]
Bonjour,

voici un exemple.

Function ReadEntireFile(filespec)
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
Do While theFile.AtEndOfStream <> True
retstring = theFile.ReadLine
Loop
theFile.Close
ReadEntireFile = retstring
End Function

Cordialement.
Thomas MARENCIC

"Rombeau Jonathan" wrote in message
news:
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
Boss Hog
Salut,
voila ce que cela donne

Dim fs As Scripting.FileSystemObject
Set fs = New Scripting.FileSystemObject
Set fichier = fs.GetFile("C:readme.txt")
Set ts = fichier.OpenAsTextStream(1, 0)

While Not ts.AtEndOfStream 'ICI JE METS QUOI ????
ligne = ts.ReadLine
MsgBox ligne
Wend

ts.Close


@+ Boss Hog

"Rombeau Jonathan" wrote in message
news:
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
Rombeau Jonathan
Merci Beaucoup cela fonctionne très bien !
Je vous remercie Thomas et Boss.
PS : j'utilise l'idée de Boss mais merci à tous les 2 quand même !



"Rombeau Jonathan" a écrit dans le message de news:

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,

Function ReadEntireFile(filespec)


Il faudrait typer la fonction et ses paramètres...

Const ForReading = 1
Dim fso, theFile, retstring


typer les variables aussi ne ferait pas de mal, on est pas en scriting !!!!

Set fso = CreateObject("Scripting.FileSystemObject")


le FSO est largement déconseillé en VB, on utilisera les instructions
implantées : Open qui sont documentées dans l'aide


Set theFile = fso.OpenTextFile(filespec, ForReading, False)
Do While theFile.AtEndOfStream <> True
retstring = theFile.ReadLine
Loop
theFile.Close
ReadEntireFile = retstring


Et les Set oObjet = Nothing ??

End Function




Voici un exemple correct et rapide pour lire un fichier texte ou binaire
dans une variable string :

Dim k As Integer, strBuffer As String

k = FreeFile
Open "c:Fichier.txt" For Binary As #k
strBuffer = String$(LOF(k), vbNullChar)
Get #k, , strBuffer
Close #k

'//traitement de strBuffer

strBuffer = ""


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

Thomas Marencic [MS] wrote:
Bonjour,

voici un exemple.

Function ReadEntireFile(filespec)
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
Do While theFile.AtEndOfStream <> True
retstring = theFile.ReadLine
Loop
theFile.Close
ReadEntireFile = retstring
End Function

Cordialement.
Thomas MARENCIC

"Rombeau Jonathan" wrote in message
news:
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,

Non surtout pas de FSO en VB, on utilise Open :

Dim k As Integer, strBuffer As String

k = FreeFile
Open "c:Fichier.txt" For Binary As #k
strBuffer = String$(LOF(k), vbNullChar)
Get #k, , strBuffer
Close #k

'//traitement de strBuffer

strBuffer = ""

(en plus si tu veux vraiment utiliser FSO il faudrait faire du earlybinding
et non du latebinding pour récupérer les avantages de l'intellisense, et du
typage...)

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


Avatar
Rombeau Jonathan
Pourquoi le FSO est-il si déconseillé ???
Ne fonctionne-t-il pas sous tous les windows ? ou est-ce pour autre chose ?


"ng" a écrit dans le message de news:
O9WZQ%
Salut,

Function ReadEntireFile(filespec)


Il faudrait typer la fonction et ses paramètres...

Const ForReading = 1
Dim fso, theFile, retstring


typer les variables aussi ne ferait pas de mal, on est pas en scriting
!!!!

Set fso = CreateObject("Scripting.FileSystemObject")


le FSO est largement déconseillé en VB, on utilisera les instructions
implantées : Open qui sont documentées dans l'aide


Set theFile = fso.OpenTextFile(filespec, ForReading, False)
Do While theFile.AtEndOfStream <> True
retstring = theFile.ReadLine
Loop
theFile.Close
ReadEntireFile = retstring


Et les Set oObjet = Nothing ??

End Function




Voici un exemple correct et rapide pour lire un fichier texte ou binaire
dans une variable string :

Dim k As Integer, strBuffer As String

k = FreeFile
Open "c:Fichier.txt" For Binary As #k
strBuffer = String$(LOF(k), vbNullChar)
Get #k, , strBuffer
Close #k

'//traitement de strBuffer

strBuffer = ""


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

Thomas Marencic [MS] wrote:
Bonjour,

voici un exemple.

Function ReadEntireFile(filespec)
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
Do While theFile.AtEndOfStream <> True
retstring = theFile.ReadLine
Loop
theFile.Close
ReadEntireFile = retstring
End Function

Cordialement.
Thomas MARENCIC

"Rombeau Jonathan" wrote in message
news:
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,

Oui problème de compatibilité, de lenteur et surtout il peut etre desactivé
par les anti virus...
Pour plus d'infos cf la FAQ : http://faq.vb.free.fr

--
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:
Pourquoi le FSO est-il si déconseillé ???
Ne fonctionne-t-il pas sous tous les windows ? ou est-ce pour autre
chose ?

"ng" a écrit dans le message de news:
O9WZQ%
Salut,

Function ReadEntireFile(filespec)


Il faudrait typer la fonction et ses paramètres...

Const ForReading = 1
Dim fso, theFile, retstring


typer les variables aussi ne ferait pas de mal, on est pas en
scriting !!!!

Set fso = CreateObject("Scripting.FileSystemObject")


le FSO est largement déconseillé en VB, on utilisera les instructions
implantées : Open qui sont documentées dans l'aide


Set theFile = fso.OpenTextFile(filespec, ForReading, False)
Do While theFile.AtEndOfStream <> True
retstring = theFile.ReadLine
Loop
theFile.Close
ReadEntireFile = retstring


Et les Set oObjet = Nothing ??

End Function




Voici un exemple correct et rapide pour lire un fichier texte ou
binaire dans une variable string :

Dim k As Integer, strBuffer As String

k = FreeFile
Open "c:Fichier.txt" For Binary As #k
strBuffer = String$(LOF(k), vbNullChar)
Get #k, , strBuffer
Close #k

'//traitement de strBuffer

strBuffer = ""


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

Thomas Marencic [MS] wrote:
Bonjour,

voici un exemple.

Function ReadEntireFile(filespec)
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
Do While theFile.AtEndOfStream <> True
retstring = theFile.ReadLine
Loop
theFile.Close
ReadEntireFile = retstring
End Function

Cordialement.
Thomas MARENCIC

"Rombeau Jonathan" wrote in message
news:
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
SALVA
Bonsoir,

j'utilise ceci pour lire un fichier text;

open "fichier.txt" for input as #1

do while not eof(1)
input #1,a
MsgBox a
loop
close #1


bonne chance.
a bientot

Salva
Avatar
ng
Salut,

Cette méthode fonctionne mais est très lente (bouclage + éventuelle
concaténation de chaine...)

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

SALVA wrote:
Bonsoir,

j'utilise ceci pour lire un fichier text;

open "fichier.txt" for input as #1

do while not eof(1)
input #1,a
MsgBox a
loop
close #1


bonne chance.
a bientot

Salva


Avatar
Patrice Henrio
Tout dépend du nombre de lignes à lire.
en tout cas cette méthode est la plus simple à comprendre pour lire un
fichier texte.

"ng" a écrit dans le message de news:

Salut,

Cette méthode fonctionne mais est très lente (bouclage + éventuelle
concaténation de chaine...)

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

SALVA wrote:
Bonsoir,

j'utilise ceci pour lire un fichier text;

open "fichier.txt" for input as #1

do while not eof(1)
input #1,a
MsgBox a
loop
close #1


bonne chance.
a bientot

Salva






1 2 3