XProfan

Declare inhalt%[15],inhalt$
var found$="11"'testen mit [11-12] oder [11|12]
@Set("RegEx", 1)
cls
inhalt%[1]=1
inhalt%[4]=1
inhalt%[7]=11
inhalt%[10]=12
inhalt%[13]=1

Proc Check

    WhileLoop 1,12,1

        Print @Translate$(inhalt$,found$,@Str$(&Loop))
        Sleep 100
        'Reihe A

        If @Str$(&Loop)+","+@Str$(&Loop)= @Translate$(inhalt$,found$,@Str$(&Loop))

            Print "treffer"

        EndIf

        If @Str$(&Loop)+","+@Str$(&Loop)+","+@Str$(&Loop)= @Translate$(inhalt$,found$,@Str$(&Loop))

            Print "treffer"

        EndIf

        If @Str$(&Loop)+","+@Str$(&Loop)+","+@Str$(&Loop)+","+@Str$(&Loop)= @Translate$(inhalt$,found$,@Str$(&Loop))

            Print "treffer"

        EndIf

        If @Str$(&Loop)+","+@Str$(&Loop)+","+@Str$(&Loop)+","+@Str$(&Loop)+","+@Str$(&Loop)= @Translate$(inhalt$,found$,@Str$(&Loop))

            Print "treffer"

        EndIf

    EndWhile

EndProc

inhalt$ = @Str$(inhalt%[1])+","+@Str$(inhalt%[4])
Check()
inhalt$ = @Str$(inhalt%[1])+","+@Str$(inhalt%[4])+","+@Str$(inhalt%[7])
Check()
inhalt$ = @Str$(inhalt%[1])+","+@Str$(inhalt%[4])+","+@Str$(inhalt%[7])+","+@Str$(inhalt%[10])
Check()
inhalt$ = @Str$(inhalt%[1])+","+@Str$(inhalt%[4])+","+@Str$(inhalt%[7])+","+@Str$(inhalt%[10])+","+@Str$(inhalt%[13])
Check()
WaitInput

Var Text$ = "7,11,9,12,15"
Var Resultat$ = Translate$(Text$,"11","")
Resultat$ = Translate$(Resultat$,"12","")
Print Text$
Print Resultat$
WaitInpu