Ú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...

  • Mismo BASIC pero diferentes objetos

    MS Office (MSO) y OpenOffice.org (OOo) no pueden ejecutar el mismo código macro. MSO utiliza el código VBA (Visual Basic for Applications) mientras que O

  • 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

  • Seleccionar un rango de celdas e imprimirlas no es sencillo con Calc; necesitamos definir previamente un rango de impresión.

    Esta sencilla macro que describimos en este post realizará todo ese t

Patrocinado por SBS  Contacto • ©2019 by SalvaDCH