RegExp récupérer Submatches ?Résolu

Question

Bonjour,
Je bute sur la récupération des Submatches des (groups) de mon pattern.
J’espère que ce que j’essaie de faire est réalisable?
Pouvez-vous m’aider?

TxtSource = "\\*-****/Un test, Pourquoi faire? c'est fou ça! \****-*///"ReslutSpeciChars = ""	 Dim strText, RegularExpressioN '([^\,]|^)([\,])(?![\,])'[^\,] = n'est pas une virgule. '| = ou.'^ = est au début de la chaîne.'(?![\,]) = n'est pas suivit d'une virgule.'Equivalent a (?<![\,])[\,](?![\,]) soit (pas de virgule avant, pas de virgule après), mais non supporter par vb (test arrière (?<!....). '"\" =([^\]|^)([\])(?![\])'"/" =([^/]|^)([/])(?![/])'"*" =([^\*]|^)([\*])(?![\*]) 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.Submatches(1) & """ en position: " & match.FirstIndex + Len(match.SubMatches(0)) & vbCrLf		    	Next		    'MsgBox MatchMsg		Else		    MsgBox "Aucun match", 0, "VBScript RegExp Tester"		End If		  											strText = RegularExpressioN.Replace(strText, "$&")'"$1" "$&"	Set RegularExpressioN = Nothing	ReslutSpeciChars = strText MsgBox TxtSource & vbCrLf & ReslutSpeciChars & vbCrLf & MatchMsg

jordane45 · Answer

Bonjour,
Ton pattern ne semble pas bon.
Commence par le tester en ligne, par exemple ici : http://regexstorm.net/tester
Sinon.. décris nous exactement ce que tu espères obtenir.

NeriXs · Answer

Bonjour,
Mon pattern est bon :

([^\]|^)([\])(?![\])|([^/]|^)([/])(?![/])|([^\*]|^)([\*])(?![\*])

Prenons l’exemple avec le caractère ",".
Normalement j’aurais du utiliser ce pattern : (?<![\,])[\,](?![\,]) soit (pas de virgule avant, pas de virgule après).
Vu que le langage VBScript ne supporte pas les tests arrière (?<!…), il a fallu ruser, en décrivant et en consommant la position avant le caractère ciblé: ([^\,]|^)([\,])(?![\,]) (cette position peut être soit le début de la chaîne ^, soit un caractère qui n'est pas une virgule [^\,]). Ce qui change, c'est que deux caractères sont consommés par la pattern (le caractère précédent et le caractère cible). 
Pour le remplacement, il est nécessaire de mettre une référence au groupe de capture dans la chaîne de remplacement pour restituer le caractère qui précède le caractère cible. 
Le code fonctionne bien avec mon première caractère "\" soit le pattern: ([^\]|^)([\])(?![\]) mais des que je veux traiter les deux autres !!!(groupes séparés par "|").

Je bute sur la manière d’adapter mes matches pour le value et la position de mes caractères.

NeriXs · Answer

Voici le test qui fonctionne :

Référence au groupe de capture "$1".

"$&" est sensé reprendre tous les groupes de capture pour la suite.

TxtSource = "\\*-****/Un test, Pourquoi faire? c'est fou ça! \****-*///"ReslutSpeciChars = ""  Dim strText, RegularExpressioN '([^\,]|^)([\,])(?![\,])'[^\,] = n'est pas une virgule. '| = ou.'^ = est au début de la chaîne.'(?![\,]) = n'est pas suivit d'une virgule.'Equivalent a (?<![\,])[\,](?![\,]) soit (pas de virgule avant, pas de virgule après), mais non supporter par vb (test arrière (?<!....). '"\" =([^\]|^)([\])(?![\])'"/" =([^/]|^)([/])(?![/])'"*" =([^\*]|^)([\*])(?![\*]) 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.Submatches(1) & """ en position: " & match.FirstIndex + Len(match.SubMatches(0)) & 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

Whismeril · Answer

Bonsoir,

Peux tu mettre le resultat que tu attends à partir du texte que tu as mis en exemple?

NeriXs · Answer

Le bute est de récupérer les caractères isolés .

Whismeril · Answer

C’est pas clair, j’ai mis ton code « qui marche » dans regexstorm, et ça capture un anti slash coincé entre un espace et une étoile. C’est pas ce que j’appellerais isolé.

NeriXs · Answer

Le résultat du remplacement attendu n'est pas visible vu que je remplace le caractère par lui-même.
J'ai besoin de ce remplacement pour la suite de mon programme.

Pour voir ce qui est trouvé ajouter des parenthèses autour du $& soit ($&) ce qui donne au replace pour les caractères "\","/" et "*".

TxtSource = $\*)-***(*/)Un test, Pourquoi faire? c'est fou ça!( $****(-*)///
Jusque-là pas de problème le remplacement est bon.

