XProfan

proc setsubstr

    parameters f$,p&,sep$,t$
    declare s$,c&
    c&=0
    s$=""
    casenot mid$(f$,len(f$),1)=sep$ : f$=f$+sep$

    while len(f$)

        c&+

        if (c&=p&)

            s$=s$+t$+sep$

        else

            s$=s$+mid$(f$,1,instr(sep$,f$))

        endif

        f$=del$(f$,1,instr(sep$,f$))

        ifnot len(f$)

            case c&<p& : f$=f$+sep$

        endif

    wend

    return s$

endproc

declare s$
s$:="Hallo Welt"
s$:=trim$(setsubstr(s$,2," ","wält"))
print s$
waitkey

proc SetSubStr

    parameters Neu$, S$, Nr%, Del$
    return ins$(Neu$, del$(S$, Nr%, 1, Del$), Nr%, Del$)

endpr