XPSE

Français

GDL

Hallöle,

après que je match$ dans nprocs nutzen voudrais,

habe je mir quoi entier simples zusammengeschustert.

Ist zwar rien berühmtes, mais es TUTS pour mich.
Kompilieren Marque Séparation

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

nproc match(string chercher,string source){

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

    whilenot start& > len(source)

        si Milieu(source,start&,len(chercher))=chercher

            v&=1
            pause

        endif

        start&=start&+1

    Wend

    cas v&=0:chercher=»
    return chercher

}

waitinput

Grüßle
Georg

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

[...]

08.09.2015 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

GDL

allez aussi pour instr(.....)

Aus qui Funktionsreferenz:

InStr(sNeedle,sText,lFrom)

Rückgabewert: Long, Position vom String sNeedle im String sText chez cherche ab Position lFrom bzw. 0, si ne...aucune Vorkommen enthalten ist.

important: dans aktueller Version ist cet Funktion incorrect et daher s'il te plaît pas trop nutzen.

Ersatz:
Kompilieren Marque Séparation

'position=instring(variablesuchen,variablequelle)

nproc instring(string chercher,string source){

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

    whilenot start& > len(source)

        si Milieu(source,start&,len(chercher))=chercher

            v&=1
            pause

        endif

        start&=start&+1

    Wend

    cas v&=0:start&=0
    return start&

}