Befehlsreferenz - Zeichenketten: InStr-Funktion
VB-Versionen: VB4 | VB5 | VB6
Beschreibung:
Die InStr-Funktion gibt die Position des ersten Zeichens einer Zeichenfolge innerhalb einer anderen Zeichenfolge zurück.
Syntax:
InStr ([Start,] Zeichenfolge 1, Zeichenfolge 2, [Vergleich])
Parameter:
Start | Optional. (Integer) Numerischer Ausdruck, der festlegt, ab welcher Position gesucht werden soll. Wird hier nichts angegeben, beginnt die Suche mit dem ersten Zeichen. Wird das optionale Argument Vergleich angegeben, dann muss auch Start angegeben werden. |
Zeichenfolge 1 | (String) Zeichenfolge, die durchsucht werden soll. |
Zeichenfolge 2 | (String) Zeichenfolge, nach der gesucht werden soll. |
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 | 0 | 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. |
Rückgabewerte von InStr
Fall | Rückgabewert |
Zeichenfolge1 hat die Länge Null | 0 |
Zeichenfolge1 ist Null | Null |
Zeichenfolge2 hat die Länge Null | start |
Zeichenfolge2 ist Null | Null |
Zeichenfolge2 ist nicht vorhanden | 0 |
Zeichenfolge2 ist in Zeichenfolge1 enthalten | Position, an der Übereinstimmung beginnt |
Start > Zeichenfolge2 | 0 |
Beispiel:
Private Sub Command1_Click() Dim SuchText, SuchZeichen, Pos1 ' Zeichenfolge die durchsucht werden soll. SuchText = "Im vb@rchiv gibt es jede Menge Tipps und jede Menge Infos." ' Zeichenfolge, die gesucht werden soll. SuchZeichen = "Menge" ' Textvergleich ab Position 30 Pos1 = InStr(30, SuchText, SuchZeichen, 1) ' liefert 47 MsgBox Pos1 ' Binärer Vergleich ab Position 1 Pos1 = InStr(1, SuchText, SuchZeichen, 0) ' liefert 26 MsgBox Pos1 ' Wird das letzte Argument nicht angegeben, ' wird der Vergleich binär durchgeführt Pos1 = InStr(SuchText, SuchZeichen) ' Liefert 26. MsgBox Pos1 Pos1 = InStr(1, SuchText, "k") ' Liefert 0, da nicht vorhanden. MsgBox Pos1 End Sub
Siehe auch: | InStrRev-Funktion StrComp-Funktion |