XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - erste Position eines bestimmten Zeichens im String
gibt die erste Position des Zeichen im String zurück, wahlweise case-sensitive
Autor Dieter Zornow
free
DEF StrCSpnI(2) ! shlwapi.dll,StrCSpnIA
DEF StrCSpn(2) ! shlwapi.dll,StrCSpnA

Proc GetFirstPlace

    parameters besearch$,search$,sen%
    Declare index&
    case sen% = 0:index& = StrCSpnI(addr(besearch$),addr(search$)) not case-sensitive
    case sen% = 1:index& = StrCSpn(addr(besearch$),addr(search$)) case-sensitive

    if index& >= len(besearch$)

        index& = 0

    else

        index& = index&+1

    endif

    return index&

endproc

cls
Print GetFirstPlace(allemeineEntchen123,E,1)
waitinput