CPYMSG Eingabe
Verfasst: Fr Feb 21, 2025 4:06 pm
Wie kann ich eine Abfrage erstellen die zwingend eine Eingabe vorsieht die nur Alpabetisch sein darf. Wenn dann Zahlen eingegeben werden zurück springt auf die Eingabe
Du liest eine String (~CHR), diesen untersuchst Du auf "Zahl".
Wenn Zahl ja; Konvertieren String nach REA
Nein, spring nach oben, erneut einlesen und testen.
Vor Jahren haben wir ein simple Anweisung gebastelt TESTNUM.
Hier grob der Code:
- TestNum_Vergleiche STR-REA.jpg (144.11 KiB) 37227 mal betrachtet
- TESTNUM_HLP.jpg (137.9 KiB) 37227 mal betrachtet
Idee hinter dem Test:
Schneide erstes Zeichen ab, vergleiche es mit Ziffer 0 bis 9
=> Wenn JA, dann Zahlen-Eingabe - Nein - kein Ergebnis
Idee klar? Ich helfe gern weiter!
Gruss Jörg
DO INDEX$, 0, 9, 1
CVREACHS ~INDEX$, INDEX$, 1, 0
TESTSTR ~BOOLEAN$, ~STRING$, 1, 1, ~INDEX$, 1, 1
IFTHEN ~BOOLEAN$, 1, EQ
TESTQUE TESTCV$, CHS:~REALVAR$
IFTHEN TESTCV$, 1, EQ
CVSTRREA ~REALVAR$, ~STRING$
ENDIF
UNWIND , , 2
ENDIF
ENDDO