XProfan

Italia

Erasmus.Herold

Hallöchen ...

Gibt es in xProfan einen Befehl / eine Funktion, mit der ich einen
String auf erlaubte Zeichen prüfen kann?

Z.B., ob "name$" nur aus "a....z", "A...Z","0...9", "_" besteht?

Danke per den passenden Tipp.

09.01.2019 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

H.Brill

Gibt es nicht, aber das kannst du mit den regulären Ausdrücken
auch selber schnell realisieren.

Kompilieren Markieren Separieren

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

If TesteString(text) = 1

    Print "Unerlaubtes Zeichen gefunden !"

Else

    Print "Alles OK !"

EndIf

Proc TesteString

    Parameters String s
    Declare Long fehler
    fehler = 0

    WhileLoop 1, Len(s)

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

            ' alles ist gut

        Else

            fehler = 1
            Break

        EndIf

    EndWhile

    Return Fehler

EndProc

WaitKey
Set("RegEx", 0)
End

Wenn es an Geschwindigkeit mangelt, kann man auch noch
die MOVELISTPROC bemühen. Dann mußt du halt den Zähler
per Mid$() selber mit einem Long/Int erzeugen und selber
hochzählen. Dazu nimmst du Move("StringToList", S, D).
Aber vorher hinter jedem Zeichen einen Trenner einfügen.

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.

09.01.2019 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Erasmus.Herold

Dankeschön - perfekt!

13.01.2019 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione