Funzione InstrRev

Restituisce la posizione della prima occorrenza di una stringa all'interno di un'altra stringa a partire dalla fine di quest'ultima.

Sintassi

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

Argomenti:

  • string1: obbligatorio. Espressione stringa in cui eseguire la ricerca.
  • string2: obbligatorio. Espressione stringa da cercare.
  • Start: facoltativo. Espressione numerica che imposta la posizione iniziale per ogni ricerca. Se l'argomento viene omesso, viene utilizzato -1, ovvero la ricerca inizia in corrispondenza della posizione dell'ultimo carattere. Se l'argomento start contiene un valore Null, si verifica un errore.
  • Compare: facoltativo. Valore numerico che indica il tipo di confronto da utilizzare per la valutazione delle sottostringhe. Se l'argomento viene omesso, viene eseguito un confronto binario. Per i valori, vedere la sezione Impostazioni.
  • Impostazioni: l'argomento compare può avere i seguenti valori.

    Tabella 11-17 Costanti di confronto e descrizioni

    Costante Valore Descrizione
    vbBinaryCompare 0 Esegue un confronto binario
    vbTextCompare 1 Esegue un confronto testuale

Valore restituito

La funzione InStrRev restituisce i valori seguenti:

Tabella 11-18 Valori restituiti dalla funzione InstrRev

Se La funzione InStr restituisce
string1 è di lunghezza zero 0
string2 è di lunghezza zero Inizio
string2 non trovato 0
string2 viene trovato all'interno di string1 Posizione in cui viene trovata la corrispondenza.
start > Len(string2) 0

Note

Negli esempi seguenti viene utilizzata la funzione InStrRev per eseguire una ricerca in una stringa.

Esempio 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

Esempio 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

Esempio 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

Esempio 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

Nota:

La sintassi della funzione InStrRev non è uguale alla sintassi della funzione InStr.