VBScript. Функция Filter

Извлекает из массива строк элементы, удовлетворяющие указанному критерию и помещает их в результирующий массив.

 Filter(inputstrings, value[, include[, compare]])

inputstrings 

Массив строк из которого осуществляется выбор.

value 

Искомая подстрока.

include 

Опциональный параметр. Если равен True, только те строки, которые содержат подстроку value, будут отобраны. Если False —извлекаются строки не содержащие искомую подстроку.

compare 

Опциональный параметр. Определяет как будет осуществляться поиск: с учетом регистра символов (vbBinaryCompare) или без учета (vbTextCompare).

Результирующий массив может быть пустым, если ни одна строка не отвечает критерию отбора.

Пример:

 Dim A
 A = Filter(Array("100", "200", "300"), "1") ' A(0) = "100"