XPSE

English

GDL

Hallöle,

after I match$ in nprocs benefit would like,

have I me what integrally simples zusammengeschustert.

is of course nothing berühmtes, but it tuts for me.
Compile Mark Separation

 {$CLQ}
declare h$,d$
cls
h$="menschmeierjuchu dada"
d$=match("erju",h$)
print d$
d$=match("meier",h$)
print d$
d$=match("m",h$)
print d$
d$=match("a",h$)
print d$
d$=match("BB",h$)
print d$+" not vorhanden"

nproc match(string search,string fountain){

    'Suchbegriff becomes only once sought
    declare start&,v&
    v&=0
    start&=1

    whilenot start& > len(fountain)

        if Mid(fountain,start&,len(search))=search

            v&=1
            break

        endif

        start&=start&+1

    wend

    case v&=0:search=""
    return search

}

waitinput

Grüßle
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

09/08/15 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

GDL

goes too for instr(.....)

from the Function Reference:

InStr(sNeedle,sText,lFrom)

Return Value: Long, position of String sNeedle in the string sText with Search ex position lFrom or. 0, if no Vorkommen include is.

important: In current Version is these function defective and therefore Please not To benefit.

substitute:
Compile Mark Separation

'position=instring(variablesuchen,variablequelle)

nproc instring(string search,string fountain){

    'Suchbegriff becomes only once sought
    declare start&,v&
    v&=0
    start&=1

    whilenot start& > len(fountain)

        if Mid(fountain,start&,len(search))=search

            v&=1
            break

        endif

        start&=start&+1

    wend

    case v&=0:start&=0
    return start&

}