Объект RegExp

Метасимволы

{n}

Описание:

Определяет точное количество символов, стоящих перед ним. "n" - неотрицательное целое число.

Пример:

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
Str = "000111001110000"
objRegExp.Pattern = "0{3}"
Set objMatches = objRegExp.Execute(Str)
MsgBox "в строке """ & Str & """ найдено " & objMatches.Count & " вхождений по шаблону """ & objRegExp.Pattern & """"