NOMBRE DE LIGNE D'UN FICHIER TEXTE

Signaler
-
Messages postés
10
Date d'inscription
lundi 19 juin 2006
Statut
Membre
Dernière intervention
4 novembre 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/1458-nombre-de-ligne-d-un-fichier-texte

Messages postés
10
Date d'inscription
lundi 19 juin 2006
Statut
Membre
Dernière intervention
4 novembre 2009

Merci juste ce qu'il me fallait
Messages postés
3
Date d'inscription
jeudi 9 novembre 2000
Statut
Membre
Dernière intervention
23 février 2005

Salut
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....
Messages postés
57
Date d'inscription
lundi 27 septembre 2004
Statut
Membre
Dernière intervention
8 novembre 2007

en faite j'ai remarqué ca arrete de compter a 32767 ?! et pourtant ca continue car sa lie ma dernier ligne.......
Messages postés
57
Date d'inscription
lundi 27 septembre 2004
Statut
Membre
Dernière intervention
8 novembre 2007

scuse les deux codes donne -16731.....mais bon c'est pas non plus 48805
Messages postés
57
Date d'inscription
lundi 27 septembre 2004
Statut
Membre
Dernière intervention
8 novembre 2007

4 ans plus tard....

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
IL y a bcp plus simple pourcompter les lignes dans un fichier texte. Il faut un Label (ou autre) et un boutton.


Dim a
Private Sub Command1_click()
Dim LFile as long 'Lecture
Dim OFile as String 'Fichier à ouvrir
Dim Ligne as String 'Ligne
OFile = "C:Autoexec.bat"
LFile = FreeFile
Open OFile For Input as #LFIle
Do 'début de boucle
Input #LFile, Ligne
a = a + 1 'ajoute 1 à chaque ligne lu
Loop Until EOF(LFile)
Label1.Caption = a
End Sub

Si tu veux un message en te disant le nbr de ligne à la place de Label1.caption = a
tu met

MsgBox ("Il y a " & a & " lignes")