Forums Feature Suggestions A comma generator

The script turnes 10000 to 10,000

Personally I think it's useful, and hope it'll appear in the next version.

addpsik {
if ($1 == $null) { halt }
if ($1 isnum) {
if ($len($1) <= 3) { return $1 }
else {
unset %tempfinish
set %temp $1
while ($len(%temp) > 3) {
set %tempfinish $right(%temp,3) $+ , $+ %tempfinish
set %temp $left(%temp,$calc($len(%temp) - 3))
}
set %tempfinish %temp $+ , $+ %tempfinish
set %tempfinish $left(%tempfinish,$calc($len(%tempfinish) - 1))
return %tempfinish
}
}
}