RegExp Récupérer référence groupes de capture.

Version imprimable

Bonjour,
Ce code me permet de chercher si le TxtSource contient l’un des caractères contenue dans le pattern.
Pour le remplacement je dois spécifier la position de mes groupes de capture manuellement "$7$12".
J’aimerais récupérer ces groupes de capture automatiquement.
J’ai essayé de jouer un peu avec une boucle sur les caractères de mon pattern et un appel match.Submatches(i), mais je ne m’en sort pas.
Un petit coup de main SVP ?

Code:

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
TxtSource = "Un test? Pourquoi faire? c'est fou ça?"
ReslutSpeciChars = ""	
 
Dim strText, RegularExpressioN
 
FindSpeciChars = "(\\)|(\/)|(\*)|(\+)|(\-)|(\=)|(\?)|(\!)|(\:)|(\;)|(\,)|(\')|(\&)|(\~)|(\{)|(\})|(\()|(\))|(\[)|(\])|(\@)|(\^)|(\¨)|(\$)|(\£)|(\€)|(\.)|(\<)|(\>)|(\|)" 
 
	strText = TxtSource		
	Set RegularExpressioN = New RegExp
	RegularExpressioN.Pattern = FindSpeciChars
	RegularExpressioN.Global = True
	Set Matches = RegularExpressioN.Execute(strText)
		If Matches.Count > 0 Then		  
		    MatchMsg = Matches.Count & " correspondance(s) trouvée(s)." & vbCRLF
		    	For Each Match In Matches
		      		MatchMsg = MatchMsg & "Correspondance trouvée """ & Match.Value & """ en position: " & Match.FirstIndex & vbCrLf
		    	Next
		    'MsgBox MatchMsg
		Else
		    MsgBox "Aucun match", 0, "VBScript RegExp Tester"
		End If		  										
	strText = RegularExpressioN.Replace(strText, "$7$12")
	Set RegularExpressioN = Nothing
	ReslutSpeciChars = strText
 
MsgBox TxtSource & vbCrLf & ReslutSpeciChars & vbCrLf & MatchMsg

Je pense avoir trouvé.

Source: http://www.regular-expressions.info/vbscript.html

Citation:

You can specify an empty string as the replacement text. This will cause the Replace method to return the subject string will all regex matches deleted from it. To re-insert the regex match as part of the replacement, include $& in the replacement text. E.g. to enclose each regex match in the string between square brackets, specify [$&] as the replacement text. If the regexp contains capturing parentheses, you can use backreferences in the replacement text. $1 in the replacement text inserts the text matched by the first capturing group, $2 the second, etc. up to $9. To include a literal dollar sign in the replacements, put two consecutive dollar signs in the string you pass to the Replace method.

Ça fonctionne, mais n'étant pas très à mon aise avec la langue de Shakespeare, pouvez-vous me confirmer que mon utilisation est correcte?
Code:

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 TxtSource = "Un test? Pourquoi faire? c'est fou ça?" ReslutSpeciChars = "" Dim strText, RegularExpressioN FindSpeciChars = "(\\)|(\/)|(\*)|(\+)|(\-)|(\=)|(\?)|(\!)|(\:)|(\;)|(\,)|(\')|(\&)|(\~)|(\{)|(\})|($)|($)|(\[)|(\])|(\@)|(\^)|(\¨)|(\$)|(\£)|(\€)|(\.)|(\<)|(\>)|(\|)" strText = TxtSource Set RegularExpressioN = New RegExp RegularExpressioN.Pattern = FindSpeciChars RegularExpressioN.Global = True Set Matches = RegularExpressioN.Execute(strText) If Matches.Count > 0 Then MatchMsg = Matches.Count & " correspondance(s) trouvée(s)." & vbCRLF For Each Match In Matches MatchMsg = MatchMsg & "Correspondance trouvée """ & Match.Value & """ en position: " & Match.FirstIndex & vbCrLf Next 'MsgBox MatchMsg Else MsgBox "Aucun match", 0, "VBScript RegExp Tester" End If strText = RegularExpressioN.Replace(strText, "$&") Set RegularExpressioN = Nothing ReslutSpeciChars = strText MsgBox TxtSource & vbCrLf & ReslutSpeciChars & vbCrLf & MatchMsg

15/12/2017, 22h18
CosmoKnacki

Mais qu'est-ce que tu cherches à faire? Pourquoi avoir construit une alternative géante et avoir mis chaque caractère dans un groupe de capture différent?
15/12/2017, 23h25
Invité

C'était qu'une étape qui ma conduit a créer une nouvelle discussion nommée::
RegExp récupérer Submatches ?