Função InStrRev [VBA]

Devolve a posição de uma cadeia dentro de outra cadeia, com início no lado direito da mesma.

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.

A função InstrRev devolve a posição na qual foi encontrada a correspondência, a iniciar na direita. Se a cadeia não for encontrada, a função devolve 0.

Sintaxe:


InStrRev (StringCheck As String, StringMatch As String [,Start As Long] [, Compare As Integer])

Valor de retorno:

Long

Parâmetros:

StringCheck: The string expression that you want to search.

StringMatch: The string expression that you want to search for.

Start: expressão numérica opcional que assinala a posição à esquerda na cadeia onde se começará a procurar a sub-cadeia especificada. Se este parâmetro for omitido, a procura é iniciada no primeiro carácter da cadeia. O valor máximo permitido é 65 535.

Compare: expressão numérica opcional que define o tipo de comparação. O valor deste parâmetro pode ser

1: este valor especifica que uma comparação de texto que não diferencia maiúsculas de minúsculas.

0: este valor especifica uma comparação binária que diferencia maiúsculas de minúsculas.

To avoid a run-time error, do not set the Compare parameter if the first return parameter is omitted.

Códigos de erro

5 Chamada de procedimento inválido

Exemplo:


Sub ExamplePosition
Dim sInput As String
Dim iPos As Integer
 sInput = "The book is on the table"
 iPos = InStrRev(sInput,"the",10,1) ' devolve 1, a pesquisa não diferencia maiúsculas de minúsculas.
 Print iPos 
 iPos = InStrRev(sInput,"the",10,0) ' devolve 0, a pesquisa diferencia maiúsculas de minúsculas.
 Print iPos
End Sub

InStr