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

Функция FindAll.

Функция FindAll выполняет поиск шаблона pattern в строке source, после чего возвращает массив строк, содержащих найденные совпадения.

Function FindAll(Source, Pattern)

	Set objMatches = ExecRegexp(Source, Pattern)

	ReDim arr(objMatches.Count)

	For i=0 To objMatches.Count-1
		
		arr(i) = objMatches.Item(i).Value

	Next

	FindAll = arr

End Function

Пример:

str = "x86/x64"
pattern = "x\d+"

resArr = FindAll(str, pattern)'найти все вхождения шаблона в строку

WScript.Echo "Searching pattern " & Chr(34) & pattern & Chr(34) & " in " & Chr(34) & str & Chr(34) & " string."

For i = 0 To  UBound(resArr) - 1

	WScript.Echo "Match " & i+1 & ": " & Chr(34) & resArr(i) & Chr(34)

Next

Searching pattern "x\d+" in "x86/x64" string.
Match 1: "x86"
Match 2: "x64"