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