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

Функция rgReplace.

Функция rgReplace производит в строке source поиск pattern-ов и замену их на строку eqiv.

Function rgReplace(source, pattern, equiv)

    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Pattern = pattern
	objRegExp.Global = True
    rgReplace = objRegExp.Replace(source, equiv)

End Function

Пример:

'замена последовательностей пробельных символов одиночными пробелами
source = "1  2   3			4"
pattern = "\s+"
equiv = " "

WScript.Echo "old string: '" & source & "'"

WScript.Echo "new string: '" & rgReplace(source, pattern, equiv) & "'"

old string: '1  2   3			4'
new string: '1 2 3 4'