В VBScript есть функция Filter, которую можно использовать для фильтрации массива и возврата подмножества исходного массива. Описание синтаксиса:
Функция фильтра
Возвращает массив с отсчетом от нуля, содержащий подмножество массива строк на основе указанного условия фильтра.
Фильтр(Входные строки, Значение[, Включить[, Сравнить]])
параметр
Входные строки
Необходимый. Одномерный массив, в котором нужно искать строки.
Ценить
Необходимый. Строка для поиска.
Включать
Необязательный. Логическое значение, указывающее, содержит ли возвращаемая подстрока Value. Если Include имеет значение True, Filter возвращает подмножество массива, содержащее подстроку Value. Если Include имеет значение False, Filter возвращает подмножество массива, не содержащее значение подстроки.
Сравнивать
Необязательный. Числовое значение, указывающее тип используемой строки сравнения. См. раздел «Настройки значений».
настраивать
Параметр Compare может иметь следующие значения:
постоянный
ценить
описывать
vbBinaryCompare
0
Выполните бинарное сравнение.
vbTextCompare
1
Выполните сравнение текста.
иллюстрировать
Если в InputStrings не найдено соответствующего значения, Filter возвращает пустой массив. Если InputStrings имеет значение Null или не является одномерным массивом, возникает ошибка.
Массив, возвращаемый функцией Filter, содержит ровно столько элементов, сколько соответствует количеству совпадений.
В следующем примере функция Filter используется для возврата массива, содержащего условие поиска Mon:
Скопируйте код кода следующим образом:
Диммииндекс
Дим МойАррай (3)
MyArray(0) = воскресенье
MyArray(1) = понедельник
MyArray(2) = вторник
MyIndex = Filter(MyArray, Mon) 'MyIndex(0) содержит понедельник.
Вам нужно обратить внимание на красную позицию, MyIndex — это массив! ~
Скопируйте код кода следующим образом:
Уменьшить MyIndex,IndexItem
ДимМойАррай(2)
MyArray(0) = воскресенье
MyArray(1) = понедельник
MyArray(2) = понедельник
МойИндекс = Фильтр(МойМассив,Вторник)
Для IndexItem = 0 To UBound(MyIndex)
Ответ. Напишите MyIndex(понедельник)&<br />
Следующий