InstrRev-Funktion

Gibt die Position eines Vorkommens einer Zeichenfolge innerhalb einer anderen Zeichenfolge ab dem Ende der Zeichenfolge zurück.

Syntax

InStrRev(string1, string2[, start[, compare]])

Argumente:

  • string1: Erforderlich. Zu durchsuchender Zeichenfolgenausdruck.
  • string2: Erforderlich. Zu suchender Zeichenfolgenausdruck.
  • Start: Optional. Numerischer Ausdruck, der die Startposition für jede Suche festlegt. Wird diese Option ausgelassen, wird -1 verwendet. Das bedeutet, dass die Suche an der Position des letzten Zeichens beginnt. Wenn "start" Null enthält, tritt ein Fehler auf.
  • Compare: Optional. Numerischer Wert, der die Art des Vergleichs angibt, der bei der Auswertung von Teilzeichenfolgen verwendet werden soll. Wird diese Option ausgelassen, wird ein binärer Vergleich durchgeführt. Informationen zu Werten finden Sie im Abschnitt "Einstellungen".
  • Einstellungen: Das Argument "compare" kann die folgenden Werte aufweisen:

    Tabelle 11-17 Vergleichskonstanten und Beschreibungen

    Konstante Wert Beschreibung
    vbBinaryCompare 0 Binären Vergleich durchführen
    vbTextCompare 1 Textvergleich durchführen

Rückgabewert

Die InStrRev-Funktion gibt die folgenden Werte zurück:

Tabelle 11-18 Rückgabewerte der InstrRev-Funktion

Ausgangssituation Rückgabe
string1 hat Nulllänge 0
string2 hat Nulllänge Start
string2 nicht gefunden 0
string2 innerhalb von string1 gefunden Position, an der eine Übereinstimmung gefunden wird
start > Len(string2) 0

Anmerkungen

In den folgenden Beispielen wird die InStrRev-Funktion verwendet, um eine Zeichenfolge zu suchen:

Beispiel 1:

Dim SearchString, SearchChar, MyPos
SearchString ="abcdABCD"   ' String to search in.
SearchChar = "a"   ' Search for "a"
MyPos = InstrRev(SearchString, SearchChar)  ' Default Comparison is binary and starting at the last position (Third and Fourth argument is omitted)
'Output: 1

Beispiel 2:

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   ' String to search in.
SearchChar = "P"   ' Search for "P".
MyPos = InstrRev(SearchString, SearchChar, 8)   ' Comparison is binary by default (last argument is omitted). 
'Output: 0

Beispiel 3:

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   ' String to search in.
SearchChar = "P"   ' Search for "P".
MyPos = InstrRev(SearchString, SearchChar, 10, 0)   ' A binary comparison starting at position 10. 
'Output: 9
MyPos = InstrRev(SearchString, SearchChar, -1, 1)   ' A textual comparison starting at the last position.
'Output: 12

Beispiel 4:

Dim SearchString, SearchChar, MyPos
SearchString ="abcdABCD"   ' String to search in.
SearchChar = "a"   ' Search for "a"
MyPos = InstrRev(SearchString, SearchChar, -1, 0)   ' A binary comparison starting at the last position.
'Output: 1
MyPos = InstrRev(SearchString, SearchChar, -1, 1)   ' A textual comparison starting at the last position.
'Output: 5

Hinweis:

Die Syntax für die InStrRev-Funktion ist nicht mit der Syntax für die InStr-Funktion identisch.