XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Eingabe im Editfeld auf Ziffern prüfen
Lauffähig ab Profan-Version 5.0
Überprüfen ob Numerisch in STRING
N% bereits declariert und enthält die Rückgabe
Returnwert in n%: 0= Alphanumerisch 1= Numerisch
ACHTUNG: PUNKT UND KOMMA GEHÖREN NICHT DAZU!
Include an den Anfang und mit
Numcheck STRING überprüfen. In N% der obige Wert.
(c) by Rolf Koch - Rokosoft - 11/2002 Koblenz.
Declare test$
 $I NUMCHECK.INC
WINDOW 50,50-500,300
WINDOWSTYLE 63
WINDOWTITLE NUMERICCHECK DEMO ZUR INCLUDE (c) by Rolf Koch
NUMCHECK 123AB88ROLF88878
print n%,=WENN IN LÄNGEREM STRING MIND. 1x ALPHANUMERISCH
NUMCHECK 1274456843138
print n%,=WENN IN LÄNGEREM STRING NUR NUMERISCH
Let test$=@Input$(String eingeben,Test,)
NUMCHECK test$

ifnot @equ$(test$,)

    if @equ(n%,0)

        Print Es war mind. ein Buchstabe dabei

    elseif @equ(n%,1)

        Print Nur Nummern in der Eingabe

    endif

else

    Print Keine Eingabe

endif

Waitinput