Объект RegExp

Метасимволы

*

Описание:

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

Пример:

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