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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager