formatting number with commas

[ken gray]

is the an easy way to put a character into a number to mark the thousands, millions etc?

285798181
to this
285,798,181
or this if not in the US
285.798.181 :wink:

[_pi]

member function str.Format100

Code:

Copy      Help

function [VARIANT'numberstring] [$delimiter];;1245657864 "."

;Formats numberstring 1245657864 to 1.245.657.864
;Default: itself.
;delimiter default is '.'
;!!! NOT implemented: check for double !!!
;EXAMPLES
;str s
;s.Format100("1245657864")

;s=1245657864
;s.Format100

;s.Format100(252545 ",")
;out s

if(!numberstring) numberstring=this;else this=numberstring
if(!delimiter) delimiter="."
ARRAY(int) h.create(3)
h[0] = 9
h[1] = 6
h[2] = 3

if this.len>=10
,this.insert(delimiter this.len-h[0])
,this.insert(delimiter this.len-h[1])
,this.insert(delimiter this.len-h[2])
else if this.len>=7
,this.insert(delimiter this.len-h[1])
,this.insert(delimiter this.len-h[2])
else if this.len>=4
,this.insert(delimiter this.len-h[2])

double needs to be implemented.

[ken gray]

HA!
it's a beautiful thing; thanks!

I'll watch out for the double.

[Gintaras]

This also works for double.

Code:

Copy      Help

str s="-1234567.1234567"
strrev s
s.replacerx("(\d{3})(?=\d+($|[^\.\w]))" "$1,")
strrev s
out s

There should be an API function for this, but I could not find.

[ken gray]

"strrev" is that new?
it doesn't show up coloured for me.

[Gintaras]

For QM versions before 2.2.0, declare it:

dll msvcrt [_strrev]$strrev $string

[ken gray]

odd.

i've got 2.2.0.5.

[Gintaras]

It will become coloured after you run the code and reopen the macro or refresh colors.

In QM 2.2.0, everything that is in WINAPI don't have to be declared in macros.

[ken gray]

yep...there it is.

man, RX kicks my can every time!

do you know of a good book on RX?

PS: thanks! i'll have to rember the strrev thing; could come in handy somewhere else too.

[ken gray]

Member function: str.AddCommasToNumbers

Code:

Copy      Help

function$
;Adds commas to large numbers.  
;Note: the number must become a string before sending to this funcion.

;str s="1234567.1234567"
;s.AddCommasToNumbers
;out s


strrev this
this.replacerx("(\d{3})(?=\d+($|[^\.\w]))" "$1,")
strrev this