Este tutorial demostrará cómo usar la función InStrRev VBA para buscar texto desde la derecha …
Función InStrRev
La función VBA InStrRev busca la posición de una subcadena dentro de una cadena. Devuelve la posición contando de izquierda a derecha pero realiza la búsqueda desde el final de la cadena hasta el principio.
VBA InStrRev Buscar subcadena
La función VBA InStrRev se puede utilizar para encontrar la posición de una subcadena dentro de una cadena.
| 12345678 | Sub InStrRevExample_1 ()MsgBox InStrRev ("ABCABC", "C") 'El resultado es: 6MsgBox InStrRev ("ABCABC", "BC") 'El resultado es: 5MsgBox InStrRev ("La La Land", "L") 'El resultado es: 7MsgBox InStrRev ("La La Land", "La") 'El resultado es: 7MsgBox InStrRev ("La La Land", "La") 'El resultado es: 4MsgBox InStrRev ("La La Land", "M") 'El resultado es: 0End Sub |
Posición inicial de VBA InStrRev
La función VBA InStrRev puede iniciar la búsqueda de una subcadena desde una posición asignada contada de izquierda a derecha.
| 12345678 | Sub InStrRevExample_2 ()MsgBox InStrRev ("La La Land", "L") 'El resultado es: 7MsgBox InStrRev ("La La Land", "L", 8) 'El resultado es: 7MsgBox InStrRev ("La La Land", "L", 7) 'El resultado es: 7MsgBox InStrRev ("La La Land", "L", 6) 'El resultado es: 4MsgBox InStrRev ("La La Land", "L", 4) 'El resultado es: 4MsgBox InStrRev ("La La Land", "L", 3) 'El resultado es: 1End Sub |
Programación VBA | ¡Code Generator funciona para usted!
Sensibilidad de mayúsculas y minúsculas de VBA InStrRev
La función VBA InStrRev por defecto distingue entre mayúsculas y minúsculas. Puede cambiar ese comportamiento para que no distinga entre mayúsculas y minúsculas mediante un parámetro opcional. En ese caso, también debe definir la posición de inicio de la búsqueda.
| 123456789 | Sub InStrRevExample_3 ()'InstrRev por defecto distingue entre mayúsculas y minúsculasMsgBox InStrRev ("La La Land", "L") 'El resultado es: 7MsgBox InStrRev ("La La Land", "l") 'El resultado es: 0'InstrRev puede realizar búsquedas que no distinguen entre mayúsculas y minúsculasMsgBox InStrRev ("La La Land", "L", -1, vbTextCompare) 'El resultado es: 7MsgBox InStrRev ("La La Land", "l", -1, vbTextCompare) 'El resultado es: 7End Sub |
VBA InStrRev Último espacio
La función VBA InStrRev puede encontrar la posición del último espacio en una cadena.
| 123456789 | Sub InStrRevExample_4 ()MsgBox InStrRev ("La La Land", "")'El resultado es: 6MsgBox InStrRev ("Leonardo da Vinci", "")El resultado es: 12MsgBox InStrRev ("Que la Fuerza te acompañe", "")Resultado: 22End Sub |
VBA InStrRev Segundo al último espacio
La función VBA InStrRev puede encontrar la posición del penúltimo espacio en una cadena. Podemos usar la función VBA InStrRev para encontrar el último espacio en una cadena y luego podemos usar nuevamente InStrRev con un nuevo punto de partida para encontrar la posición del penúltimo espacio
| 12345678910111213 | Sub InStrRevExample_5 ()Atenuar LastPos como enteroLastPos = InStrRev ("Que la Fuerza te acompañe", "")El resultado de MsgBox LastPos es: 22Atenuar SecondLastPos como enteroSecondLastPos = InStrRev ("Que la Fuerza te acompañe", "", LastPos - 1)El resultado de MsgBox SecondLastPos es: 17'InStrRev inició la búsqueda de espacio justo antes del último espacio'Encontrará el penúltimo espacio porque busca de derecha a izquierdaEnd Sub |
¿Cansado de buscar ejemplos de código VBA? ¡Prueba AutoMacro!
Nombre de archivo de retorno de VBA InStrRev
La función VBA InStrRev se puede utilizar para devolver fácilmente el nombre de archivo de una cadena que contiene la ruta y el nombre de archivo. Usaremos la función InStrRev con las funciones VBA Len y VBA Right.
La función VBA Len devuelve la longitud de una cadena:
| 1 | MsgBox Len ("XBCX") 'El resultado es: 4 |
La función VBA Right devuelve n caracteres desde el final de una cadena:
| 1 | MsgBox Right ("ABCDE", 2) 'El resultado es: DE |
Podemos usar la función InStrRev para encontrar la última aparición de "\" en el nombre de la ruta y usar la función Len para calcular la longitud del nombre del archivo. A continuación, puede extraer el nombre del archivo a la derecha.
| 12345678910111213141516171819202122232425262728 | Sub InStrRevExample_4 ()Dim PathEx como cadenaPathEx = "C: \ MyFiles \ Other \ UsefulFile.pdf"Dim FilenameEx como cadenaFilenameEx = Right (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))El resultado de MsgBox FilenameEx 'es: UsefulFile.pdf'Analicemos este códigoMsgBox Len (PathEx)'Esta es la longitud del nombre de la ruta (31)MsgBox InStrRev (PathEx, "\")'Esta es la posición del último \ en la cadenaMsgBox Len (PathEx) - InStrRev (PathEx, "\")'Esta es la longitud del nombre de archivo (14)'La diferencia entre la longitud completa y la posición del último \ en la cadena'(31-27 = 14)'Ahora sabemos la longitud del nombre del archivo y, por supuesto, está al final'La función correcta es ideal para esta situaciónFilenameEx = Derecha (PathEx, Len (PathEx) - InStrRev (PathEx, "\"))End Sub |
