XPSE

Italia

GDL

Hallöle,

nachdem ich match$ in nprocs nutzen möchte,

habe ich mir was ganz simples zusammengeschustert.

Ist zwar nichts berühmtes, aber es tuts per mich.
Kompilieren Markieren Separieren

 {$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$+" Nicht vorhanden"

nproc match(string suchen,string quelle){

    'Suchbegriff wird nur einmal gesucht
    declare start&,v&
    v&=0
    start&=1

    whilenot start& > len(quelle)

        if Mid(quelle,start&,len(suchen))=suchen

            v&=1
            break

        endif

        start&=start&+1

    wend

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

}

waitinput

Grüßle
Georg

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

[...]

08.09.2015 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

GDL

Geht auch per instr(.....)

Aus der Funktionsreferenz:

InStr(sNeedle,sText,lFrom)

Rückgabewert: Long, Position vom String sNeedle im String sText bei Cerca ab Position lFrom bzw. 0, wenn kein Vorkommen enthalten ist.

Wichtig: In aktueller Version ist diese Funktion fehlerhaft und daher bitte nicht zu nutzen.

Ersatz:
Kompilieren Markieren Separieren

'position=instring(variablesuchen,variablequelle)

nproc instring(string suchen,string quelle){

    'Suchbegriff wird nur einmal gesucht
    declare start&,v&
    v&=0
    start&=1

    whilenot start& > len(quelle)

        if Mid(quelle,start&,len(suchen))=suchen

            v&=1
            break

        endif

        start&=start&+1

    wend

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

}