Right-align formatted numbers

[Flyzone]

Is there a quick way to right align formatted numbers so they are columnwise aligned on a printout?

This sample program left-aligns them. I need them to be right-aligned like in a spreadsheet. Hopefully this is a simple specification rather than string conversions with length and space padding calculations.

Code: Select all

#lang "fblite"
#include "vbcompat.bi"

for i=1 to 10000
    print format(i,"###,##0")
next i
sleep

[fxm]

Aligning by 'FORMAT' does not work.
Use 'PRINT USING' instead:

Code: Select all

#lang "fblite"

for i=1 to 10000
    print using "###,###"; i
next i
sleep

[dodicat]

You also have rset, lset,
(See the help manual)

Code: Select all

dim as string s=space(30)
for n as long=1 to 20
   rset s,str(500*(rnd-rnd))
   print s
next
sleep
 

[Flyzone]

Thanks folks.

I just assumed USING would do the same thing without trying it. Duh.

I should have said "decimal aligned, right justified" so the RSET version achieves what I asked for but not what I meant though I think

Code: Select all

rset s,str(format(500*(rnd-rnd),"###,##0.00"))

would accomplish that.

Thanks for the RSET since I had not used that before.