OVH Cloud OVH Cloud

compteur ligne

2 réponses
Avatar
laurent Ch
Bonjour,

J'ai besoin dans un de mes scripts de compter le nombre de ligne de certains
fichiers mais il n'existe apparement pas de commande pour ceci.
L'un d'entre vous aurait-il un script (batch, VBS, ....) ou un outil en
ligne permettant de faire ceci ?

Merci d'avance

Laurent

2 réponses

Avatar
Jacques Barathon [MS]
Tu trouveras de nombreux exemples en ligne pour le faire en vbscript, va
voir sur le Script Center de Microsoft pour commencer.

Pour le fun, voici une solution très agricole en ligne de commande utilisant
la commande "find" qui à ma connaissance est la seule à fournir cette
information en standard:

for /f "delims=: tokens=2" %a in ('find /v /c "texte improbable"
monfichier.txt') do echo %a

L'idée est de compter les lignes qui ne contiennent pas la chaîne "texte
improbable" d'où le contenu de cette chaîne (à adapter au besoin).
Si tu utilises cette ligne dans un fichier cmd ou bat, n'oublie pas de
doubler le signe % (%%a).
Il y a pas mal de limites à cette solution, mais bon, comme je le disais
c'est surtout pour le fun... :-)

Jacques

"laurent Ch" wrote in message
news:
Bonjour,

J'ai besoin dans un de mes scripts de compter le nombre de ligne de
certains
fichiers mais il n'existe apparement pas de commande pour ceci.
L'un d'entre vous aurait-il un script (batch, VBS, ....) ou un outil en
ligne permettant de faire ceci ?

Merci d'avance

Laurent




Avatar
Fred
"laurent Ch" a écrit dans le message de news:

Bonjour,

J'ai besoin dans un de mes scripts de compter le nombre de ligne de
certains
fichiers mais il n'existe apparement pas de commande pour ceci.
L'un d'entre vous aurait-il un script (batch, VBS, ....) ou un outil en
ligne permettant de faire ceci ?

Merci d'avance

Laurent


Bonsoir

Ce petit script vbs fait le travail demandé.
-----
Set oFSO=CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile("test.txt", 1)

cmpt = 0
While Not oTextStream.AtEndOfStream
oTextStream.ReadLine
cmpt = cmpt + 1
Wend
oTextStream.Close
MsgBox cmpt
-----