Función InStrRev [VBA]

Devuelve la posición de una cadena dentro de otra cadena, comenzando por el extremo derecho de la cadena.

Esta constante, función u objeto se activa mediante la instrucción Option VBASupport 1, colocada antes del código ejecutable del programa en un módulo.

La función InStrRev devuelve la posición en la que se encontró la coincidencia, a partir de la derecha. Si no se encuentra la cadena, la función devuelve 0.

Sintaxis:


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: expresión numérica opcional que indica la posición a partir de la izquierda en una cadena en la que da comienzo la búsqueda de la subcadena especificada. Si este parámetro se omite, la búsqueda comienza desde el primer carácter de la cadena. El valor máximo es 65535.

Compare: expresión numérica opcional que define el tipo de comparación. El valor de este parámetro puede ser

1: el valor predeterminado 1 establece que la comparación no distingue entre minúsculas y mayúsculas.

0: el valor 0 especifica una comparación binaria que distingue entre minúsculas y mayúsculas.

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

Códigos de error:

5 Llamada a procedimiento no válida

Ejemplo:


Sub ExamplePosition
Dim sInput As String
Dim iPos As Integer
 sInput = "The book is on the table"
 iPos = InStrRev(sInput,"the",10,1) ' Returns 1, search is case-insensitive
 Print iPos 
 iPos = InStrRev(sInput,"the",10,0) ' Returns 0, search is case-sensitive
 Print iPos
End Sub

InStr