XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - letzte Position eines bestimmten Zeichens im String zurückgeben
gibt die letzte Position des Zeichen im String zurück
Autor Dieter Zornow
free
Def StrRStrI(3) ! shlwapi,StrRStrIA

Proc GetlastPlace

    parameters beSearch$,range&,searchfor$
    Declare place&,temp$
    place& = StrRStrI(addr(besearch$),range&,addr(searchfor$)) not 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,i)
waitinput