Nombre de ligne d'un fichier texte
Soyez le premier à donner votre avis sur cette source.
Vue 14 041 fois - Téléchargée 444 fois
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.
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.
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.
Codes Sources
A voir également
- Nombre de ligne d'un fichier texte
- Le nombre de ligne dans un fichier texte - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Comment connaitre le nombre de lignes d'un fichier texte? ✓ - Forum - Visual Basic 6
- Obtenir le nombre de ligne d'un fichier texte en .net ✓ - Forum - VB.NET
- Connaitre le nombres de lignes dans un fichier texte ✓ - Forum - Delphi / Pascal
- Vba ajouter une ligne dans un fichier texte ✓ - Forum - VB.NET
Commentaires
il faut savoir que utiliser un INTEGER c'est limiter a 32767 d'ou ton programme depasse cette limite et compte a travers....
un peu de calcul 32767+16731==49498 >> avec un peu de jeu libre ca coincide avec votre fichier
Merci gUI pour ton Prog....
J'ai testé les deux version :
- celle de gui donne -16731
- celle de death donne 1
Bizard car le fichier en contient 48805 ??
Soit VB c'est de la merde, soit vous etes des tocars, soit c'est powerbasic que je dois jeter....a moin que cette source soit obsolette lol
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.