Compter le nombre de lignes d’un fichier en VBScript

Devez-vous vraiment installer un VPN sur votre ordinateur ou votre smartphone?

Si vous téléchargez des films illégalement, si vous voulez surfer sur Internet de façon anonyme sans que le gouvernement, votre FAI ou votre employeur soit au courant ... OUI installer un VPN est définitivement une bonne idée.

Installer un VPN consiste à chiffrer toutes vos communications vers Internet. Ce n'est plus votre ordinateur qui est exposé sur Internet mais votre fournisseur de VPN.

Anonymat NordVPN

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 :  

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

2 réflexions au sujet de “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.

    Répondre

Laisser un commentaire

Cliquez ici pour révoquer votre décision.