Hay una función de filtro en VBScript que se puede usar para filtrar una matriz y devolver una matriz de subconjunto de la matriz original. Descripción de sintaxis:
Función de filtro
Devuelve una matriz de base cero que contiene un subconjunto de una matriz de cadenas basada en una condición de filtro especificada.
Filtro (cadenas de entrada, valor [, incluir [, comparar]])
parámetro
cadenas de entrada
Requerido. Una matriz unidimensional en la que buscar cadenas.
Valor
Requerido. La cadena a buscar.
Incluir
Opcional. Valor booleano que especifica si la subcadena devuelta contiene Valor. Si Incluir es Verdadero, Filtro devuelve un subconjunto de la matriz que contiene la subcadena Valor. Si Incluir es Falso, Filtro devuelve un subconjunto de la matriz que no contiene la subcadena Valor.
Comparar
Opcional. Valor numérico que indica el tipo de cadena de comparación utilizada. Consulte la sección Configuración de valores.
configuración
El parámetro Comparar puede tener los siguientes valores:
constante
valor
describir
vbBinaryCompare
0
Realizar una comparación binaria.
vbTextComparar
1
Realizar comparación de texto.
ilustrar
Si no se encuentra ningún valor coincidente en InputStrings, Filter devuelve una matriz vacía. Si InputStrings es nulo o no es una matriz unidimensional, se produce un error.
La matriz devuelta por la función Filtro contiene solo elementos suficientes para contener el número de coincidencias.
El siguiente ejemplo utiliza la función Filtro para devolver una matriz que contiene la condición de búsqueda Mon:
Copie el código de código de la siguiente manera:
DimMyIndex
Atenuar MyArray (3)
Mimatriz(0) = domingo
Mimatriz(1) = lunes
MyArray(2) = martes
MyIndex = Filter(MyArray, Mon) 'MyIndex(0) contiene el lunes.
Debes prestar atención a la posición roja, ¡MyIndex es una matriz! ~
Copie el código de código de la siguiente manera:
Atenuar MyIndex,IndexItem
DimMyArray(2)
Mimatriz(0) = domingo
Mimatriz(1) = lunes
Mimatriz(2) = lunes
MiÍndice = Filtro(MiMatriz,Martes)
Para IndexItem = 0 a UBound(MyIndex)
Respuesta.Escribir MyIndex(lunes)&<br />
Próximo