Instr                    zurück

InStr

Position = InStr ( String , Substring [ , Start ] )

Der Befehl gibt die Position zurück, auf der das erste Mal ein Zeichen oder eine kurze Zeichenfolge in einer längeren Zeichenfolge ( = String) auftaucht . Wenn der Parameter Start angegegeben wird, dann fängt die Suche erst mit Start an.

Falls das Zeichen nicht gefunden wird, gibt InStr() den Wert Null zurück.

Beispiel mit dem Print befehl :

PRINT Instr("Gambas ist basic", "bas")

=> 4

PRINT Instr("Gambas ist basic", "bas", 5)

=> 11

PRINT Instr("Gambas is basic", "not")

=> 0

Beispiel ohne Printbefehl.

Schauen Sie sich folgendes Miniprogramm an : 2 Textboxen 1 Befehlsfeld

Dazu gehört folgender Code:

PUBLIC SUB Button1_Click()

Textbox1 .text = "Gambas ist basic"

Textbox2.Text = "Die Silbe --bas-- findet sich an Position " & Instr("Gambas ist basic", "bas") & " und an Position " & Instr("Gambas ist basic", "bas", 5)

'PRINT Instr("Gambas is basic", "not")

END

Folgendes Programm ist noch VB Code :

Dieses kleine Programm sucht im Alphabet die Position eines Buchstabens.

Sub Form_Click ()

• Dim Alphabet, LetterNum, Msg, UsrInput ' Variablen deklarieren.

• Alphabet ="AÄBCDEFGHIJKLMNOÖPQRSTUÜVWXYZ"

• Msg = "Bitte einen Buchstaben des Alphabets eingeben."

• UsrInput = UCase(InputBox(Msg)) ' Benutzereingabe.

• If Len(UsrInput) Then

  • LetterNum = Instr(Alphabet, UsrInput)

  • rem Position angeben.

• If LetterNum <> 0 Then

  • Msg = "Ihr Buchstabe ist Nummer " & LetterNum

  • Msg = Msg + " von " + Len(Alphabet) + "."

• Else

  • Msg = "Sie haben keinen Buchstaben des Alphabets eingegeben!"

• End If

• Else

  • Msg = "Sie haben nichts eingegeben."

• End If

• MsgBox Msg ' Meldung anzeigen.

End Sub

Instr

Liefert die Position des ersten Vorkommens einer Zeichenfolge innerhalb einer anderen Zeichenfolge.

Syntax

Syntax 1

• InStr( [Start,] Zeichenfolgenausdruck1, Zeichenfolgenausdruck2)

Syntax 2

• InStr(Start, Zeichenfolgenausdruck1, Zeichenfolgenausdruck2, Zeichenvergleich)

Anmerkungen

Die InStr-Funktion besteht aus folgenden Teilen:

Teil Beschreibung

Start Numerischer Ausdruck, der die Startposition für jeden Suchlauf festlegt; Start ist eine Zahl aus dem Bereich von 1 bis 65.535. Wenn Start ausgelassen wird, beginnt die Suche nach Zeichenfolgenausdruck1 bei der ersten Zeichenposition. Das Argument Start ist nicht optional, wenn das Argument Zeichenvergleich angegeben wird.

Zeichenfolgenausdruck1 Zeichenfolgenausdruck, der durchsucht wird.

Zeichenfolgenausdruck2 Zeichenfolgenausdruck, nach dem gesucht wird.

Zeichenvergleich Legt die Methode für den Zeichenfolgenvergleich fest. Das Argument Zeichenvergleich kann ausgelassen werden; es muß gleich 0 oder 1 sein, oder es kann den Wert der CollatingOrder-Eigenschaft eines Field-Objektes haben.

Wenn Zeichenvergleich gleich 0 ist, wird bei dem Zeichenfolgenvergleich die Groß-/Kleinschreibung beachtet; z.B. stimmt dann ein großgeschriebenes M nicht mit einem kleingeschriebenen M überein.

Wenn Zeichenvergleich gleich 1 ist, wird bei dem Zeichenfolgenvergleich die Groß-/Kleinschreibung nicht beachtet; z.B. stimmt dann ein großgeschriebenes M mit einem kleingeschriebenen M überein.

Wird Zeichenvergleich ausgelassen, verwendet die InStr

-Funktion die vorgegebene Methode für den Zeichenfolgenvergleich. Enthält das Modul keine Anweisung Option CompareText, so ist die Standardmethode Option CompareBinary.

Wenn Sie Werte von Database oder Dynaset sortieren oder vergleichen wollen, müssen Sie die CollatingOrder-Eigenschaft des Field-Objekts setzen.

Wenn Zeichenfolgenausdruck2 innerhalb von Zeichenfolgenausdruck1 gefunden wird, liefert InStr die Position, an der die Übereinstimmung gefunden wurde. Wenn Zeichenfolgenausdruck2 eine leere Zeichenfolge ist, wird der Wert von Start ausgegeben. Wenn Start größer als Zeichenfolgenausdruck2 ist, Zeichenfolgenausdruck1 eine leere Zeichenfolge ist oder Zeichenfolgenausdruck2 nicht gefunden werden kann, liefert InStr den Wert 0.

Weist eine der beiden Zeichenfolgenausdrücke den Wert Null auf, liefert die InStr-Funktion auch den Wert Null. Besitzen Start oder Zeichenvergleich den Wert Null, tritt ein Fehler auf.