Sorry your browser is not supported!

print GetFormattedNumber( 109064657 )

wait key

function GetFormattedNumber( Num as integer )
   NumStr as string
   NumStr = str$( Num )

   NumLen as integer
   NumLen = len ( NumStr )

   FormatStr as string
   FormatLen as integer

   NewStr as string

   for i = NumLen to 1 step -1
      FormatStr = FormatStr + mid$( NumStr, i )
      if ( ( NumLen + 1 ) - i ) mod 3 = 0
         FormatStr = FormatStr + ","
      endIf
   next i

   FormatLen = len( FormatStr )

   for i = FormatLen to 1 step -1
      NewStr = NewStr + mid$( FormatStr, i )
   next i

endFunction NewStr

print GetFormattedNumber( 109064657 )

wait key

function GetFormattedNumber( Num as integer )
   NumStr as string
   NumStr = str$( Num )

   NumLen as integer
   NumLen = len ( NumStr )

   FormatStr as string
   FormatLen as integer

   NewStr as string

   if NumLen > 3

      for i = NumLen to 1 step -1
         FormatStr = FormatStr + mid$( NumStr, i )
         if ( ( NumLen + 1 ) - i ) mod 3 = 0
            FormatStr = FormatStr + ","
         endIf
      next i

      FormatLen = len( FormatStr )

      for i = FormatLen to 1 step -1
         NewStr = NewStr + mid$( FormatStr, i )
      next i

   else

      exitFunction NumStr

   endIf

endFunction NewStr

for i=0 to 9
   print GetFormattedNumber( 10^i )
next i

wait key
end

function GetFormattedNumber( Num as integer )
   NumStr as string
   NumStr = str$( Num )

   NumLen as integer
   NumLen = len ( NumStr )

   FormatStr as string
   FormatLen as integer

   NewStr as string

   if NumLen > 3

      for i = NumLen to 1 step -1
         FormatStr = FormatStr + mid$( NumStr, i )
         if ( ( NumLen + 1 ) - i ) mod 3 = 0
            FormatStr = FormatStr + ","
         endIf
      next i

      FormatLen = len( FormatStr )

      for i = FormatLen to 1 step -1
         NewStr = NewStr + mid$( FormatStr, i )
      next i

   else

      exitFunction NumStr

   endIf

endFunction NewStr

for i=0 to 9
   print GetFormattedNumber( 10^i )
next i

wait key
end

function GetFormattedNumber( Num as integer )
   NumStr as string
   NumStr = str$( Num )

   NumLen as integer
   NumLen = len ( NumStr )

   FormatStr as string
   FormatLen as integer

   NewStr as string

   if NumLen > 3

      for i = NumLen to 1 step -1
         FormatStr = FormatStr + mid$( NumStr, i )
         if ( ( NumLen + 1 ) - i ) mod 3 = 0 and i > 1
            FormatStr = FormatStr + ","
         endIf
      next i

      FormatLen = len( FormatStr )

      for i = FormatLen to 1 step -1
         NewStr = NewStr + mid$( FormatStr, i )
      next i

   else

      exitFunction NumStr

   endIf

endFunction NewStr

print FormatNumber(1)
print FormatNumber(12)
print FormatNumber(123)
print FormatNumber(1234)
print FormatNumber(12345)
print FormatNumber(123456)
print FormatNumber(1234567)
print FormatNumber(12345678)
print FormatNumber(123456789)
wait key
end

function FormatNumber(Num as integer)
   local In as string
   local Out as string
   local Size as integer

   ` Convert the number to a string
   In = str$( Num )
   Size = len( In )

   ` Loop while the number of characters in the input string is more than 3
   ` (4 or more characters means we need 1 or more comma's. 3 characters or less means we don't)
   while Size > 3
      dec Size, 3

      ` Put a comma and the right-most 3 characters onto the front of the output string
      Out = "," + right$( In, 3 ) + Out

      ` Remove those right-most 3 characters from the input string
      In = left$( In, Size)
   endwhile

   ` Put the remaining characters onto the front of the output string
   ` (At this point there are eith 1, 2 or 3 characters left, and they don't need comma's)
   Out = In + Out
endfunction Out

for i=0 to 9
   print Formatted_number(10^i)
next i
print Formatted_number(1234567890)

wait key
end

function Formatted_Number(n)
   fs$=""
   sn$=str$(n)
   sl=len(sn$)
   for i=1 to sl step 3
      fs$=right$(sn$,3)+left$(",",(i<>1))+fs$
      sn$=left$(sn$,len(sn$)-3)
   next i
   ` this is to fix negative numbers with a leading comma
   if left$(fs$,2)="-,"
      fs$="-"+right$(fs$,len(fs$)-2)
   endif
endfunction fs$

rem recursive comma formater
rem

` test full numbers
for i=9 to 0 step -1
   num=1234567890/(10^i)
   print Comma(num)
next i

` test leading zeros
for i=0 to 9
   num=1001001001/(10^i)
   print Comma(num)
next i

` test zero fill and negative numbers
for i=0 to 9
   print Comma(-1*10^i)
next i

wait key
end

function Comma(n)
   sn=n/abs(n*(n<>0)+(n=0))
   n=sn*n
   if n>999
      r=n mod 1000
      l=sn*n /1000
      f$=Comma(l)+","+right$("00",1*(r<10)+1*(r<100))+str$(r)
   else
      f$=left$("-",(sn<0))+str$(n)
   endif
endfunction f$

print FormatNumber(1)
print FormatNumber(12)
print FormatNumber(123)
print FormatNumber(1234)
print FormatNumber(12345)
print FormatNumber(123456)
print FormatNumber(1234567)
print FormatNumber(12345678)
print FormatNumber(123456789)
print FormatNumber(-1)
print FormatNumber(-12)
print FormatNumber(-123)
print FormatNumber(-1234)
print FormatNumber(-12345)
print FormatNumber(-123456)
print FormatNumber(-1234567)
print FormatNumber(-12345678)
print FormatNumber(-123456789)
wait key
end

function FormatNumber(Num as integer)
   local In as string
   local Out as string
   local Size as integer
   local Sign as integer

   ` Convert the number to a string, excluding the sign
   if Num >= 0
      In = str$( Num )
   else
      In = str$( -Num )
   endif

   Size = len( In )

   ` Loop while the number of characters in the input string is more than 3
   ` (4 or more characters means we need 1 or more comma's. 3 characters or less means we don't)
   while Size > 3
      dec Size, 3

      ` Put a comma and the right-most 3 characters onto the front of the output string
      Out = "," + right$( In, 3 ) + Out

      ` Remove those right-most 3 characters from the input string
      In = left$( In, Size)
   endwhile

   ` Put the remaining characters onto the front of the output string
   ` (At this point there are eith 1, 2 or 3 characters left, and they don't need comma's)
   Out = In + Out

   ` If the number is negative, add the sign to the front
   if Num < 0 then Out = "-" + Out
endfunction Out