S1000() : Separate 1000's in Number

[SKAN]

Code: Select all

S1000(N) { ; Separate 1000's in N,       by SKAN on D47G/D47I @ tiny.cc/s1000
Return ( N := StrSplit((N<0 ? "-." : ".") . N, ".") ).Count() ? N.1
       . Trim( Format("{}{},{}{}{},{}{}{},{}{}{},{}{}{},{}{}{},{}{}{}." . N.3
       , StrSplit( Format("{:20}", Format("{:d}",N.2)))* ), " .,-" ) : 0
}

S1000_DE(N) { ; Separate 1000's in N,    by SKAN on D47G/D47I @ tiny.cc/s1000
Return ( N := StrSplit((N<0 ? "-," : ",") . StrReplace(N, ".", ","), ",") ).Count() ? N.1
       . Trim( Format("{}{}.{}{}{}.{}{}{}.{}{}{}.{}{}{}.{}{}{}.{}{}{}," . N.3
       , StrSplit( Format("{:20}", Format("{:d}",N.2)))* ), " .,-" ) : 0
}

S1000_IN(N) { ; Separate 1000's in N,    by SKAN on D47G/D47I @ tiny.cc/s1000
Return ( N := StrSplit((N<0 ? "-." : ".") . N, ".") ).Count() ? N.1
       . Trim( Format("{},{}{},{}{},{}{},{}{},{}{},{}{},{}{},{}{},{}{}{}." . N.3
       , StrSplit( Format("{:20}", Format("{:d}",N.2)))* ), " .,-" ) : 0
}

#NoEnv
#Warn
#SingleInstance, Force

MsgBox % S1000(-0)
MsgBox % S1000(-.5)
MsgBox % S1000(1000)
MsgBox % S1000(-123456.789)
MsgBox % S1000(2**63-1)

[mcl]

Code: Select all

MsgBox % S1000(-0.5)

S1001(n) {
	Return RegexReplace(N, "(?<!-)(?<!^)(?=(\d{3})+(\.|$))", ",",, (N~="\.") ? ((N~="\.")-(N~="-")-2)/3 : -1 )
}

[Johnny R]

It would be nice if the German format ("-12.345,67") could be taken into the script. Thanks.

[SKAN]

Code: Select all

MsgBox % S1000(-0.5)

 
Thanks. Fixed.
 

It would be nice if the German format ("-12.345,67") could be taken into the script. Thanks.

 
I've added S1000_DE(). Please test it.

[Johnny R]

Hallo SKAN, i've tested the script. MsgBox % S1000_DE(-123456.789) ignores the part ".789".

[SKAN]

Hallo SKAN, i've tested the script. MsgBox % S1000_DE(-123456.789) ignores the part ".789".

Code modified. Please try again.

[Johnny R]

Hallo Skan, now it works. Thank you! What means the function S1000_IN(N)?

[SKAN]

What means the function S1000_IN(N)?

S1000_DE is German, S1000_IN is Indian.
See Indian numbering System

[ozzii]

S1000_DE is German, S1000_IN is Indian.

It will not be more universal to add as options the thousands delimiter and decimals delimiter?
For example:
MsgBox % S1000_DE(-123456.789," ",",") -> -123 456,789
MsgBox % S1000_DE(-123456.789," ",".") -> -123 456.789
MsgBox % S1000_DE(-123456.789,".",",") -> -123.456,789

At least you will catch the majority and you can keep the exceptions like Indian in a function.

What do you think about that SKAN?

[SKAN]

Hi @ozzii
This topic isn't really about formatting numbers. It merely demonstrates how to to do it abusing Format() command.
What you suggest is good and can be done... but these functions are already slower than @mcl's RegEx version.
In my current project, I'm calling this function only once and only for formatting bytes.

The recommended way for number formatting is using GetNumberFormat() ( my old code).
You can find a better/modern versions by @jNizM here.

[ozzii]

Thank you SKAN for the answer.
I will look into the other scripts