XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
API: SHLWAPI.DLL - letzten place eines certain Zeichens im String zurückgeben
Gibt den letzten place eines Zeichens im String zurück
Autor Dieter Zornow
DEF StrRChr(3) ! shlwapi,StrRChrA cas
DEF StrRChrI(3) ! shlwapi,StrRChrIA not cas

Proc GetlastPlace

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

    si place& <> 0

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

    endif

    return place&

endproc

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