pad zeros on the right of a string until len = 5

[crogers111]

CRXI
SQL

I'm trying to remove the decimal from a string and then pad the right side with zereos until the string is 5 characters in length.

I have the decimal removal working but my loop is failing and returning an error " A string is requried here". I haven't written a loop before so am hoping it's some simple syntax that I'm missing:



Whileprintingrecords;
StringVar Dx1;

Dx1 := {Command.DiagCode};

if Dx1 <> "" then
//removes the decimal
Dx1 := Replace(Trim({Command.DiagCode}),".","");

if len(Dx1)=5 then
Dx1
else

Do
Dx1 := Dx1 & "0"
While
Len(Dx1) < 5

 

[briangriffin]

Try adding extraneous 0's to the right, then using the left function to cut off what you need:


if not isnull(command.diagcode) and command.diagcode <> ""
then
left(replace(trim(command.diagcode),".","") + "00000",5)

 

[crystalkiwibruce]

If you already have the number then use Totext as follows..
ToText({Table,Number},"00000")


Bruce Ferguson

http://www.crystalkiwi.com/nlog.htm