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