LE NOMBRE DE LIGNE DANS UN FICHIER TEXTE

Signaler
-
Messages postés
2
Date d'inscription
mardi 13 octobre 2009
Statut
Membre
Dernière intervention
3 décembre 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/45-le-nombre-de-ligne-dans-un-fichier-texte

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
4
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
Afficher les 9 commentaires