1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| '*********************************************************************************
'filtrer les lignes vides échec par le tableau
'essai par écriture deuxième fichier ENCORE RATE
'*********************************************************************************
Dim oFSO,oStream'WshShell
Set oFSO =CreateObject("Scripting.FileSystemObject")
Set o1Stream = oFSO.OpenTextFile(".\m.log",1)
Set o2Stream = oFSO.OpenTextFile(".\mm.Log",8)
Dim sLine
i=1
Do Until o1Stream.AtEndOfStream ' remplir le tableau, sauf si ligne vide
WScript.Echo i
sLine=o1Stream.ReadLine
If Not sLine = "" Then
o2Stream.write sLine & VbCrLf
Else WScript.Echo " XXXXXXXXXXX VIDE XXXXXXXXXXXXXXX "
End If
i=i+1
Loop |
