Bonjour,

J'aimerais remplacer, pour une chaine donnée un saut de ligne avant certains caractères :
if => saut de ligne + if
del => saut de ligne + del
...

j'aimerais le faire avec une expression régulière, car pour l'instant c'est un peu barbare , et ma chaine n'est modifiée qu'une seule fois :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Function ReplaceWithVBCRLF (script)
 
	Dim clean
	ReplaceWithVBCRLF = Replace(script, "IF", VBCrlf & "IF")
	ReplaceWithVBCRLF = Replace(script, "if", VBCrlf & "if")
	ReplaceWithVBCRLF = Replace(script, "DEL", VBCrlf & "DEL")
	ReplaceWithVBCRLF = Replace(script, "del", VBCrlf & "del")
	ReplaceWithVBCRLF = Replace(script, "DELTREE", VBCrlf & "DELTREE")
	ReplaceWithVBCRLF = Replace(script, "deltree", VBCrlf & "deltree")
	ReplaceWithVBCRLF = Replace(script, "MSIEXEC", VBCrlf & "MSIEXEC")
	ReplaceWithVBCRLF = Replace(script, "msiexec", VBCrlf & "msiexec")
 
End Function
Merci pour votre aide