REPLACE RegEx - Remplacer des caractères différents par un même caractère en un seul appel

**informer** · 05/02/2020, 14h04

Bonjour à tous,

En vba, il existe une fonction native REPLACE(expression, find, replace, [ start, [ count, [ compare ]]]) Voir ici pour plus d'information

Toutefois, cette fonction ne peut remplacer qu'un seul caractère à la fois. donc dans l'éventualité d'un remplacement de différents caractères par un même caractère, rien de mieux que l'utilisation du RegEx. Le code suivant permet cette action!

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
Public Function fRegExReplace(psValue As String, psPattern As String, psBy as string) As String
 
    Dim oRegExp As New regexp
    Dim sPattern As String,sValueCleaned As String
 
    If Nz(psValue) = "" Then GoTo Exit_
 
    'Set oRegExp = CreateObject("vbscript.regexp")
 
    With oRegExp
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .Pattern = psPattern
 
        sValueCleaned = .Replace(Nz(psValue), psBy)
 
    End With
 
    fRegExReplace = sValueCleaned
 
Exit_:
 
    Set oRegExp = Nothing
 
End Function

Exemple de remplacement en une seule passe des caractères

ESPACES
[
]

par VIDE

Code :

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

sTextCleaned = fRegExReplace(sFieldName, "\s|\[|\]","")

**User** · 06/02/2020, 18h31

Bonsoir,

Ton idée est intéressante, cependant j'aurais une question :

Le fait d'instancier l'objet regexp dans la fonction cela ne risque-t-il pas de ralentir le code par rapport à une fonction utilisant Replace dans une boucle ?

Cdlt,