XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
API: SHLWAPI.DLL - letzten Platz uno cierto Zeichens en el String zurückgeben
Gibt el letzten Platz uno Zeichens en el String zurück
Autor Dieter Zornow
DEF StrRChr(3) ! shlwapi,StrRChrA caso
DEF StrRChrI(3) ! shlwapi,StrRChrIA not caso

Proc GetlastPlace

    parámetros beSearch$,range&,searchfor$,sens%
    Declarar place&,temp$
    caso sens% = 0:place& = StrRChrI(addr(besearch$),range&,Ord(left$(searchfor$,1))) not caso-sensitive
    caso sens% = 1:place& = StrRChr(addr(besearch$),range&,Ord(left$(searchfor$,1))) caso-sensitive

    if place& <> 0

        temp$ = cadena$(place&,0)
        place&= len(beSearch$) - len(temp$)+1

    endif

    volver place&

ENDPROC

cls
Imprimir GetlastPlace(C:WindowsWin.ini,0,w,1)
waitinput