Code: Alles auswählen
Global Details.s
Procedure CheckCharsDetail(Eingabe.s, Notallowed.s)
For I = 1 To Len(Eingabe)
Analyze.s = Mid(Eingabe, I, 1)
For A = 1 To Len(Notallowed)
If Analyze = Mid(Notallowed,A,1)
If HowMany : Details + "," : EndIf
Details + Mid(Notallowed, A, 1)
HowMany + 1
EndIf
Next
Next
ProcedureReturn(HowMany)
EndProcedure
Eingabe.s = InputRequester("Eingabe","Wort eingeben das geprüft werden soll","")
Notallowed.s = InputRequester("Eingabe","Buchstaben eingeben, auf die das Wort geprüft werden soll (z.B. 'abcdefg123')","")
Debug CheckCharsDetail(Eingabe,Notallowed)
Debug Details