XProfan

English

Erasmus.Herold

Hallöchen ...

gives it in xProfan a commands / a function, with the I a
String on allowing characters Verify can?

Z.B., whether "name$" only from "a....z", "A...Z","0...9", "_" exists?

thanks for suitable Tipp.

01/09/19 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

gives not, but the can you with the regulären squeeze out
too yourself quick release.

Compile Mark Separation

Declare String Text
CLS
Set("RegEx", 1)
Text = "1234abc567"

If TesteString(Text) = 1

    Print "Unerlaubtes characters found !"

Else

    Print "Alles OK !"

EndIf

Proc TesteString

    Parameters String s
    Declare Long Error
    Error = 0

    WhileLoop 1, Len(s)

        If Instr("[a-zA-Z0-9_]", Mid$(s, &LOOP, 1))

            ' everything is well

        Else

            Error = 1
            Break

        EndIf

    EndWhile

    Return Error

ENDPROC

WaitKey
Set("RegEx", 0)
End

If it on speed mangelt, can too yet
The MOVELISTPROC bemühen. then must You hold whom counter
for Mid$() yourself with a Long/Int produce and yourself
hochzählen. moreover take You Move("StringToList", s, D).
but before behind each characters a Trenner insert.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

01/09/19 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Erasmus.Herold

Thank you - perfect!

01/13/19 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote