Existe uma função Filter em VBScript que pode ser usada para filtrar um array e retornar um subconjunto do array original. Descrição da sintaxe:
Função de filtro
Retorna uma matriz baseada em zero contendo um subconjunto de uma matriz de strings com base em uma condição de filtro especificada.
Filtro(InputStrings, Valor[, Incluir[, Comparar]])
parâmetro
Strings de entrada
Obrigatório. Uma matriz unidimensional na qual procurar cadeias de caracteres.
Valor
Obrigatório. A string a ser pesquisada.
Incluir
Opcional. Valor booleano que especifica se a substring retornada contém Value. Se Incluir for Verdadeiro, Filter retornará um subconjunto da matriz que contém o valor da substring. Se Incluir for False, Filter retornará um subconjunto da matriz que não contém o valor da substring.
Comparar
Opcional. Valor numérico que indica o tipo de string de comparação usada. Consulte a seção Configurações de valor.
configurar
O parâmetro Comparar pode ter os seguintes valores:
constante
valor
descrever
vbBinaryCompare
0
Execute uma comparação binária.
vbTextCompare
1
Execute a comparação de texto.
ilustrar
Se nenhum valor correspondente for encontrado em InputStrings, Filter retornará uma matriz vazia. Se InputStrings for Nulo ou não for uma matriz unidimensional, ocorrerá um erro.
A matriz retornada pela função Filter contém apenas elementos suficientes para conter o número de correspondências.
O exemplo a seguir usa a função Filter para retornar uma matriz contendo a condição de pesquisa Mon:
Copie o código do código da seguinte forma:
DimMyIndex
Escurecer MyArray (3)
MeuArray(0) = domingo
MeuArray(1) = segunda-feira
MyArray(2) = terça-feira
MyIndex = Filter(MyArray, Mon) 'MyIndex(0) contém segunda-feira.
Você precisa prestar atenção na posição vermelha, MyIndex é um array! ~
Copie o código do código da seguinte forma:
Dim MeuIndex,IndexItem
DimMyArray(2)
MeuArray(0) = domingo
MeuArray(1) = segunda-feira
MeuArray(2) = segunda-feira
MyIndex = Filter(MyArray,Terça-feira)
Para IndexItem = 0 Para UBound (MyIndex)
Response.Write MyIndex(segunda-feira)&<br />
Próximo