egghelp/eggheads community

[SOLVED] Add Commas to a Number

2012-02-29T12:15:30-04:00

Thanks got i working

Statistics: Posted by Fire-Fox — Wed Feb 29, 2012 12:15 pm

[SOLVED] Add Commas to a Number

2012-02-28T21:02:52-04:00

There is actually more to it than simply three digits and a comma. What appears to be the best all around answers was..

Code:

proc commify number {regsub -all \\d(?=(\\d{3})+([regexp -inline {\.\d*$} $number]$)) $number {\0,}}

set comma_number [commify "123456128213123412.1234"]

See here: http://wiki.tcl.tk/5000

Statistics: Posted by speechles — Tue Feb 28, 2012 9:02 pm

[SOLVED] Add Commas to a Number

2012-02-28T18:33:07-04:00

I can't think of any packages that will do this for you right now, but then again, the procedure isn't that hard;
Pick out pieces of three digits, and insert the separator of your choice inbetween. The only tricky part is to decide whether the left-most block should be 1, 2, or 3 digits long - as this is determined by the length of the whole string.

Provided you are dealing with integer, the following should probably work:

Code:

proc nFormat {string} {  set len [expr [string length $string] - 1]  set i [expr $len % 3]  set out [string range $string 0 $i]  while {$i < $len} {    append out ",[string range $string [incr i] [incr i 2]]"  }  return $out}

If you are dealing with floating-point values, you'd have to separate the decimal part of the value before iterating through the string.

Statistics: Posted by nml375 — Tue Feb 28, 2012 6:33 pm

[SOLVED] Add Commas to a Number

2012-02-29T12:54:17-04:00

Hey!

How do i add commas to a database output so its more readable ?

Statistics: Posted by Fire-Fox — Tue Feb 28, 2012 2:06 pm