nombre de ligne d'un fichier

Bonjour/soir,

while no eof(#1)
count = count + 1
wend

Plus rapidement à l'exécution:

<quote source=Zoury>

Private Function FileLineCount(ByRef sFile As String) As Long
FileLineCount = UBound(Split(ReadFile(sFile), vbNewLine)) + 1
End Function

Private Function ReadFile(ByRef sFile As String) As String

Dim hFile As String

hFile = FreeFile
Open "c:file1.txt" For Binary As #hFile
ReadFile = String$(LOF(hFile), Chr$(0))
Get #hFile, , ReadFile
Close #hFile

End Function

</quote>

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


Benoît O'Hare wrote:

si tu connais la taille(en octet) d'une ligne (si elle est tjs la mm)
oui.

Sinon je suis pas sur car les fonctions permettant (si elles
existent) de te renvoyer le nb de ligne lirons le fichier en entier
elles aussi

while no eof(#1)
count = count + 1
wend


Benoît O'Hare
www.tryskel.com (portail web)
www.tryskel.net (communauté tryskel)
"patrick" <stop_patrick.mathe@libertysurf.fr> a écrit dans le message
de news: bedrds$59g$1@muguet.sncf.fr...

bonjour

peut-on connaitre le nombre de lignes d'un fichier TXT
sans le lire en entier

merci

patrick

la question a déjà été posée ici ! il suffit de compter le nombre de retour
à la ligne !

"Benoît O'Hare" <benoit.ohare@ifrance.com> a écrit dans le message de
news:uK$rcgSRDHA.2148@TK2MSFTNGP11.phx.gbl...

si tu connais la taille(en octet) d'une ligne (si elle est tjs la mm) oui.

Sinon je suis pas sur car les fonctions permettant (si elles existent) de

te

renvoyer le nb de ligne lirons le fichier en entier elles aussi

while no eof(#1)
count = count + 1
wend

--
(Hello)
| | | / O
(o) (o) O
(_) / o
o0oo - - - - - - oo0oo
(MrBinaire)

Benoît O'Hare
www.tryskel.com (portail web)
www.tryskel.net (communauté tryskel)
"patrick" <stop_patrick.mathe@libertysurf.fr> a écrit dans le message de
news: bedrds$59g$1@muguet.sncf.fr...
> bonjour
>
> peut-on connaitre le nombre de lignes d'un fichier TXT
> sans le lire en entier
>
> merci
>
> patrick
>
>

une petite erreur s'est glissée..

: Open "c:file1.txt" For Binary As #hFile

devrait être

: Open sFile For Binary As #hFile


--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Bonjour
merci ça marche parfaitement
@+
patrick

"Zoury" <yanick_lefebvre@hotmail.com> a écrit dans le message news:
eFMDr$VRDHA.3796@tk2msftngp13.phx.gbl...

une petite erreur s'est glissée..

: Open "c:file1.txt" For Binary As #hFile

devrait être

: Open sFile For Binary As #hFile


--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/