Nb de lignes d'un fichier texte

@sterik

Salut

J'aimerais savoir comment on peut obtenir le nombre de ligne d'un fichier texte sachant que le nombre de caractères sur une ligne n'est jamais le meme!!

Existe-t-il une fonction pour ça?

Merci

Si c'est un fichier text avec des retour chariots, tu ouvres ton fichier, tu le parcoures avec un line input jusqu'a EOF et en meme temps tu comptes le nbre de ligne.
C'est bourrin, ça marche si ton ficher ne fait pas 50Go, mais c'est rapide a programmer
Tchô
David.


-------------------------------
Réponse au message :
-------------------------------

> @sterik
>
> Salut
>
> J'aimerais savoir comment on peut obtenir le nombre de ligne d'un fichier texte sachant que le nombre de caractères sur une ligne n'est jamais le meme!!
>
> Existe-t-il une fonction pour ça?
>
> Merci

Private Sub Command1_Click()
Dim Buff As String, Temp As String
Dim lignes As Integer

lignes = 0

Buff = ""

Temp = ""

Open "c:\testfile.txt" For Input As #1

Do Until EOF(1)

Line Input #1, Temp

Buff = Buff & Temp & vbCrLf
lignes = lignes + 1

Loop

Close #1

MsgBox lignes


End Sub


-------------------------------
Réponse au message :
-------------------------------

> @sterik
>
> Salut
>
> J'aimerais savoir comment on peut obtenir le nombre de ligne d'un fichier texte sachant que le nombre de caractères sur une ligne n'est jamais le meme!!
>
> Existe-t-il une fonction pour ça?
>
> Merci

@sterik

En fait j'ai réussi à faire un truc dans le meme genre mais ca va 2 fois plus vite comme traitement
D'ailleurs je sais pas pourquoi
Enfin le tout est que ca marche impec
J'ai fait une fonction:

Private Function Nb_Lignes(fic As String)

Dim f As Integer
Dim lig As Integer

f = FreeFile

lig = 0

Open fic For Input As #f

While Not EOF(f)
Line Input #f, t

lig = lig + 1
Wend

Close #f

Nb_Lignes = lig

End Function

Je ne comprends pas d'ailleurs pourquoi tu passes par 2 variables!! ça doit etre ça qui ralentit le traitement je pense!!

Voila
a++



-------------------------------
Réponse au message :
-------------------------------

>
> Private Sub Command1_Click()
> Dim Buff As String, Temp As String
> Dim lignes As Integer
>
> lignes = 0
>
> Buff = ""
>
> Temp = ""
>
> Open "c:\testfile.txt" For Input As #1
>
> Do Until EOF(1)
>
> Line Input #1, Temp
>
> Buff = Buff & Temp & vbCrLf
> lignes = lignes + 1
>
> Loop
>
> Close #1
>
> MsgBox lignes
>
>
> End Sub
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > @sterik
> >
> > Salut
> >
> > J'aimerais savoir comment on peut obtenir le nombre de ligne d'un fichier texte sachant que le nombre de caractères sur une ligne n'est jamais le meme!!
> >
> > Existe-t-il une fonction pour ça?
> >
> > Merci
>

You dont need the 2 variables. Your right . Was only a fast copy / paste .

Maybe this is even FATSER : ( LET ME KNOW )

Private Sub Command1_Click()

Dim Temp As String

Temp = ""

Open "c:\testfile.txt" For Input As #1

Temp = Input(LOF(1), #1)

Close #1

For x = 1 To Len(Temp)
If Asc(Mid(Temp, x, 1)) = 13 Then
y = y + 1
End If
Next x

MsgBox y + 1

End Sub




-------------------------------
Réponse au message :
-------------------------------

>
> @sterik
>
> En fait j'ai réussi à faire un truc dans le meme genre mais ca va 2 fois plus vite comme traitement
> D'ailleurs je sais pas pourquoi
> Enfin le tout est que ca marche impec
> J'ai fait une fonction:
>
> Private Function Nb_Lignes(fic As String)
>
> Dim f As Integer
> Dim lig As Integer
>
> f = FreeFile
>
> lig = 0
>
> Open fic For Input As #f
>
> While Not EOF(f)
> Line Input #f, t
>
> lig = lig + 1
> Wend
>
> Close #f
>
> Nb_Lignes = lig
>
> End Function
>
> Je ne comprends pas d'ailleurs pourquoi tu passes par 2 variables!! ça doit etre ça qui ralentit le traitement je pense!!
>
> Voila
> a++
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> >
> > Private Sub Command1_Click()
> > Dim Buff As String, Temp As String
> > Dim lignes As Integer
> >
> > lignes = 0
> >
> > Buff = ""
> >
> > Temp = ""
> >
> > Open "c:\testfile.txt" For Input As #1
> >
> > Do Until EOF(1)
> >
> > Line Input #1, Temp
> >
> > Buff = Buff & Temp & vbCrLf
> > lignes = lignes + 1
> >
> > Loop
> >
> > Close #1
> >
> > MsgBox lignes
> >
> >
> > End Sub
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > @sterik
> > >
> > > Salut
> > >
> > > J'aimerais savoir comment on peut obtenir le nombre de ligne d'un fichier texte sachant que le nombre de caractères sur une ligne n'est jamais le meme!!
> > >
> > > Existe-t-il une fonction pour ça?
> > >
> > > Merci
> >
>

Comment on fait pour compter le nombre de ligne mais en VBScript ?