Page 1 of 1
How can I reject letters in a field for number? - Solved
Posted: Sat Mar 24, 2018 11:14 am
by DR White
How can I reject letters in a field that can have numbers, "." and "/", but no letters?
Thanks,
David
Re: How can I reject letters in a field for number?
Posted: Sat Mar 24, 2018 11:41 am
by jmburnod
Hi David,
This should work
Code: Select all
on keydown pKey
put "1234567890./" into tMyAllows
if pKey is in tMyAllows then
pass keydown
end if
end keydown
Best regards
Jean-Marc
Re: How can I reject letters in a field for number?
Posted: Sat Mar 24, 2018 11:47 am
by richmond62
One
EXTREMELY CLUNKY, STEAM-DRIVEN SOLUTION coming up:
Code: Select all
on mouseUp
put empty into fld "f2"
put fld "f1" into FFF
put 1 into KOUNT
repeat until char 1 of FFF is empty
if (char 1 of FFF = "1") or (char 1 of FFF = "2") or (char 1 of FFF = "3") or (char 1 of FFF = "4") or (char 1 of FFF = "5") or (char 1 of FFF = "6") or (char 1 of FFF = "7") or (char 1 of FFF = "8") or (char 1 of FFF = "9") or (char 1 of FFF = "0") or (char 1 of FFF = ".") or (char 1 of FFF = "/") then
put char 1 of FFF after fld "f2"
end if
delete char 1 of FFF
add 1 to KOUNT
end repeat
end mouseUp
{blaming it on my 101 degree temperature
]
And there's
Monsieur Burnod "pipping me at the post"
Re: How can I reject letters in a field for number?
Posted: Sat Mar 24, 2018 12:34 pm
by DR White
Jean-Marc,
WOW. That is so much cleaner then what I was trying to do and it works well.
Thanks So very much,
David
----------------
richmond62,
We program very similar, "STEAM-DRIVEN" style. It gets the job done,
but not in the cleanest and easiest way.
Thanks for your suggestion,
David
Re: How can I reject letters in a field for number? - Solved
Posted: Sat Mar 24, 2018 3:52 pm
by dunbarx
Before Colin Holgate pipes in, since he is notorious for reducing handlers to the fewest possible lines, Jean-Marc's excellent solution could be:
Code: Select all
on keydown tKey
if tKey is in "0123456789./" then pass keyDown
end keydown
I only mention this so that the workings of the keyDown message are fully understood, that if the message is not passed, no text is forthComing.
Craig Newman