Il existe une fonction Filter dans VBScript qui peut être utilisée pour filtrer un tableau et renvoyer un sous-ensemble du tableau d'origine. Description de la syntaxe :
Fonction de filtre
Renvoie un tableau de base zéro contenant un sous-ensemble d'un tableau de chaînes basé sur une condition de filtre spécifiée.
Filtre (InputStrings, Value [, Include [, Compare]])
paramètre
Chaînes d'entrée
Requis. Un tableau unidimensionnel dans lequel rechercher des chaînes.
Valeur
Requis. La chaîne à rechercher.
Inclure
Facultatif. Valeur booléenne qui spécifie si la sous-chaîne renvoyée contient Value. Si Include est True, Filter renvoie un sous-ensemble du tableau contenant la sous-chaîne Value. Si Include est False, Filter renvoie un sous-ensemble du tableau qui ne contient pas la sous-chaîne Value.
Comparer
Facultatif. Valeur numérique indiquant le type de chaîne de comparaison utilisé. Voir la section Paramètres de valeur.
installation
Le paramètre Compare peut avoir les valeurs suivantes :
constante
valeur
décrire
vbBinaryCompare
0
Effectuez une comparaison binaire.
vbTextCompare
1
Effectuez une comparaison de texte.
illustrer
Si aucune valeur correspondante n'est trouvée dans InputStrings, Filter renvoie un tableau vide. Si InputStrings est Null ou n’est pas un tableau unidimensionnel, une erreur se produit.
Le tableau renvoyé par la fonction Filter contient uniquement suffisamment d'éléments pour contenir le nombre de correspondances.
L'exemple suivant utilise la fonction Filter pour renvoyer un tableau contenant la condition de recherche Mon :
Copiez le code comme suit :
DimMonIndex
Dim MonArray (3)
MonTableau(0) = Dimanche
MonTableau(1) = Lundi
MonTableau(2) = mardi
MyIndex = Filter(MyArray, Mon) 'MyIndex(0) contient lundi.
Vous devez faire attention à la position rouge, MyIndex est un tableau ! ~
Copiez le code comme suit :
Dim MonIndex,IndexItem
DimMonTableau(2)
MonTableau(0) = Dimanche
MonTableau(1) = Lundi
MonTableau(2) = Lundi
MonIndex = Filtre (MonArray, mardi)
Pour IndexItem = 0 Vers UBound (MonIndex)
Réponse.Écrire MonIndex(Lundi)&<br />
Suivant