Conteúdo

# Função InStrRev [VBA]

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

Esta constante, função ou objeto é ativado através da instrução Option VBASupport 1, colocada antes do código executável do programa num 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 (StringCheck As String, StringMatch As String [,Start As Long] [, Compare As Integer])

### Tipo de retorno:

Long

### Parâmetros:

StringCheck: A expressão de cadeia de caracteres que pretende pesquisar.

StringMatch: A expressão de cadeia de caracteres que pretende procurar.

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.

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

### 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 distingue maiúsculas de minúsculas
     Print iPos
     iPos = InStrRev(sInput, "the", 10, 0) ' Devolve 0; a pesquisa distingue maiúsculas de minúsculas
     Print iPos
    End Sub

Tópicos relacionados

InStr

Necessitamos da sua ajuda!