XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
API: SHLWAPI.DLL - last Space one designed Zeichens in the String give back
gives whom last Space one Zeichens in the String back
Author Dieter Zornow
DEF StrRChr(3) ! shlwapi,StrRChrA case
DEF StrRChrI(3) ! shlwapi,StrRChrIA hardship case

Proc GetlastPlace

    parameters beSearch$,range&,searchfor$,sens%
    Declare place&,temp$
    case sens% = 0:place& = StrRChrI(addr(besearch$),range&,Ord(left$(searchfor$,1))) hardship 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