1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Le nombre de ligne dans un fichier texte

Le nombre de ligne dans un fichier texte

0/5 (9 avis)

Snippet vu 33 756 fois - Téléchargée 109 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
thedizen
Messages postés
2
Date d'inscription
mardi 13 octobre 2009
Statut
Membre
Dernière intervention
3 décembre 2009
3 déc. 2009 à 14:35
J'ai oublié, c'est:

Close #f
thedizen
Messages postés
2
Date d'inscription
mardi 13 octobre 2009
Statut
Membre
Dernière intervention
3 décembre 2009
3 déc. 2009 à 11:28
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
ManuAntibes
Messages postés
491
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
18 novembre 2021
 4
26 oct. 2006 à 18:12
Tres bien ce code pour VB6, mais en VB.net ou VB 2005, on fait comment.

Merci
dionysos6868
Messages postés
310
Date d'inscription
jeudi 4 septembre 2003
Statut
Membre
Dernière intervention
9 juin 2005
 1
13 janv. 2004 à 19:31
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
suoe
Messages postés
10
Date d'inscription
lundi 3 février 2003
Statut
Membre
Dernière intervention
13 mars 2004
15 mars 2003 à 12:07
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)