Funci贸n InStrRev [VBA]

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

warning

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

隆Necesitamos su ayuda!