MethExecute secondaire ()
Faible objRegEx, objMatch, strString, strDisplayMsg
Placer l'objRegEx = le CreateObject (« VBScript.RegExp »)
objRegEx.Pattern = « ours »
objRegEx.Global = rectifient
objRegEx.IgnoreCase = rectifient
strString = « il était une fois là étaient trois peu des ours. Il y avait maman ours, ours de papa et ours de bébé »
strDisplayMsg = ""
Pour chaque objMatch dans objRegEx.Execute (strString)
strDisplayMsg = strDisplayMsg et « un exemple de » + objMatch.Value et « trouvé chez la position » et le CStr (CInt (objMatch.FirstIndex) + 1) et VbCrlf
Après
MsgBox (strDisplayMsg)
Sous-marin d'extrémité
|