FILTER |
Filtre |
|---|---|
| Visual Basic | |
Syntaxe
| Function Filter(inputstrings,value[,include[,compare]]) |
Paramètres
| Nom | Description | ||
|---|---|---|---|
| inputstrings | Ce paramètre permet d'indiquer le tableau à parcourir | ||
| value | Ce paramètre permet d'indiquer la valeur à rechercher | ||
| include | Ce paramètre permet d'indiquer le mode d'inclusion : | ||
| Valeur | Description | ||
| False | Cette valeur permet d'indiquer qu'il faut indiquer si la sous-chaîne de caractères doit inclure ou exclure les valeurs. | ||
| True | Cette valeur permet d'indiquer que la sous-chaîne de caractères doit contenir la valeur de la sous-chaîne de caractères. | ||
| compare | Ce paramètre permet d'indiquer le mode comparaison : | ||
| Valeur | Constante | Description | |
| 0 | vbBinaryCompare | Cette valeur permet d'indiquer qu'il faut effectuer une comparaison binaire. | |
| 1 | vbTextCompare | Cette valeur permet d'indiquer qu'il faut effectuer une comparaison texte. | |
Description
Cette fonction retourne un tableau à partir d'une chaîne de caractères de tableau et d'un critère de filtre.
Remarques
- Si aucune correspondance de value n'est trouvée dans inputstrings, la fonction Filter renvoie un tableau vide. Une erreur se produit si inputstrings est Null ou n'est pas un tableau unidimensionnel.
- Le tableau renvoyé par la fonction Filter contient uniquement suffisamment d'éléments pour contenir le nombre d'éléments correspondants.
- L'exemple suivant utilise la fonction Filter pour renvoyer le tableau contenant le critère de recherche "Lun" :
Dim MyIndex
Dim MyArray(3)
MyArray(0) = "Dimanche"
MyArray(1) = "Lundi"
MyArray(2) = "Mardi"
MyIndex = Filter(MyArray, "Lun") 'MyIndex(0) contient "Lundi"
Exemple
Voici un exemple d'une utilisation typique de cette fonction :
- Sub Main()
- Dim S As String
- tableau = Array("Janvier","Fevrier","Mars","Avril","Mai","Juin","Juillet","Aout","Septembre","Octobre","Novembre","Decembre")
- S = S & "Mars = "
- Result = Filter(tableau,"Mars")
- FOR EACH Item in Result
- S = S & Item & ","
- NEXT
- S = S & vbCrLf
- S = S & "ui = "
- Result = Filter(tableau,"ui")
- FOR EACH Item in Result
- S = S & Item & ","
- NEXT
- S = S & vbCrLf
- MsgBox S
- End Sub
on obtiendra le résultat suivant :
Mars = Mars, ui = Juin,Juillet,
Dernière mise à jour : Lundi, le 19 novembre 2012