FreeProfan

Español

RudiB.

¡Hola ,

habe folgendes Problema:
Im nachstehenden Listing se sólo en ersten Abfrage el Fehler erkannt. Posesiones lo con con Freeprofan, Xprofan10 probiert, beide male el gleiche Fehler. Lediglich Xprofan 11.2 va Problemlos así en.

Kompilieren Marca Separación

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

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

    Imprimir "Fehler: Keine Zahl zulässig"

EndIf

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

    Imprimir "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 Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

Jörg
Sellmeyer

Schreib veces jeweils

Kompilieren Marca Separación

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

. Damit funktioniert lo. El Función liefert sí no boolschen Valor zurück, pero una String.

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

25.01.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RudiB.

Kleiner Fehler....

el erste Abfrage...

Kompilieren Marca Separación

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

no es erkannt...

FreeProfan
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

25.01.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RudiB.

Es el en el String el erste Position una Zahl

Kompilieren Marca Separación

"5aaaa5aaa"

erkennt él lo ya,,,,

FreeProfan
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

25.01.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Schreib veces jeweils

Kompilieren Marca Separación

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

. Damit funktioniert lo. El Función liefert sí no boolschen Valor zurück, pero una String.

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

25.01.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Verschoben en el FreeProfan-Foro.

25.01.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RudiB.

fresco y logisch.....Gracias Jörg

FreeProfan
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

27.01.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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 Cita Zeilenweise Cita

H.Brill

Tal vez todavía a Ergänzung :
Wenn du más que una einstellige Zahl
erkennen willst, kannst du en el geschweiften
Klammern el número angeben.
{1,3} -> erkennt una, zwei y dreistellige
{1,} -> erkennt mindestens una aber auch jede mehrstellige

Kompilieren Marca Separación

Declarar eingabe_edit1$,eingabe_edit2$
CLS
eingabe_edit1$="aaaa7aaa"
eingabe_edit2$="5555z55"
Conjunto("RegEx", 1)

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

    Imprimir "Fehler: Keine Zahl zulässig"

EndIf

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

    Imprimir "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 Cita Zeilenweise Cita