cs_lim
Messages postés
329
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
10 mai 2014
7
11 févr. 2005 à 16:36
Salut
'import de la librairie Input/Output
imports system.io
dim s as string
dim nb as integer
'ouverture du fichier en
Fileopen(1,"TONFICHIER",openmode.input)
'Tant que pas la fin de fichier
while NOT EOF(1)
'Lecture la ligne
s=lineinput(1)
'Incrémente le compteur de ligne
nb=nb+1
end while
'Ferme le fichier
fileclose(1)
@+
LIM