Объект RegExp

Метасимволы

[^abc]

Описание:

Исключающий набор символов. Находит любой из неуказанных символов.

Пример:

Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Global = True
Str = "Windows Lindows Linux"
objRegExp.Pattern = "in[^uv]"
Set objMatches = objRegExp.Execute(Str)
MsgBox objMatches.Count