[bb] Format a number by skn3 [ 1+ years ago ]

[BlitzBot]

Title : Format a number
Author : skn3
Posted : 1+ years ago

Description : Allows you to format a number and return it in a string.

Code :

Code: BlitzBasic

1. Print Format$("345233","#,###.##")
2. WaitKey()
3. Function Format$(Number,FormatString$)
4.         MakeFormat$=""
5.         NumberCount=1
6.         For I=1 To Len(FormatString$)
7.                 GetFormatChar$=Mid$(FormatString$,I,1)
8.                 Select GetFormatChar$
9.                         Case ","
10.                                 MakeFormat$=MakeFormat$+","
11.                         Case "."
12.                                 MakeFormat$=MakeFormat$+"."
13.                         Case "#"
14.                                 If NumberCount > Len(Number) Then
15.                                         GetNumberChar$="0"
16.                                 Else
17.                                         GetNumberChar$=Mid$(Number,NumberCount,1)
18.                                 End If
19.                                 NumberCount=NumberCount+1
20.                                 MakeFormat$=MakeFormat$+GetNumberChar$
21.                 End Select
22.         Next
23.         Return MakeFormat$
24. End Function

Comments :


Mikorians(Posted 1+ years ago)

 This didn't work when I fed it a float value.Tried fixing Number refs to Number$, still no good.