Última posición de una letra o texto en una cadena

Podemos utilizar la función InStr para encontrar la última posición que ocupa una letra o texto en una cadena.

El código se muestra a continuación:

function BuscarUltimo( cTexto as string, cBuscar as string) as long
    Dim n as long, m as long
    Do while true
        n = InStr( m+1, cTexto, cBuscar)
        if n=0 then exit do
        m=n
    Loop   
    BuscarUltimo = m
end function

Por ejemplo, BuscarUltimo("Hola, ¿que tal?", "a") devuelve 13.

Si deseas distinguir mayúsculas/minúsculas, agrega un 1 como cuarto parámetro a la función Instr

    n = InStr( m+1, cTexto, cBuscar, 1)

NOTA: Si el primer parámetro en la función InStr es cero, o menor que cero, se produce un error. Que no te vuelva loco :)

No hay reacciones, todavía


Form is loading...

Otros usuarios vieron...

  • macros para comentarios en openoffice libreoffice calc

    Recientemente nos hemos encontrado con varias preguntas realizadas en el foro sobre cómo gestionar los comentarios en Calc mediante macros, y después de hacer un arduo trabajo de investigación, pr…

  • Macro para crear atajos de teclado asignados a nuestras macros

     

    ¿Podemos asignar una macro a un atajo de teclado desde otra macro? La respuesta es sí.

    Así que ahora podemos hacer que una macro cree atajos de teclado a n…

  • Esta macro te permitirá calcular combinaciones de números para la lotería primitiva.

    Por supuesto que no se garantiza ninguna combinación ganadora, jajajaja. De hecho, si ganas la primitiva con est…

Patrocinado por SBS  Contacto • ©2020 by SalvaDCH