Appending Zeros to a number

[Gena Gill]

I need to append zeros to the front of a Dr. number, when that number is less than 5 digits.

I have some code that I use to strip zeros in my translation (see below)

set inp [lindex $xlateInVals 0]

set xlateOutVals [string trimleft $inp 0]

But, I need some that will add zeros until the total number of digits in the number equal 5.  Does anyone have anything that they can share?

Thanks

Topic

[Max Drown (Infor)]

Here’s how I do it:

Code:

set tmp [format “%05s” [lindex $xlateInVals 0]]; set xlateOutVals [list $tmp]

-- Max Drown (Infor)

[Gena Gill]

Whoo Hoo!  You’re my hero!

Now I won’t have to build and maintain a table of physician numbers.

[Author]

Replies