Regexp Matches ignorer occurrence d'un caractère.

Bonjour,
Sub btnMatchMinChars_OnClick me remonte le nombre d'occurrences minuscules trouvés dans MyTextArea.

MyTextArea = "Il y a quoi ce soir à la TV".
J'ai donc 15 occurrences soit: "l y a quoi ce soir la".

J'aimerais ignorer les occurrences "y" et "a".
Une idée?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub btnMatchMinChars_OnClick ValMinChars = "[a-z]" strText = MyTextArea.Value Set RegularExpressioN = New RegExp RegularExpressioN.Pattern = ValMinChars RegularExpressioN.Global = True Set matches = RegularExpressioN.Execute(strText) If matches.Count > 0 Then msg = "Found " & matches.Count & " matches:" & vbCRLF MsgBox msg, 0, "VBScript Regular Expression Tester" Else MsgBox "No match", 0, "VBScript Regular Expression Tester" End If End Sub

---

bonjour,

Code:

---

ValMinChars = "[b-xz]"

---

étant précisé que "tes occurences minuscules" ne comprennent pas les caractères accentués...
d'une façon plus générale, pourquoi ne pas prendre le temps de lire attentivement
la rubrique de l'aide intitulée "introduction aux expressions régulières" ce qui t'éviterait de buter sur
des questions aussi basiques

Salut

Code:

---

1 2	ValMinChars = "([a-z])(?! a )(?! y )" MyTextArea = "Il y a quoi ce soir à la TV" 'ignorer | a | y |

---

nombre d'occurrence: 13
______________________________________________________________________________________

Code:

---

1 2	ValMinChars = "([a-z])(?! a )(?! y )(?! d')" 'ignorer | a | y | d'| MyTextArea = "Il y a quoi ce soir à la TV, rien d'intéressant"

---

nombre d'occurrence: 27

Salut

:coucou:omen999
j'ai l'impression que ton reg "[b-xz]" élimine le a du la dans son expression "Il y a quoi ce soir à la TV"

Bonjour,
Quelque chose m'échappe là!

Pièce jointe 331771

Citation:

---

Envoyé par NeriXs

Bonjour,
Quelque chose m'échappe là!

---

Pièce jointe 331776

La méthode replace aurait du me remplacer toutes mes minuscules hormis «y», «a» et «d’» non?

"I- y a ---- -- ---- à -- TV, ---- d'---é-------"

Le résultat n’est pas celui voulu !

Pièce jointe 331877

Nbr.d'occurence: 27
position: 6 Longueur: 1 Valeur: a
SubMatches = ---|a|---
position: 8 Longueur: 1 Valeur: q
SubMatches = ---|q|---
position: 9 Longueur: 1 Valeur: u
SubMatches = ---|u|---
position: 10 Longueur: 1 Valeur: o
SubMatches = ---|o|---
position: 11 Longueur: 1 Valeur: i
SubMatches = ---|i|---
position: 13 Longueur: 1 Valeur: c
SubMatches = ---|c|---
position: 14 Longueur: 1 Valeur: e
SubMatches = ---|e|---
position: 16 Longueur: 1 Valeur: s
SubMatches = ---|s|---
position: 17 Longueur: 1 Valeur: o
SubMatches = ---|o|---
position: 18 Longueur: 1 Valeur: i
SubMatches = ---|i|---
position: 19 Longueur: 1 Valeur: r
SubMatches = ---|r|---
position: 23 Longueur: 1 Valeur: l
SubMatches = ---|l|---
position: 24 Longueur: 1 Valeur: a
SubMatches = ---|a|---
position: 30 Longueur: 1 Valeur: r
SubMatches = ---|r|---
position: 31 Longueur: 1 Valeur: i
SubMatches = ---|i|---
position: 32 Longueur: 1 Valeur: e
SubMatches = ---|e|---
position: 35 Longueur: 1 Valeur: d
SubMatches = ---|d|---
position: 37 Longueur: 1 Valeur: i
SubMatches = ---|i|---
position: 38 Longueur: 1 Valeur: n
SubMatches = ---|n|---
position: 39 Longueur: 1 Valeur: t
SubMatches = ---|t|---
position: 41 Longueur: 1 Valeur: r
SubMatches = ---|r|---
position: 42 Longueur: 1 Valeur: e
SubMatches = ---|e|---
position: 43 Longueur: 1 Valeur: s
SubMatches = ---|s|---
position: 44 Longueur: 1 Valeur: s
SubMatches = ---|s|---
position: 45 Longueur: 1 Valeur: a
SubMatches = ---|a|---
position: 46 Longueur: 1 Valeur: n
SubMatches = ---|n|---
position: 47 Longueur: 1 Valeur: t
SubMatches = ---|t|---

Soit :
a|quoi|ce|soir|la|rie|d|intressant

Il manque le "l" de Il, le "n" de rien.
Le "a" et le "d" sont présents, sans l’apostrophe.

