egghelp/eggheads community

commas

2003-05-06T14:37:30-04:00

Here's another solution which lets you decide the splitting frequency and char.

Code:

proc splitNumber {number {every 3} {by ,}} {while {[regsub ^(\[-+\]?\\d+)(\\d\{$every\}) $number \\1$by\\2 number]} {}set number}

usage examples:

Code:

splitNumber 10000returns: 10,000splitNumber 10000 4 .returns: 1.0000

probably not very useful for most of you out there anyway

Statistics: Posted by user — Tue May 06, 2003 2:37 pm

commas

2003-05-06T05:23:39-04:00

I am sure there is a regsub procedure on the forum from many many moons ago, that took care of this in a quick and simple step. I sugest you search for this, however, here is a normal version.

Code:

proc groupdigits {in {sep {,}}} {  set out ""  set in [split $in {}]  while {[llength $in]} {    set out "${sep}[join [lrange $in end-2 end] {}]${out}"    set in [lreplace $in end-2 end]  }  return [string trimleft $out $sep]}

Use it like so

Code:

groupdigits 1000010,000groupdigits 1000000000 @1@000@000@000

It defaults to a seperator of ",", but will take other with the second parameter (not needed).

Statistics: Posted by ppslim — Tue May 06, 2003 5:23 am

commas

2003-05-05T20:14:52-04:00

was wondering if anyone had a code to put commas in really long numbers, such as 1000000 would be turned into 1,000,000. i currently have a piece of code that does this for me that i got from a site, but its kinda "not working" right with some of my scripts.

Statistics: Posted by BrollY — Mon May 05, 2003 8:14 pm