FreeProfan

Italia

RudiB.

Hallo ,

habe folgendes Problem:
Im nachstehenden Listing wird nur bei der ersten Abfrage der Fehler erkannt. Habe es mit mit Freeprofan, Xprofan10 probiert, beide male der gleiche Fehler. Lediglich Xprofan 11.2 geht Problemlos damit um.

Kompilieren Markieren Separieren

Declare eingabe_edit1$,eingabe_edit2$
CLS
eingabe_edit1$="aaaa7aaa"
eingabe_edit2$="5555z55"

If Match$("[0-9]", eingabe_edit1$)

    Print "Fehler: Keine Zahl zulässig"

EndIf

If Match$("[A-Za-z]", eingabe_edit2$)

    Print "Fehler: Kein Buchstabe zulässig"

EndIf

Waitinput
End

FreeProfan
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

25.01.2016 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

Jörg
Sellmeyer

Schreib mal jeweils

Kompilieren Markieren Separieren

If Match$("[...]",var$) > ""

. Damit funktioniert es. Die Funktion liefert ja keinen boolschen Wert zurück, sondern einen String.

XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

25.01.2016 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RudiB.

Kleiner Fehler....

die erste Abfrage...

Kompilieren Markieren Separieren

If Match$("[0-9]", eingabe_edit1$)

wird nicht erkannt...

FreeProfan
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

25.01.2016 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RudiB.

ist die im String die erste Position eine Zahl

Kompilieren Markieren Separieren

"5aaaa5aaa"

erkennt er es schon,,,,

FreeProfan
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

25.01.2016 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Schreib mal jeweils

Kompilieren Markieren Separieren

If Match$("[...]",var$) > ""

. Damit funktioniert es. Die Funktion liefert ja keinen boolschen Wert zurück, sondern einen String.

XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

25.01.2016 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Verschoben ins FreeProfan-Foro.

25.01.2016 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RudiB.

cool und logisch.....Danke Jörg

FreeProfan
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

27.01.2016 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Jörg
Sellmeyer

Gern geschehen.

XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

28.01.2016 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

H.Brill

Vielleicht noch zur Ergänzung :
Wenn du mehr als eine einstellige Zahl
erkennen willst, kannst du in den geschweiften
Klammern die Anzahl angeben.
{1,3} -> erkennt eine, zwei und dreistellige
{1,} -> erkennt mindestens eine aber auch jede mehrstellige

Kompilieren Markieren Separieren

Declare eingabe_edit1$,eingabe_edit2$
CLS
eingabe_edit1$="aaaa7aaa"
eingabe_edit2$="5555z55"
Set("RegEx", 1)

If Match$("[0-9]{1,}", eingabe_edit1$) > ""

    Print "Fehler: Keine Zahl zulässig"

EndIf

If Match$("[A-Za-z]{1,}", eingabe_edit2$) > ""

    Print "Fehler: Kein Buchstabe zulässig"

EndIf

Waitinput
End

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.

28.01.2016 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione