XProfan

CLS
'command
'--------------
'findcharall(characters) >> aray - Number of characters / position the Zeichens in STRING
'findfirstchar(characters) >> position the zeichens in the STRING  --- How INSTR
'findlastchar(characters) >> position the last zeichens in the STRING
'findposchar(characters,z.B the 3.th characters in the STRING)
'countchar(characters) >> number the characters in the STRING
Declare TestString$,_Suchzeichen%[],Such_Zeichen$,z%,zaehler%,last&
TestString$="Im usual Dezimalsystem go The Digits 0 To 9 uses. in the Dualsystem against go numbers only with the Digits the Wertes zero and one displayed."
CLS
' find any characters/Zeichenketten in Teststring
Such_Zeichen$="f"
FindCharAll TestString$,Such_Zeichen$,_Suchzeichen%[]
Print "Befehl: FindCharAll"
Print
Print "gibt any positions the Zeichens / Zeichenkette from TestString$"
Print
Print "Aufruf -- FindCharAll TestString$,Such_Zeichen$,_Suchzeichen%[] (leeres aray)"
Print
Print "TestString :"+TestString$
Print "Suchzeichen is: -"+Such_Zeichen$+"-"
Print
Print
Print "Taste pressing...."
evaluate
Waitinput
CLS
' Zaehle any characters/Zeichenkette from Teststring
zaehler%=CountChar(TestString$,"e")
Print "Befehl: CountChar"
Print
Print "Zählt any sought Zeichens / Zeichenkette from TestString$"
Print
Print "Aufruf -- CountChar TestString$,Such_Zeichen$"
Print
Print "TestString :"+TestString$
Print "Suchzeichen is: "+"-e-"
Print zaehler%+ " time is the -e- in the Teststring include."
Print
Print
Print "Taste pressing...."
Waitinput
CLS
' find position for the latest characters/Zeichenkette in Teststring
zaehler%=FindLastChar(TestString$,"f")
Print "Befehl: FindLastChar"
Print
Print "gibt latest positions the sought Zeichens / Zeichenkette from TestString$"
Print
Print "Aufruf -- FindLastChar TestString$,Such_Zeichen$"
Print
Print "TestString :"+TestString$
Print "Suchzeichen is: "+"-f-"
print "das latest characters/Zeichenkette -f- is on position "+st$(zaehler%)+" in the Testsrting."
Print
Print
Print "Taste pressing...."
Waitinput
CLS
' find 3.tes characters/Zeichenkette in the TestString
zaehler%=FindPosChar(TestString$,3,"m")
Print "Befehl: FindPosChar"
Print
Print "Finde n.th characters/Zeichenkette in the TestString$"
Print
Print "Aufruf -- FindPosChar TestString$,n.tes characters,Such_Zeichen$"
Print
Print "TestString :"+TestString$
Print "N.tes characters is 3"
Print "Suchzeichen is: "+"-m-"
print "das 3.th sought characters/Zeichenkette -m- is on position "+st$(zaehler%)+" in the Testsrting."
Print
Print
Print "Für end Button pressing...."
waitinput
End
'--------------------------------------------------------------------------------------------

Proc CountChar

    Parameters _String$,_Zeichen$
    Declare _pos&,_zaehler&
    _pos&=0
    _zaehler&=0

    Whileloop LEN(_String$)

        _pos&=Instr(_Zeichen$,_String$)

        If _pos&>0

            Inc _zaehler&

        Else

            Break

        EndIf

        _String$=Right$(_String$, Len(_String$)-_pos&)

    EndWhile

    Return _zaehler&

ENDPROC

Proc FindCharAll

    Parameters _String$,_Zeichen$,_Char%[]
    Declare _pos&,_zaehler&,Array_zaehler&
    _pos&=0
    _zaehler&=0
    Array_zaehler&=0

    Whileloop LEN(_String$)

        Inc Array_zaehler&
        _pos&=Instr(_Zeichen$,_String$)

        If _pos&>0

            _zaehler&=_zaehler&+_pos&
            _Char%[Array_zaehler&]=_zaehler&

        Else

            Break

        EndIf

        _String$=Right$(_String$, Len(_String$)-_pos&)

    EndWhile

    Return _Char%[]

ENDPROC

Proc FindLastChar

    Parameters _String$,_Zeichen$
    Declare _Zeichen&[],_pos&,_Char%[],_zaehler&

    Whileloop LEN(_String$)

        _pos&=Instr(_Zeichen$,_String$)

        If _pos&>0

            _zaehler&=_zaehler&+_pos&
            _String$=Right$(_String$, Len(_String$)-_pos&)
            _pos&=0

        Else

            Break

        EndIf

    EndWhile

    Return _zaehler&

ENDPROC

Proc FindPosChar

    Parameters _String$,N_Zeichen&,_Zeichen$
    Declare _pos&,_zaehler&,Array_zaehler&,_Char%[]
    _pos&=0
    _zaehler&=0
    Array_zaehler&=0

    Whileloop LEN(_String$)

        Inc Array_zaehler&
        _pos&=Instr(_Zeichen$,_String$)

        If _pos&>0

            _zaehler&=_zaehler&+_pos&
            _Char%[Array_zaehler&]=_zaehler&

        Else

            Break

        EndIf

        If Array_zaehler&=N_Zeichen&

            Break

        Endif

        _String$=Right$(_String$, Len(_String$)-_pos&)

    EndWhile

    Return _zaehler&

ENDPROC

Proc evaluate

    z%=0

    Whileloop SizeOf(_Suchzeichen%[])-1

        inc z%
        print "Zeichen **"+mid$(TestString$,_Suchzeichen%[&loop],1)+"** Nr.:",z%,"An position: ";_Suchzeichen%[&loop]

    EndWhile

    ArrDel _Suchzeichen%[],0,SizeOf(_Suchzeichen%[])-1'Arraygrösse becomes on 1 staid.

ENDPROC

Cls:font 2
var regstat&=get("regex"):set("regex",1)
var found&=0
var start&=0

Repeat

    found&=instr("([aA][bB][cC])","_abc_Abc_aBc_abC_defg_ABC",start&+1)
    case %matchpos<0:Break
    print %matchpos+start&,$match,%matchlen,"found& = ",found&
    start& = found&

until %matchpos=-1

set("regex",regstat&)'stood of before again settle
print "done."
waitinput
End