VBA -InString inverso

La función InStrRev devuelve la primera aparición de una cadena dentro de otra cadena. La búsqueda ocurre de derecha a izquierda.

Sintaxis

InStrRev(string1,string2[,start,[compare]])

Descripción de parámetros

  • String1- Un parámetro requerido. Cadena a buscar.

  • String2- Un parámetro requerido. Cadena con la que se busca String1.

  • Start- Un parámetro opcional. Especifica la posición de inicio de la búsqueda. La búsqueda comienza en la primera posición de derecha a izquierda.

  • Compare- Un parámetro opcional. Especifica la comparación de cadenas que se utilizará. Puede tomar los siguientes valores mencionados.

    • 0 = vbBinaryCompare: realiza una comparación binaria (predeterminado)

    • 1 = vbTextCompare - Realiza una comparación de texto

Ejemplo

Agrega un botón y coloca la siguiente función.

Private Sub Constant_demo_Click()
   var = "Microsoft VBScript"
   msgbox("Line 1 : " & InStrRev(var,"s",10))
   msgbox("Line 2 : " & InStrRev(var,"s",7))
   msgbox("Line 3 : " & InStrRev(var,"f",-1,1))
   msgbox("Line 4 : " & InStrRev(var,"t",5))
   msgbox("Line 5 : " & InStrRev(var,"i",7))
   msgbox("Line 6 : " & InStrRev(var,"i",7))
   msgbox("Line 7 : " & InStrRev(var,"VB",1))
End Sub

Al ejecutar el script anterior, produce el siguiente resultado.

Line 1 : 6
Line 2 : 6
Line 3 : 8
Line 4 : 0
Line 5 : 2
Line 6 : 2
Line 7 : 0