Bonjour le fofo,

Je sollicite votre aide afin de modifier un vbs.

Pour faire simple, le traitement est le suivant :

- Ouverture d'un fichier texte dans un rep (le nom change à chaque semaine)
- Si présence d'un terme alors suppression de la ligne
- Réécriture du fichier et ensuite le traitement continue (copie dans un nouveau rep, émail, etc...)

je m'en sors si tous les termes que je supprime sont tous à la fin, là RAS mon script fonctionne. Le hic c'est si certaines lignes non désirées se retrouvent ailleurs, je me retrouve dès lors avec des lignes vierges ce que je ne veux pas.

Comment rajouter dans mon vbs cette notion de suppression de ligne vide ?

je mets une partie de mon code pour illustrer un peu mes propos :

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
22
23
24
25
26
27
 
 
Const	OpenFileForReading		= 1
Const	OpenFileForWriting		= 2
dim FSO, text, readfile,Writefile, fic_Err, FichierErreur,contents,newContents,DteMED,NewDteMED,DteResil,NewDteResil,DteSUS,NewDteSUS,Cli,Ctr,DteDebut
Dim A_MED(),Index,A_Ctr,Trouve, I
Dim f, fc, f1, Rep_Destination, Fic_Copie, objMessage
 
Rep_Destination = "D:\Users\bidule\"
set FSO = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(getpath())
Set fc = f.Files
 
For Each f1 in fc
	If left(f1.name,13) = "blabla" and lcase(right(f1.name,8)) <> "_new.txt" then
		set readfile = FSO.OpenTextFile(getpath() & f1.name, OpenFileForReading, false)
		set Writefile = FSO.OpenTextFile(getpath() & left(f1.name,len(f1.name)-4) & "_new.txt", OpenFileForWriting, true)
 
Index = 1
		do while readfile.AtEndOfStream = false
			contents = readfile.ReadLine		
			if right(ltrim(rtrim(Contents)),20) = "Mon Terme que je veux shooter" then
 
'				* Nouvelles Lignes
					newContents = ""
 
' et c'est ici que je sèche ...
Merci par avance ...