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
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")