padding zeros to the desired length

Question

Question

Krishnaveni Kapu · Sep 16

#Ensemble

I receive a number as input

length = ln = 7

if input = 25
I need to add zeros to make make it as - 0000025 (a total length of ln)

if input = 9
I need to add zeros to make make it as - 0000009 (a total length ofln)

Discussion (5)3

Log in or sign up to continue

Robert Cemper · Sep 16

write $translate($justify(input,ln)," ",0)

1 0

Julius Kavay · Sep 16

Assuming, your input value is an integer, you have , along with the other solutions, one more:

// this works as long as len  < 145
//
set len =  120
set inp = 12345
write $e(1E120_inp,*-len+1,*)

// of course, if the len is shorter than, say 10,
// then you can use smaller constans like
//
set len=10
set inp=9
write $e(1E10_inp,*-len+1,*)

A good (or even a bad) side effect of the above solution is, if you get an input value which is LONGER than the length, it will be truncated to the given length

0 0

score 1 · Answer 1 · 2024-09-16T14:01:57-04:00

Many ways to do it, my way:

USER>Set input=25
 
USER>Set ln=10
 
USER>Set $Piece(Pad,"0",ln-$Length(input))="0"
 
USER>Set Padded=Pad_input
 
USER>Write
 
Pad="00000000"
Padded="0000000025"
input=25
ln=10

score 0 · Answer 2 · 2024-09-17T09:45:56-04:00

Another possible solution to this,

ClassMethod PadNumberWithZeros(number As %String, ln As %Integer) As %String
{
    set num = number
    while $length(num) < ln {
        set num = "0" _ num
    }
    return num
}

Returns 0000025 for 25 and 0000009 for 9 for the provided test cases

score 0 · Answer 3 · 2024-09-18T07:51:26-04:00

Krishnaveni Kapu · 2 hr ago

Thank You.

0 0