Trimming the Dollar Sign in Transform 4

[stanlyn]

Hi,

How would I remove all the spaces between the $ and number after being transformed? One or two spaces is preferred. I need to reclaim the space as this field is taking up too much space on a report and other places. And, it's not an issue when using large numbers as the spaces gets filled up with numbers.

I know that I can count the chars in the value and use a case statement to build a matching transform, but I'm hoping for something more generic.

Thanks,
Stanley

 

[Chris Miller]

Reduce() of Foxtools.fll does that-

Set Library To Foxtools.fll additive
Clear
ab = 123.45
? Reduce(Transform(ab,'$999,999,999.99'))

And an even simpler solution is to let Transform act without your help, just adjust the number of decimal places with SET DECIMALS TO 2 and use

Set Decimals To 2
Clear
ab = Cast(1234.56 as Currency)
? Transform(ab)

That prints the value with currency symbol and 1000s separator because it's the type currency.

Chriss

 

[stanlyn]

Thanks Chris, exactly what I needed...
Stanley

 

[TamarGranor]

A simpler solution is to put two (or more) dollar signs at the front of the mask in TRANSFORM():

Transform(ab,'$$999,999,999.99')

Tamar

 

[Chris Miller]

Impressed, I didn't know that feature.

Chriss

 

[mjcmkrsr]

Hi,

Unfortunately it only works with the $ sign - $€ or $£ or any other combination of $x is not working. You may of course use @$ to show the local currency.

y = 250

SET CURRENCY RIGHT 
?TRANSFORM(y, "@$999,999")
SET CURRENCY LEFT
?TRANSFORM(y, "@$999,999")

hth

MarK

 

[Mike Lewis]

You may of course use @$ to show the local currency.

Or, more accurately, to show the symbol specied by [tt]SET CURRENCY TO [cCurrencySymbol][/tt].
.

Mike

__________________________________
Mike Lewis (Edinburgh, Scotland)

Visual FoxPro articles, tips and downloads

 

[mjcmkrsr]

Hi Mike,

Of course!

MarK