InStrRev Function [VBA]

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

Esta função ou constante é ativada com a instrução Option VBASupport 1 imediatamente antes do código executável existente no módulo.

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 (Text1 As String, Text2 As String [,Start As Long] [, Compare As Integer])

Valor de retorno:

Longo

Parâmetros:

Texto1: expressão da cadeia de caracteres que pretende procurar.

Texto2: expressão da cadeia de caracteres que pretende procurar.

Start: Optional numeric expression that marks the position from the left in a string where the search for the specified substring starts. If you omit this parameter, the search starts at the last character of the string. The maximum allowed value is 65535.

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.

Para evitar um erro de execução, não defina o parâmetro Compare se o primeiro parâmetro de retorno for omisso.

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