Discussion :

[don_pets]

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

[hackoofr]

Je ne sais si ça peut résoudre votre problème de ligne vide

Code VB :

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

1
2
3
4
5
Do while readfile.AtEndOfStream = false
        contents = readfile.ReadLine
        contents = Trim(contents)
        If Len(contents) > 0 Then
.........

[don_pets]

Merci hackoofr pour ton retour,

tu rajoutes une seconde boucle à ma boucle ?

Car moi pour mon instruction c'est du genre boucle sur chaque ligne et si sur celle-ci tu trouves le terme, disons "plouf" alors tu shoot la ligne ce que je traduis par

Code :

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

1
2
3
4
	do while readfile.AtEndOfStream = false
contents = readfile.ReadLine		
if right(ltrim(rtrim(Contents)),20) = "Mon Terme que je veux shooter" then
newContents = ""

Et ce serait à la fin de cette procédure que tu rajouterais un deuxième do while ?

Autant en vba j'ai certaines notions, autant en vb je cale un peu ...

[hackoofr]

Non, Je n'ai pas ajouté de boucle mais c'est qu'il faut ajouter les deux lignes dans votre boucle elle-même

Code :

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

1
2
3
4
5
6
7
8
9
10
do while readfile.AtEndOfStream = false
	contents = readfile.ReadLine
	contents = Trim(contents)
	If Len(contents) > 0 Then      
		If right(ltrim(rtrim(Contents)),20) = "Mon Terme que je veux shooter" then
			...........
			..........
		end if
	end if
	newContents = ""

[don_pets]

Je ne sais pas si j'ai correctement interprété ton idée, mais toujours est-il que mon traitement ne me remonte aucune erreur, toutefois mes lignes vierges sont toujours vierges.

Voila ce que j'ai dans mon fichier avant traitement :

1234blabla
4567blabla
7879trucbidule
753trucbidule
951blabla

si le terme désigné est trucbidule, je souhaiterais avoir en résultat

1234blabla
4567blabla
951blabla

or avec mon code (et y compris avec le tiens) j'obtiens

1234blabla
4567blabla


951blabla

Donc ce que j'imaginais c'est qu'à la fin de mon instruction (après lui avoir dit la ligne devient "" si tu trouves trucbidule) si tu vois une ligne vierge tu la supprimes.

[l_autodidacte]

Essaie, tout en adaptant, ceci

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
Option Explicit 
 
Const ForReading = 1, ForWriting = 2
Const Find = "trucbidule" ' Chaine à rechercher
Dim fso, Fich, Ret, NewText
 
Set fso = CreateObject("Scripting.FileSystemObject") 
 
Set fich = fso.OpenTextFile("Test.txt", ForReading, False) 
Do While Not Fich.AtEndOfStream
   Ret = Fich.ReadLine
   If InStr(1, LCase(Ret), Find) = 0 And Ret <> "" Then
      NewText = NewText & Ret & vbNewLine
   End If
Loop
Fich.Close
 
Set fich = fso.OpenTextFile("Test.txt", ForWriting, True)
Fich.Write NewText
Fich.Close