Función InStrRev [VBA]

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

warning

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


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

Valor de retorno:

Long

Parámetros:

Text1: la expresión de cadena que se desee buscar.

Text2: la expresión de cadena que se desee buscar.

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.

Para evitar un error en tiempo de ejecución, no defina el parámetro Comparación si se omite el primer parámetro de retorno.

Códigos de error:

5 Llamada a procedimiento no válida

Ejemplo:


Sub ExamplePosition
Dim sInput As String
Dim iPos As Integer
 sInput = "El libro está sobre la mesa"
 iPos = InStrRev(sInput,"el",10,1) ' Devuelve 1; la búsqueda no distingue mayúsculas y minúsculas
 Print iPos 
 iPos = InStrRev(sInput,"el",10,0) ' Devuelve 0; la búsqueda distingue mayúsculas y minúsculas
 Print iPos
End Sub

¡Necesitamos su ayuda!