VBS Expert

1. Файловая система
   1. Текстовые файлы
   2. Двоичные файлы
   3. Каталоги
   4. Zip-архивы
2. Регулярные выражения
   1. Функция TestString
   2. Функция ExecRegexp
   3. Функция FindAll
   4. Функция rgReplace
3. Базы данных
   1. Объект Recordset
   2. Объект Command
4. Двоичные данные
   1. Функция StrToUTF8
   2. Функция BStrToBinStr
   3. Функция BStrToHexStr
   4. Функция BinStrToHexStr
   5. Функция HexStrToBinStr
5. Полезные функции
   1. Буфер обмена
   2. Процедура Echo
   3. Процедура Include
   4. Хеш-функция MD5
   5. Функция getUserName
   6. Функция PadLeft

Функция TestString.

Функция TestString возвращает true/false в зависимости от того, найдутся ли в строке source совпадения с шаблоном pattern.

Function TestString(source, pattern)'проверяет вхождение паттерна в тестируемую строку

	Set objRegExp = CreateObject("VBScript.RegExp")
	objRegExp.Pattern = pattern
	objRegExp.Global = True

	TestString = objRegExp.Test(source)

End Function

Для проверки соответствия шаблону всей строки необходимо в начале паттерна поставить символ «^», а в конце — «$».

Пример:

str = "_qwerty123"
pattern = "[a-z]+[0-9]+"

WScript.Echo "Testing string " & Chr(34) & str & Chr(34) & " with pattern " & Chr(34) & pattern & Chr(34)

If(TestString(str, pattern)) Then'наличие вхождения

	WScript.Echo "Result: True"

Else

	WScript.Echo "Result: False"

End If

WScript.Echo ""

pattern = "^" & pattern & "$"

WScript.Echo "Testing string " & Chr(34) & str & Chr(34) & " with pattern " & Chr(34) & pattern & Chr(34)

If(TestString(str, pattern)) Then'полное соответствие

	WScript.Echo "Result: True"

Else

	WScript.Echo "Result: False"

End If

Testing string "_qwerty123" with pattern "[a-z]+[0-9]+"
Result: True

Testing string "_qwerty123" with pattern "^[a-z]+[0-9]+$"
Result: False