Befehlsreferenz - Zeichenketten: Filter-Funktion
VB-Versionen: VB4 | VB5 | VB6
Beschreibung:
Mit der Filter-Funktion wird ein nullbasierendes Datenfeld zurückgegeben, das auf Grund festgelegter Filterkriterien die entsprechenden Teile eines Zeichenfolge-Arrays beinhaltet.
Syntax:
Filter (Eingabezeichenfolge, Wert, [aufnehmen, [Vergleich]] )
Parameter:
Eingabezeichenfolge | (String) Eindimensionales Array, das durchsucht werden soll. |
Wert | (String) Zeichenfolge, nach der gesucht werden soll. |
aufnehmen | Optional. (Boolean) Ist Wert True werden Daten zurückgegeben, die in Wert enthalten sind, bei False werden Daten zurückgegeben, die nicht in Wert enthalten sind. |
Vergleich | Optional. (Integer) Legt fest, wie verglichen werden soll. |
Einstellungen für Vergleich
Konstante | Wert | Beschreibung |
vbUseCompareOption | -1 | Führt einen Vergleich mit Hilfe der Option Compare-Anweisung durch. |
vbBinaryCompare | 2 | Führt einen binären Vergleich durch. |
vbTextCompare | 1 | Führt einen reinen Textvergleich durch. |
vbDatabaseCompare | 2 | Nur Microsoft Access. Führt einen Vergleich durch, der auf Informationen in einer Datenbank basiert. |
Beispiel:
Private Sub Command1_Click() Dim Feld1, Feld2 Feld1 = Array("Blumenstrauß", "Rosenstrauß", "Blumenvase", "Blumengruß", "Herbststrauß") Feld2 = Filter(Feld1, "Blumen") ' Parameter aufnehmen = True (Voreinstellung) Dim i As Long Dim Ergebnis As String For i = LBound(Feld2) To UBound(Feld2) Ergebnis = Ergebnis & Feld2(i) & " " Next i MsgBox Ergebnis ' liefert Blumenstrauß, Blumenwase, Blumengruß End Sub Private Sub Command1_Click() Dim Feld1, Feld2 Feld1 = Array("Blumenstrauß", "Rosenstrauß", "Blumenvase", "Blumengruß", "Herbststrauß") Feld2 = Filter(Feld1, "Blumen", False) ' Parameter aufnehmen = True (Voreinstellung) Dim i As Long Dim Ergebnis As String For i = LBound(Feld2) To UBound(Feld2) Ergebnis = Ergebnis & Feld2(i) & " " Next i MsgBox Ergebnis ' liefert Rosenstrauß, Herbststrauß End Sub
Siehe auch: | Replace-Funktion |