Je ne devrais pas plutôt avoir :
l|quoi|ce|soir|la|rien|intressant

Salut,

Citation:

---

j'ai l'impression que ton reg "[b-xz]" élimine le a du la dans son expression "Il y a quoi ce soir à la TV"

---

yep, la question initiale est ambigüe
pour moi "une occurrence de a" implique également celles incluses dans un mot et non simplement isolées
en réalité nous avons répondu à deux interprétations différentes de la même question :mouarf:

Pouvez-vous m’expliquer pourquoi le pattern "([a-z])(?! a )(?! y )" ne donne pas le résultat espéré? Sur la recherche des caractères "a" et "y" de mon exemple?

Citation:

---

Envoyé par NeriXs

Pouvez-vous m’expliquer pourquoi le pattern "([a-z])(?! a )(?! y )" ne donne pas le résultat espéré? Sur la recherche des caractères "a" et "y" de mon exemple?

---

Cette pattern est fausse car elle élimine les lettres suivies d'un "a" ou d'un "y" entourés d'espaces. Or ce que tu cherches, si j'ai bien compris, c'est à éliminer ces deux lettres lorsqu'elles sont isolées.

Pour faire ça, il faut que les tests avant soient placés à la même position que le caractère qui va être éventuellement consommé: (?!\b[ay]\b)[a-z].

Si maintenant le but du jeu est d'éviter n'importe quelle lettre isolée, tu peux le faire sans utiliser de test avant, juste en jouant avec les limites de mot (word-boundaries):[a-z]\B|\B[a-z]

Bonsoir à tous,
Merci CosmoKnacki, c’est exactement le pattern qu’il fallait. :king:
Quel pattern utiliserais tu pour isoler une ou plusieurs lettre minuscule unique dans un groupe de caractères?

Exemples:
Il va bien
LabTxT
sTrText

Eh bien, ce n'est pas possible en vbscript, car si je ne m'abuse, ce langage ne supporte pas les tests arrière (?<!...) qui permettraient d'écrire simplement: (?<![a-z])[a-z](?![a-z]) soit (pas de minuscule avant, pas de minuscule après).

La seule chose à faire est donc de ruser en décrivant et en consommant la position avant le caractère ciblé: ([^a-z]|^)[a-z](?![a-z]) (cette position peut être soit le début de la chaîne ^, soit un caractère qui n'est pas une lettre minuscule [^a-z]). Tout ce que ça change, c'est qu'éventuellement deux caractères seront consommés par la pattern (le caractère précédent et le caractère cible). Ça ne pose pas de problème s'il s'agit juste de compter le nombre de match. Par contre, si tu comptes faire un remplacement, tu devras mettre une référence au groupe de capture 1 dans la chaîne de remplacement pour restituer le caractère qui précède ton caractère cible.

Citation:

---

Envoyé par CosmoKnacki

Tout ce que ça change, c'est qu'éventuellement deux caractères seront consommés par la pattern (le caractère précédent et le caractère cible). Ça ne pose pas de problème s'il s'agit juste de compter le nombre de match. Par contre, si tu comptes faire un remplacement, tu devras mettre une référence au groupe de capture 1 dans la chaîne de remplacement pour restituer le caractère qui précède ton caractère cible.

---

Je n'ai pas bien compris cette référence substitution "\1-"
Un petit exemple VBS est possible ?

Malheureusement, ça fait au moins dix ans que je n'ai plus Windows installé chez moi et je fais ça un peu de mémoire (sachant que j'ai utilisé très peu vbscript). Peut-être que le placeholder pour la capture dans la chaîne de remplacement est $1 au lieu de \1 (ça varie d'un langage à l'autre), je ne m'en rappelle plus.

Quoi qu'il en soit, le principe est simple. Quand tu mets des parties de ta pattern entre parenthèses comme:La (famille) (Doucoeur) c'est la famille du (bonheur), tu définies des groupes de captures (1:famille, 2:Doucoeur, 3:bonheur). Ces sous-chaînes sont stockées indépendamment du résultat complet qui serait une sorte de groupe de capture 0:La famille Doucoeur c'est la famille du bonheur contenant l'intégralité de la correspondance.

Dans le cadre d'un remplacement:

Code:

---

1 2 3 4 5 6 7 8

Set objRegEx = CreateObject("VBScript.RegExp")   objRegEx.Pattern = "La (famille) (Doucoeur) c'est la famille du (bonheur)"   strSearchString = "La famille Doucoeur c'est la famille du bonheur" strNewString = objRegEx.Replace(strSearchString,"$2-$1-$3")   Wscript.Echo strNewString

---

Ce qui devrait afficher: Doucoeur-famille-bonheur.

Dans l'exemple précédent, ([^a-z]|^) capture le I de Il, donc pour ne pas l'effacer lors d'un remplacement, on écrit $1-.

Parfait :ccool:

Merci pour l'exemple et surtout l'explication.

