Le nombre de ligne dans un fichier texte

Soyez le premier à donner votre avis sur cette source.

Snippet vu 32 468 fois - Téléchargée 106 fois


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

Messages postés
2
Date d'inscription
mardi 13 octobre 2009
Statut
Membre
Dernière intervention
3 décembre 2009

J'ai oublié, c'est:

Close #f
Messages postés
2
Date d'inscription
mardi 13 octobre 2009
Statut
Membre
Dernière intervention
3 décembre 2009

N'oubliez de fermer le fichier comme suit:

Sub NoubliPasdeFermerleFichierOuvert ()
Dim f As Integer

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

... Code

Close # 'Quand on a fin de manipuler le fichier, il faut tjs le fermer.

End Sub
Messages postés
486
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
23 mars 2019
3
Tres bien ce code pour VB6, mais en VB.net ou VB 2005, on fait comment.

Merci
Messages postés
310
Date d'inscription
jeudi 4 septembre 2003
Statut
Membre
Dernière intervention
9 juin 2005

ton code marche tres bien suffi t de rajouter comme dit plus haut une variable qui s'accrement a chaque boucle

ex:

Dim strLigne As String
Dim nbligne As Integer

Open CheminFichier For Input As #1

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

MsgBox "La dernière ligne est :" & Chr(10) & strLigne & Chr(13) & "Le nombres de ligne est : " & nbligne


Merci du taffe
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

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.