vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#

https://www.vbarchiv.net

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:
StartOptional. (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.
VergleichOptional. (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

 
 
Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.


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.