FreeProfan

English

RudiB.

Hello ,

have the following trouble:
in the nachstehenden Listing becomes only the first request the Error recognized. have it with with Freeprofan, XProfan10 probiert, both male the same Error. solely XProfan 11.2 goes free from problems so circa.

Compile Mark Separation

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

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

    Print "Error: No number zulässig"

EndIf

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

    Print "Error: no character zulässig"

EndIf

Waitinput
End

FreeProfan
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

01/25/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

« this Posting watts as Solution marked. »

Jörg
Sellmeyer

Schreib time each

Compile Mark Separation

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

. so functions it. The function supply Yes none boolschen worth back, separate a String.

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

01/25/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RudiB.

small Error....

The first request...

Compile Mark Separation

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

won't recognized...

FreeProfan
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

01/25/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RudiB.

is the in the string The first position a number

Compile Mark Separation

"5aaaa5aaa"

recognize it it already,,,,

FreeProfan
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

01/25/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Schreib time each

Compile Mark Separation

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

. so functions it. The function supply Yes none boolschen worth back, separate a String.

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

01/25/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Verschoben in that FreeProfan-Forum.

01/25/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RudiB.

calm and logical.....thanks Jörg

FreeProfan
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

01/27/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

gladly happen.

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

01/28/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

Perhaps yet to appendix :
If you More as a einstellige number
discern want, can you into geschweiften
clinging The amount indicate.
{1,3} -> recognize a, two and dreistellige
{1,} -> recognize at least a but too each mehrstellige

Compile Mark Separation

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

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

    Print "Error: No number zulässig"

EndIf

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

    Print "Error: no character 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.

01/28/16 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote