Nombre de ligne d'un fichier texte

Télécharger le projet
Commenter

Description

Le code de Nix ne comptait pas les lignes, il affichait la dernière ligne. Voici donc la version corrigée du code.
C'est une fonction contenant un argument: l'emplacement du fichier.
Vous pouver placer ce code dans une form contenant un boutton de commande.

Source / Exemple : 


Public Function CompteLigne(CheminFichier As String) As Integer

Dim Texte As String 'Contient la ligne en cours
Dim NbLignes As Integer 'le nombre de lignes

On Error GoTo Annuler 'pour traiter(sommairement) 
'les erreurs

Open CheminFichier For Input As #1

While Not EOF(1)
Line Input #1, Texte
NbLignes = NbLignes + 1
Wend

Close #1

CompteLigne = NbLignes

Annuler:

End Function

Private Sub Command1_Click()
Dim Lignes as Integer

Lignes = CompteLigne("c:\autoexec.bat")
MsgBox "Nb de ligne: " & Lignes

End sub

Conclusion :


Voilà. Dans le zip il y a le code expliqué à fond de cet exemple prêt à l'utilisation, sauf que la fonction ne fait pas que compter les lignes, elle stocke chaque ligne du fichier dans un tableau pour afficher n'importe quelle ligne en indiquant son numéro.
Télécharger le projet

Codes Sources

A voir également

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 (cs_Gui)