Discussion :

[chr92]

Bonsoir, je sais que c'est trivial, mais je ne comprends pas pourquoi ce code ne fonctionne pas. Certaines lignes vides sont repérées mais pas toutes.
Comment une ligne de bloc-note apparemment vide peut-elle contenir entre 1 et 7 caractères ? - à part le retour de chariot je ne comprends pas. J'ai finalement filtré un mot récurrant mais j'aimerais comprendre ...

Merci d'avance

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
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

[pc75]

Bonjour,

Et si tu essaies comme ça ?

Code :

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

1
2
 
If Len(Trim(sLine)) = 0 Then