Sub MethExecute ()
Тусклое objRegEx, objMatch, strString, strDisplayMsg
Установите objRegEx = CreateObject («VBScript.RegExp»)
objRegEx.Pattern = «медведь»
objRegEx.Global = True
objRegEx.IgnoreCase = True
strString = «раз на времени там был 3 медвежонка. Был mama медведь, медведь папы и медведь младенца»
strDisplayMsg = ""
Для каждого objMatch в objRegEx.Execute (strString)
strDisplayMsg = strDisplayMsg & «пример» + objMatch.Value & «нашли на положении» & CStr (CInt (objMatch.FirstIndex) + 1) & VbCrlf
Затем
MsgBox (strDisplayMsg)
Подводная лодка конца
|
