XPSE

Español

GDL

Hallöle,

después de que match$ en nprocs nutzen möchte,

Yo me algo muy simples zusammengeschustert.

Ist zwar nichts berühmtes, pero tuts para mich.
Kompilieren Marca Separación

 {$CLQ}
declarar h$,d$
cls
h$="menschmeierjuchu dada"
d$=match("erju",h$)
imprimir d$
d$=match("meier",h$)
imprimir d$
d$=match("m",h$)
imprimir d$
d$=match("a",h$)
imprimir d$
d$=match("BB",h$)
imprimir d$+" No vorhanden"

nproc match(cadena suchen,cadena quelle){

    'Suchbegriff se sólo una vez gesucht
    declarar start&,v&
    v&=0
    start&=1

    whilenot start& > len(quelle)

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

            v&=1
            romper

        endif

        start&=start&+1

    wend

    caso v&=0:suchen=""
    volver suchen

}

waitinput

Grüßle
Georg

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

[...]

08.09.2015 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

GDL

Geht auch para instr(.....)

Aus el Funktionsreferenz:

InStr(sNeedle,sText,lFrom)

Rückgabewert: Largo, Position vom String sNeedle en el String sText en Búsqueda de Position lFrom o. 0, si kein Vorkommen enthalten es.

Wichtig: In aktueller Versión es esta Función fehlerhaft y por lo tanto Por favor, no a nutzen.

Ersatz:
Kompilieren Marca Separación

'position=instring(variablesuchen,variablequelle)

nproc instring(cadena suchen,cadena quelle){

    'Suchbegriff se sólo una vez gesucht
    declarar start&,v&
    v&=0
    start&=1

    whilenot start& > len(quelle)

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

            v&=1
            romper

        endif

        start&=start&+1

    wend

    caso v&=0:start&=0
    volver start&

}