🚀 go-pugleaf

rt@astro.ocis.temple.edu (rt@astro.ocis.temple.edu) writes:
 >Hello,
> 
>   I am using dBASE III+. I would like to know how I can pad a
>memory variable with 0s.
> 
>For example:
>I would like to store the reccount() into a field in the database.
> 
>I would start as :
>mcount=reccount()
>REPLACE field1 WITH mcount  
> 
>I would like for it to show up as :
>00003 instead of 3 in the character field field1.
> 
>--
>My opinion does not reflect that of Temple U. This is because it is made 
>up of a non-reflective material. 


***********************************************************************

Hello, 
There are several ways to do this. The fast one I can come up 
with in dBase III+ with fuctions like len(), replicate(), 
ltrim() and str() is: 

*/ If the character field's length where you want to store         \*
*/ the 0-padded number is 5, you could do something like this:     \*
*/-----------------------------------------------------------------\*
drecn        = 100                               && Or reccount()
dmaxlen      =   5                               && Field's length
dzeros       = dmaxlen - len(ltrim(str(drecn)))  && Get # of zeros
dzeropad     = replicate("0", dzeros)            && build a "00..."  
dval2store   = dzeropad+ltrim(str(drecn))        && d padding

? dval2store                                     && Prints 00100
wait
*/-----------------------------------------------------------------\*

Now you can do a "replace dfield with dval2store".  

Also take a look at functions like transform(). In dBase III+
? transform( 100, "*#####.##")                   && Prints ***100.00

You could write some code to change the "*" with "0". Functions
like substr() are also useful for this.

I tested this in CA-dBfast for Windows, it should also work in 
good old dBase III+.

"Adios amigo" and good luck,

Armando R. Gonzalez 

And here's  the killer shot:

dzeros  = "0000"
dnumber = 100.00
? right(dzeros + ltrim(str(dnumber, 6, 2)), 8)

Armando
-------

A. Gonzalez (gonzalez@blue.weeg.uiowa.edu) wrote:
: And here's  the killer shot:

: dzeros  = "0000"
: dnumber = 100.00
: ? right(dzeros + ltrim(str(dnumber, 6, 2)), 8)

In Clipper:
<field> := padl( str( <number> ), len( <field> ), "0" )

Ciao,
Scott

: Armando
: -------