Hallo Günter,
ein wohl für Programmierer nicht ganz so optimale Möglichkeit, aber im Ergebnis richtig.
Code:
errors off
local window Hilfe = size 40 by 19 at 21,3 framed
pause = TRUE
screen Hilfe
local str t=""
!t="603 13"
!t="603,13"
t="60313"
local int t2 = val(t)
put in Hilfe at 3,3 t2
local str a = string(val(t))
put in Hilfe at 3,5 a
IF a = "0,00000" put in Hilfe at 3,6 "TEXT"
ELSE
attach 'string'
b = call('RIGHT' ,a,5)
put in Hilfe at 3,7 b
detach 'string'
IF b = "00000"
put in Hilfe at 3,8 "GANZZAHL"
END IF
END IF
GET pause
pause END
END SCREEN val(t) liefert bei Textstring ein 0,00000, so dass ich mit IF-Anweisung den Textstring herausziehe.
Eine Dezimalzahl liefert mit RIGHT so nun die Nachkommastellen.
Hast Du 00000, hast Du eine GANZZAHL.
Gruß Rainer