Comme conseillé, j'ai mis en référence mon groupe de capture 1 dans ma chaîne de remplacement pour restituer le caractère qui précède mon caractère cible.
Le remplacement est OK
J'aimerais faire en sorte que les informations match soient en adéquations avec mes caractères de remplacements.
Explication:

Actuellement j'ai:
6 correspondance(s) trouvée(s).
Correspondance trouvée "Il" en position: 0
Correspondance trouvée " y" en position: 2
Correspondance trouvée " a" en position: 4
Correspondance trouvée " s" en position: 7
Correspondance trouvée "Tr" en position: 9
Correspondance trouvée "Tx" en position: 20

Et j'aimerais:
6 correspondance(s) trouvée(s).
Correspondance trouvée "l" en position: 1
Correspondance trouvée "y" en position: 3
Correspondance trouvée "a" en position: 5
Correspondance trouvée "s" en position: 8
Correspondance trouvée "r" en position: 10
Correspondance trouvée "x" en position: 21

Auriez-vous une idée ?
J’avais pensé a quelque chose comme "match.chaine1.value", mais ce n’est pas géré.

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 27 28 29 30 31

Option Explicit   Dim TxtSource, TxtReslutCharsMinChars, strText, RegularExpressioN Dim FindCharsMinChars, SubstitCharsMinChars, matches, MatchMsg, match, ResultMsg   TxtSource = "Il y a. sTrText. LabTxT." TxtReslutCharsMinChars = ""   FindCharsMinChars = "([^a-z]|^)[a-z](?![a-z])" SubstitCharsMinChars = "-"   strText = TxtSource Set RegularExpressioN = New RegExp RegularExpressioN.Pattern = FindCharsMinChars 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 "Aucune correspondance trouvée ", 0, "VBScript RegExp Tester" End If strText = RegularExpressioN.Replace(strText, "$1" & SubstitCharsMinChars) Set RegularExpressioN = Nothing TxtReslutCharsMinChars = strText ResultMsg = TxtReslutCharsMinChars   MsgBox TxtSource & vbCrLf & ResultMsg & vbCrLf & MatchMsg

---

Malheureusement en VBScript l'objet Match ne contient que la position du match complet et pas la position des groupes de captures, donc inutile de changer la pattern en ([^a-z]|^)([a-z])(?![a-z]) en espérant obtenir la position du groupe de capture 2 comme on pourrait le faire avec VB.net ou d'autres langages. La seule solution est la déduction, on a la position de la correspondance ainsi que le groupe de capture 1, donc la position de la lettre est position correspondance + taille capture groupe 1 ou encore position correspondance + taille correspondance - 1. Il n'y a pas d'autre moyens (reférence).

Bonjour,
Je parviens à récupérer la bonne position des mes caractères, mais pour ce qui de la valeur !
Je suis dépassé.

Code:

---

MatchMsg = MatchMsg & "Correspondance trouvée """ & match.Value & """ en position: " & CStr(match.FirstIndex + 1) & vbCrLf

---

Un peu d’aide SVP ?

match.FirstIndex + 1: c'est faux! Prend par exemple un chaîne qui commence par une lettre isolée (a bon chat bon rat), ça te renverra 1 au lieu de 0. J'ai pourtant donné deux manières de trouver la position de la lettre:match.FirstIndex + Len(match.SubMatches(0)) ou match.FirstIndex + Len(match.Value) - 1.

Ensuite pour isoler la lettre du reste, deux solutions sont possible: soit tu exploites la position que tu as calculée en extrayant la sous-chaîne avec Mid(lachaine, position, 1), soit tu ajoutes un groupe de capture autour du caractère: ([^a-z]|^)([a-z])(?![a-z]) et tu le récupères avec match.SubMatches(1) (car bien entendu le groupe de capture 2 est stocké dans le "submatch" 1, de même que le groupe de capture 1 est stocké dans le "submatch" 0. Si quelqu'un connait le responsable de cette ânerie qu'il n'hésite pas à le gifler de ma part.)

Bonsoir,

:merci:

Le résultat est OK:

Code:

---

MatchMsg = MatchMsg & "Correspondance trouvée """ & match.Submatches.Item(1) & """ en position: " & match.FirstIndex + Len(match.SubMatches(0)) & vbCrLf

---

J’espère avoir vu juste cette foi! :boulet:


Les multiple Guillemets sont inutile ici non? :pastaper:

Code:

---

MatchMsg = MatchMsg & "Correspondance trouvée """ & match.Submatches.Item(1) & """ en position: " & match.FirstIndex + Len(match.SubMatches(0)) & vbCrLf

---

Même résultat avec:

Code:

---

MatchMsg = MatchMsg & "Correspondance trouvée " & match.Submatches.Item(1) & " en position: " & match.FirstIndex + Len(match.SubMatches(0)) & vbCrLf

---

Ça a l'air bien. À propos des doubles guillemets, je ne sait pas trop quoi te dire. Je pensais que c'était la manière d'échapper un guillemet dans une chaîne entre guillemets.