Discussion :

[Angelus1753]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[hackoofr]

Code vbs :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Angelus1753]

Bonjour Hackoofr,

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

Problème résolus