Le nombre de ligne dans un fichier texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 31 976 fois - Téléchargée 106 fois


Commenter

Contenu du snippet

Comment connaître le nombre de ligne dans un fichier Texte

Mettez ce code dans un Bouton_Click :

Source / Exemple : 


Dim strLigne As String

Open "C:\autoexec.bat" For Input As #1

Do While Not EOF(1)
    Line Input #1, strLigne
Loop

MsgBox "La dernière ligne est :" & Chr(10) & strLigne

A voir également

Ajouter un commentaire

Commentaires

Signaler
-
hey bob ton truc ca affiche la derniere ligne d'un fichier! ca compte rien du tout !!! mais c'est pas grave vazy essayes encore t'es sur la bonne voix
Signaler
-
tu rajoute dans la boucte juste une ligne du type:
nbligne = nbligne + 1
et à la fin tu met close #1
Signaler
-
C'est vrai que c'est plus pratique que de compter les lignes manuellement (ça abime les yeux y parait!)
Y faudrait qu'on puisse afficher la ligne qu'on veut plutot que la dernière!
Signaler
Regiga
Messages postés
17
Date d'inscription
mardi 22 janvier 2002
Statut
Membre
Dernière intervention
13 octobre 2003
 -
Tu sais ce que COMPTER veut dire?.
La tu files rien que la dernière ligne.
Vla le bon code:

function numline( byval filename as string)
dim n as integer
open filename for input as #1
do while not EOF(1)
debut:
lineinput #1,buff
if buff = "" then goto fini
else
n = n+1
goto debut
loop
fini:
numline = n
end function
Signaler
suoe
Messages postés
10
Date d'inscription
lundi 3 février 2003
Statut
Membre
Dernière intervention
13 mars 2004
 -
Salut Merci pour ton code et pour ta participation mais il fonctionne pas par contre si tu rajoute un end if au bon endroit la C bon :

Function numline(ByVal filename As String)
Dim n As Integer
Open filename For Input As #1
Do While Not EOF(1)
debut:
Line Input #1, buff
If buff = "" Then
GoTo fini
Else
n = n + 1
GoTo debut
End If
Loop
fini:
numline = n
End Function

et merci encore ;-)
Afficher les 9 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Nix)