C'est au niveau de la récupération de la valeur et de la position de de mes caractères que ça coince
En utilisant le pattern: ([^\]|^)([\])(?![\]) pour le caractères "\" c'est bon le résultat du MsgBox est:
1 correspondance(s) trouvé(s). 
Correspondance trouvée "\" en position: 49

Mais, dès que j'essaie un pattern avec les caractères "\"|"/"|"*".
([^\]|^)([\])(?![\])|([^/]|^)([/])(?![/])|([^\*]|^)([\*])(?![\*])

Le résultat est :
4 correspondance(s) trouvé(s). 
Correspondance trouvée "" en position: 2
Correspondance trouvée "" en position: 8
Correspondance trouvée "\" en position: 49
Correspondance trouvée "" en position:54

J'aimerais avoir ceci:
4 correspondance(s) trouvé(s). 
Correspondance trouvée "*" en position: 3
Correspondance trouvée "/" en position: 9
Correspondance trouvée "\" en position: 49
Correspondance trouvée "*" en position:55

NeriXs · Answer

Sous vbs le résultat est identique au donnée de l’onglet Context de regexstorm:
\\|-****|Un test, Pourquoi faire? c'est fou ça! |****-|///
Hâte de voir comment tu va traiter la suite, encore merci !

NeriXs · Answer

Voici la solution retenue en grand merci Whismeril

Sub Macro1() Dim pattern As String Dim texte As String pattern = "([^\]|^)([\])(?![\])|([^/]|^)([/])(?![/])|([^\*]|^)([\*])(?![\*])|([^\-]|^)([\-])(?![\-])" texte = "\-\\*-****/Un test, Pourquoi faire? c'est fou ça! \****-*///*/"  Dim regex As VBScript_RegExp_55.RegExp Set regex = New VBScript_RegExp_55.RegExp regex.pattern = pattern regex.Global = True  Dim match As VBScript_RegExp_55.match Dim matches As VBScript_RegExp_55.MatchCollection Set matches = regex.Execute(texte) Debug.Print matches.Count  Dim sortie As String For Each match In matches        For i = 1 To match.SubMatches.Count - 1 Step 2            If Not (match.SubMatches(i) = "") Then                Debug.Print ("Correspondance trouvée """ & match.Submatches(i) & """ en position: " & match.FirstIndex + Len(match.Value) - 1)            End If        Next i Next match End Sub

Je rencontre un nouveau problème!
Si deux caractères "seule" et côte à côte seule le 1er et prit en compte
/**** *\/  Ok pour le 0 le 6 et le 9
/**** *\  Ok pour le 0 et le 6 mais pas le 7

NeriXs · Answer

Je dois dans la mesure du possible rester sous VBScript. Penses tu qu’il soit possible de traiter chaque "sous patterns" indépendamment ?
Dans une sorte de boucle et surtout récupérer chaque positions et valeurs?

NeriXs · Answer

N’étant pas très a mon aise, avec la gestion d’une boucle dans ce contexte de multiple sous pattern,
j’appréciais beaucoup qu’une personne expérimentée puisse me donner un exemple complet.

NeriXs · Answer

Bonjour, 
C'est impeccable! Merci
Juste une petite erreur.
Les caractères sont décalés de + 1.
Modification de la ligne 30
Debug.Print ("Correspondance trouvée """ & match.Submatches(i) & """ en position: " & match.FirstIndex + Len(match.Value) - 1)

RegExp récupérer Submatches ?

12 réponses

Votre réponse

Discussions similaires