egghelp/eggheads community

checking if a var is a number or not

2001-09-30T19:07:00-04:00

If you only want to tell if it's an integer (positive or negative) you could use this:

Code:

proc is_integer {x} {  if [catch {incr x}] {return 0}  return 1}

For a number with a decimal point, you could do a combination of regexp and expr, i.e. check to see that the string is only "+-.[0-9]", then do, if [catch {expr $x + 1}] to see if it's valid (i.e. doesn't have more than one decimal, etc).

Code:

proc is_real {x} {  set validchars {^[.+-0123456789].*$}  if ![regexp $validchars $x] {return 0}  if [catch {expr $x + 1}] {return 0}  return 1}

Statistics: Posted by stdragon — Sun Sep 30, 2001 7:07 pm

checking if a var is a number or not

2001-09-30T18:58:00-04:00

Didn't I already tell you last nite that isnum isn't a valid tcl command (thus it must be a proc on your bot). For tcl versions 8.1 or higher, [string is double $string] would work. And I still can't be bothered working it out for 8.0.x

Statistics: Posted by Petersen — Sun Sep 30, 2001 6:58 pm

checking if a var is a number or not

2001-09-30T17:41:00-04:00

hi, I want to check if a var. is a number or not. until now i have been using isnum, but it doesnt work with negative numbers.

ie.
.tcl isnum 5 -> Tcl: 1
.tcl isnum -5 -> Tcl: 0

Statistics: Posted by greenbear — Sun Sep 30, 2001 5:41 pm