In VBScript gibt es eine Filterfunktion, mit der ein Array gefiltert und ein Teilmengenarray des ursprünglichen Arrays zurückgegeben werden kann. Syntaxbeschreibung:
Filterfunktion
Gibt ein nullbasiertes Array zurück, das eine Teilmenge eines String-Arrays basierend auf einer angegebenen Filterbedingung enthält.
Filter(InputStrings, Value[, Include[, Compare]])
Parameter
Eingabezeichenfolgen
Erforderlich. Ein eindimensionales Array, in dem nach Zeichenfolgen gesucht werden soll.
Wert
Erforderlich. Die Zeichenfolge, nach der gesucht werden soll.
Enthalten
Optional. Boolescher Wert, der angibt, ob die zurückgegebene Teilzeichenfolge einen Wert enthält. Wenn Include True ist, gibt Filter eine Teilmenge des Arrays zurück, die den Teilstring Value enthält. Wenn Include „False“ ist, gibt Filter eine Teilmenge des Arrays zurück, die den Teilstring-Wert nicht enthält.
Vergleichen
Optional. Numerischer Wert, der den Typ der verwendeten Vergleichszeichenfolge angibt. Siehe Abschnitt „Werteinstellungen“.
aufstellen
Der Compare-Parameter kann die folgenden Werte haben:
Konstante
Wert
beschreiben
vbBinaryCompare
0
Führen Sie einen binären Vergleich durch.
vbTextCompare
1
Führen Sie einen Textvergleich durch.
veranschaulichen
Wenn in InputStrings kein passender Wert gefunden wird, gibt Filter ein leeres Array zurück. Wenn InputStrings Null ist oder kein eindimensionales Array ist, tritt ein Fehler auf.
Das von der Filterfunktion zurückgegebene Array enthält nur genügend Elemente, um die Anzahl der Übereinstimmungen aufzunehmen.
Das folgende Beispiel verwendet die Filterfunktion, um ein Array zurückzugeben, das die Suchbedingung Mon enthält:
Kopieren Sie den Codecode wie folgt:
DimMyIndex
Dimmen Sie MyArray (3)
MyArray(0) = Sonntag
MyArray(1) = Montag
MyArray(2) = Dienstag
MyIndex = Filter(MyArray, Mon) 'MyIndex(0) enthält Montag.
Sie müssen auf die rote Position achten, MyIndex ist ein Array! ~
Kopieren Sie den Codecode wie folgt:
Dimmen Sie MyIndex,IndexItem
DimMyArray(2)
MyArray(0) = Sonntag
MyArray(1) = Montag
MyArray(2) = Montag
MyIndex = Filter(MyArray,Tuesday)
Für IndexItem = 0 To UBound(MyIndex)
Response.Write MyIndex(Monday)&<br />
Nächste