number-to-string-pad

number-to-string-pad

[Emanuel Berg]

Did anyone do

(defun number-to-string-pad (number len)
  (let*((num-str     (number-to-string number))
        (len-num-str (length num-str))
        (pad-len     (- len len-num-str)) )
    (if (< 0 pad-len)
      (let ((pad-prefix (make-string pad-len ?0)))
        (concat pad-prefix num-str))
      num-str) ))

?

-- 
underground experts united
http://user.it.uu.se/~embe8573

Re: number-to-string-pad

[Yuri Khan]

On Sat, Jan 27, 2018 at 2:06 PM, Emanuel Berg <moasen@zoho.com> wrote:
> Did anyone do
>
> (defun number-to-string-pad (number len)

(format "%04d" number)

If you don’t know the length beforehand, you could do:

(format (format "%%0%dd" len) number)

Re: number-to-string-pad

[Emanuel Berg]

Yuri Khan wrote:

>> Did anyone do (defun number-to-string-pad
>> (number len)
>
> (format "%04d" number)
>
> If you don’t know the length beforehand, you
> could do:
>
> (format (format "%%0%dd" len) number)

Great, thanks.

-- 
underground experts united
http://user.it.uu.se/~embe8573