NOMBRE DE LIGNE D'UN FICHIER TEXTE

- - Dernière réponse : JFK30
Messages postés
10
Date d'inscription
lundi 19 juin 2006
Statut
Membre
Dernière intervention
4 novembre 2009
- 1 févr. 2009 à 09:28
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

Afficher la suite 
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")
Fwdavy
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
Fwdavy
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
Fwdavy
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.......
Fadilos
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....