Объект RegExp

Метасимволы

+

Описание:

Определяет один или несколько символов, стоящих перед ним. Эквивалентно {1,}.

Пример:

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = "длинноше+"
Str = "длинношеее"
Res = objRegExp.Test(Str)
MsgBox "строка """ & Str & """ соответствует шаблону """ & objRegExp.Pattern & """ = " & Res