NOMBRE DE LIGNE D'UN FICHIER TEXTE
bobo_le_ouf
-
11 juil. 2001 à 15:06
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
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
https://codes-sources.commentcamarche.net/source/1458-nombre-de-ligne-d-un-fichier-texte
1 févr. 2009 à 09:28
30 juin 2006 à 20:37
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....
29 mai 2006 à 21:45
29 mai 2006 à 20:54
29 mai 2006 à 20:50
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
12 juil. 2001 à 13:49
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")