Discussion :

[issoram]

Bonjour,

Voilà la problématique que je n'arrive pas à résoudre avec une expression régulière: je cherche à remplacer une sous-chaine du motif matché par une autre chaine (et pas tout le motif matché: ce que j'arrive seulement à faire)

Exemple:

Dans la chaine: "bonjourX5toto5" ", si je recherche le caractère "X" suivi d'un numérique, je vais récupérer "X5"

Je voudrais modifier juste le "5" et pas "X5",
par exemple par 3: "bonjourX3toto5"

mais je n'y arrive pas avec la fonction replace du module RegExp

Merci de votre aide.

[mercatog]

Bonjour
Une proposition:

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
28
29
30
31
'Mot: Mot dans lequel s'opère la recherche
'Rech: Occurence recherchée
'Remp: Mot de remplacement
'Glb: Paramètre optionnel, la recherche se fait sur la globalité ou sur la première occurence. par défaut false
 
Function Remplace(ByVal Mot As String, ByVal Rech As String, ByVal Remp As String, Optional ByVal Glb As Boolean) As String
Dim Reg As New VBScript_RegExp_55.RegExp
Dim blGlobal As Boolean
 
If IsMissing(Glb) Then
    blGlobal = False
Else
    blGlobal = Glb
End If
With Reg
    .Pattern = "(" & Rech & ")(\d{1,})"
    .Global = blGlobal
    Mot = .Replace(Mot, "$1" & Remp)
End With
Set Reg = Nothing
Remplace = Mot
End Function
 
Public Sub Essai()
Dim stMot As String, stRech As String, stRemp As String
 
stMot = "bonjour X1971 toto5 X3 X Xa"
stRech = "X"
stRemp = 2011
Debug.Print Remplace(stMot, stRech, stRemp, True)
End Sub

Ci-joint lien intéressant