Compteur de lignes

Commenter

Contenu du snippet

ce script compte les ligne de tous les fichier contenant du texte
.txt .htm .ini ........

de plus il vous donne aussi les ligne de vide (les sauts)

sa sert a rien mais je m'ennuyais donc .....

Source / Exemple : 


option explicit

'ce programme sert à savoir combien de ligne contient un fichier 
dim cpt1, cpt2 , l , TS , fso ,chemin
cpt1=0
cpt2=0

msgbox "bonjour , ce programme va vous servir à connaitre le nombre de ligne d'un fichier sans effort"&vbcrlf&vbcrlf&"(ne marche q'avec les fichier de type texte comme les .txt .doc .vbs .html ....)",,"présentation"

chemin=inputbox ("donnez le chemin EXACTE du fichier ."&vbcrlf&vbcrlf&"ex : c:\test.txt ","chemin","le chemin du fichier")

set fso=wscript.createobject("scripting.filesystemobject")

if fso.FileExists(chemin) then

set TS=fso.opentextfile(chemin,1)

do while not TS.atendofstream
	l=TS.readline
	cpt1=cpt1+1
	if l="" then cpt2=cpt2+1 end if
loop

TS.close

msgbox "il y a "&cpt1&" lignes dans votre fichier dont "&cpt2&" ligne vide" 

else msgbox "ce fichier n'existe pas !",,"fichier introuvable"
end if

msgbox "MaRvIn CoRpOrAtIoN",,"SiGnAtUrE"

A voir également

Du même auteur (Marvin77)