Compteur de lignes
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 .....
.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"
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.