Befehlsreferenz - Zeichenketten: Filter-Funktion VB-Versionen: VB4 | VB5 | VB6 Beschreibung: Syntax: Filter (Eingabezeichenfolge, Wert, [aufnehmen, [Vergleich]] ) Parameter:
Einstellungen für Vergleich
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
Diese Seite wurde bereits 28.644 mal aufgerufen. |
Neu! sevDTA 3.0 Pro SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Buchempfehlung Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |