Commatizing numbers: Difference between revisions
Content added Content deleted
No edit summary |
Antoni Gual (talk | contribs) |
||
Line 1,736: | Line 1,736: | ||
$-140,000±100 millions. |
$-140,000±100 millions. |
||
6/9/1946 was a good year for some.</pre> |
6/9/1946 was a good year for some.</pre> |
||
=={{header|VBScript}}== |
|||
Adapted from the Future Basic code |
|||
<syntaxhighlight lang="vb"> |
|||
function commatize( s , sep, start , stp ) |
|||
if sep ="" then sep = "," |
|||
if start ="" then start = 1 |
|||
if stp ="" then stp = 3 |
|||
Dim i, j, k, l |
|||
l = len(s) |
|||
for i = start to l |
|||
if ( asc( mid( s, i, 1 ) ) >= asc("1") and asc( mid( s, i, 1) ) <= asc("9") ) then |
|||
for j = i + 1 to l + 1 |
|||
if ( j > l ) then |
|||
for k = j - 1 - stp to i step -stp |
|||
s = mid( s, 1, k ) + sep + mid( s, k + 1, l - k + 1 ) |
|||
l = len(s) |
|||
next 'k |
|||
exit for |
|||
else |
|||
if ( asc( mid( s, j, 1 ) ) < asc("0") or asc( mid( s, j, 1 ) ) > asc("9") ) then |
|||
for k = j - 1 - stp to i step -stp |
|||
s = mid( s, 1, k ) + sep + mid( s, k + 1, l - k + 1 ) |
|||
l = len(s) |
|||
Next ' k |
|||
exit for |
|||
end if |
|||
end if |
|||
next 'j |
|||
exit for |
|||
end if |
|||
next ' |
|||
commatize=S |
|||
end function |
|||
wscript.echo commatize("pi=3.14159265358979323846264338327950288419716939937510582097494459231" , " " , 6, 5 ) |
|||
wscript.echo commatize("The author has two Z$100000000000000 Zimbabwe notes (100 trillion)." , "." , "", "" ) |
|||
wscript.echo commatize("\'-in Aus$+1411.8millions\'" , "," , "", "" ) |
|||
wscript.echo commatize("===US$0017440 millions=== (in 2000 dollars)" , "" , "", "" ) |
|||
wscript.echo commatize("123.e8000 is pretty big." , "" , "", "" ) |
|||
wscript.echo commatize("The land area of the earth is 57268900(29% of the surface) square miles." , "" , "", "" ) |
|||
wscript.echo commatize("Ain't no numbers in this here words, nohow, no way, Jose." , "" , "", "" ) |
|||
wscript.echo commatize("James was never known as 0000000007" , "" , "", "" ) |
|||
wscript.echo commatize("Arthur Eddington wrote: I believe there are 15747724136275002577605653961181555468044717914527116709366231425076185631031296 protons in the universe.", ",", "", "" ) |
|||
wscript.echo commatize(" $-140000±100 millions." , "" , "", "" ) |
|||
wscript.echo commatize("6/9/1946 was a good year for some." , "" , "", "" ) |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<small> |
|||
<pre> |
|||
pi=3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59231 |
|||
The author has two Z$100.000.000.000.000 Zimbabwe notes (100 trillion). |
|||
\'-in Aus$+1,411.8millions\' |
|||
===US$0017,440 millions=== (in 2000 dollars) |
|||
123.e8000 is pretty big. |
|||
The land area of the earth is 57,268,900(29% of the surface) square miles. |
|||
Ain't no numbers in this here words, nohow, no way, Jose. |
|||
James was never known as 0000000007 |
|||
Arthur Eddington wrote: I believe there are 15,747,724,136,275,002,577,605,653,961,181,555,468,044,717,914,527,116,709,366,231,425,076,185,631,031,296 protons in the universe. |
|||
$-140,000±100 millions. |
|||
6/9/1946 was a good year for some. |
|||
</pre> |
|||
</small> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |