XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - letzten Platz eines bestimmten Zeichens im String zurückgeben
Gibt den letzten Platz eines Zeichens im String zurück
Autor Dieter Zornow
DEF StrRChr(3) ! shlwapi,StrRChrA case
DEF StrRChrI(3) ! shlwapi,StrRChrIA not case

Proc GetlastPlace

    parameters beSearch$,range&,searchfor$,sens%
    Declare place&,temp$
    case sens% = 0:place& = StrRChrI(addr(besearch$),range&,Ord(left$(searchfor$,1))) not case-sensitive
    case sens% = 1:place& = StrRChr(addr(besearch$),range&,Ord(left$(searchfor$,1))) case-sensitive

    if place& <> 0

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

    endif

    return place&

endproc

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