Hi Jeff,
I have read the clever answers made to your request.
Just a thought :-)
If your phone numbers are entered by the user in your software, you
might just allow to enter a right phone number in the entry box.
Something like (in the script of your entry box):
on keyDown pKey
if pKey is an integer and the number of chars of me < 8 then then
pass keyDown
end keyDown
----------------------------
on closeField -- auto formatting
put char 1 to 3 of target & "-" & char 4 to 6 of target & "-" &
char 7 to 8 of target into target
end closeField
Sorry if it does not apply ;-)
Best Regards from Paris,
Eric Chatonet
Le 15 févr. 06 à 18:33, Jeff Honken a écrit :
I'm trying to validate a date. I've been playing with the below code
but I can't get it to verify a correct phone number. Can anyone steer
me in the correct direction on how to verify a phone number in a field
for the correct format? Jeff
--> Function
function CheckPhone pPhoneToCheck
if pPhoneToCheck is
matchText(pPhoneToCheck,"([0-9][0-9][0-9])-([0-9][0-9][0-9])-([0-9]
[0-9]
[0-9][0-9])")
then
return pPhoneToCheck
else
return "Bad Phone"
end if
end CheckPhone
-->End of Function
--> Code in Filed
on closeField
put CheckPhone(me) into Ewr
if Ewr is "Bad Phone" then
answer "The Telephone Number you entered must be in the format of
000-000-0000"
put "" into me
focus on me
break
ELSE
Answer "OK Good Number"
END IF
end closeField
------------------------------------------------------------------------
----------------------
http://www.sosmartsoftware.com/ [EMAIL PROTECTED]/
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
