Compter le nombre de lignes d’un fichier en VBScript

Ce script VBS vous permettra de compter très simplement le nombre de lignes contenu dans un fichier au format texte.

Dans cet exemple je vous propose de compter le nombre de ligne contenu dans un fichier appelé monfichier.log. Le script va compter et afficher le nombre de lignes dans une boite de dialogue Windows.

1) Créez un fichier de script, que vous appelez par exemple comptageligne.vbs et insérez le code suivant :  

Voici mon GPS pour faire du vélo ! Le Garmin Edge 830 est une vraie réussite avec une autonomie de plus de 15 heures cartographie activée et un écran tactile désormais absolument parfait qui réagit au doigt et à l'oeil, comme un smartphone.

Créez un itinéraire sur Strava ou sur Garmin Connect et il est aussitôt transmis à vote GPS. Si vous êtes pressé ou dans un lieu inconnu, le générateur de boucle vous guidera tout simplement. Si vous décidez de changer de prendre un autre chemin le recalcul est automatique et un nouvel itinéraire vous sera proposé.

Voir mon classement des meilleurs GPS pour en savoir plus !

GPS Vélo

Option Explicit
Dim objFSO, strFichier, strData, arrLignes, Compteur
Const ForReading = 1
strFichier = "monfichier.log"
Set objFSO = CreateObject("Scripting.FileSystemObject")
strData = objFSO.OpenTextFile(strFichier,ForReading).ReadAll
arrLignes = Split(strData,vbCrLf)
Compteur = UBound(arrLignes) + 1
Wscript.echo Compteur
Set objFSO = Nothing

Modifiez à votre guise le nom du fichier monfichier.log afin que cela corresponde à votre besoin.

2) Assurez vous que le script et le fichier dont vous souhaitez compter les lignes sont bien placés dans le même répertoire.

3) Exécutez le script comptageligne.vbs en cliquant sur le fichier .vbs

1 commentaire sur “Compter le nombre de lignes d’un fichier en VBScript”

  1. Merci beaucoup pour ce petit script court et très utile !
    Je cherchai depuis plusieurs jours sur le net.
    Ou bien j’ai trouvé un script qui ne fonctionnait pas ou bien un autre qui me rajoutait des entrées dans mon fichier texte !

    Votre scipt fonctionne et de plus laisse le fichier tel quel.

Laissez un commentaire