Résultat de comptage de ligne en fichier txt

Version imprimable

Bonjour à tous,
J’ai un script qui fonctionne parfaitement bien, mais je voudrai l’améliorer. Le résultat s’affiche dans une message box. Moi je voudrai savoir s’il est possible que le résultat s’inscrive dans fichier Txt

exemple il y a 62 lignes

Merci par avance au forum DVP
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim oFso, oReg, sData, lCount Const ForReading = 1, sPath = "C:\Users\Windows\Downloads\liste.txt" Set oReg = New RegExp Set oFso = CreateObject("Scripting.FileSystemObject") sData = oFso.OpenTextFile(sPath, ForReading).ReadAll With oReg .Global = True .Pattern = "\r\n" 'vbCrLf '.Pattern = "\n" ' vbLf, Unix style line-endings lCount = .Execute(sData).Count + 1 End With WScript.Echo lCount Set oFso = Nothing Set oReg = Nothing

:salut:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim oFso, oReg, sData, lCount
Const ForReading = 1, sPath = "C:\Users\Windows\Downloads\liste.txt"
Set oReg = New RegExp
Set oFso = CreateObject("Scripting.FileSystemObject")
sData = oFso.OpenTextFile(sPath, ForReading).ReadAll
With oReg
    .Global = True
    .Pattern = "\r\n" 'vbCrLf
    '.Pattern = "\n" ' vbLf, Unix style line-endings
    lCount = .Execute(sData).Count + 1
End With
 
' Ouvrez un nouveau fichier pour écrire le résultat
Dim oFile
set oFile = oFso.OpenTextFile("C:\Users\Windows\Downloads\result.txt", 8, True)
oFile.WriteLine(lCount)
oFile.Close
 
Set oFso = Nothing
Set oReg = Nothing

27/01/2023, 16h15
Angelus1753

Bonjour Hackoofr,

Formidable, un grand merci à vous. Ça fonctionne à merveille

Problème résolus