convert "1" to "001"

[GeryKnee]

Hi,

Is there a better syntax to convert "1" to "001" ?

(defun c:xx ( / TempSt)
(setq TempSt(itoa 1))
(while (< (strlen TempSt) 3)
(setq TempSt(Strcat "0" TempSt))
)
(princ TempSt)
(princ)
)

Thanks,

Gery

[calderg1000]

Regards @GeryKnee 

Maybe this...

(defun xx (n)
  (setq n (strcat "00" (itoa n)))
)
(xx 1)

[CodeDing]

I mean, there's only a couple scenarios here, perhaps this

(setq n "1")
(setq sLen (strlen n))
(setq n
  (strcat
    (cond ((= 1 sLen) "00") ((= 2 sLen) "0") (t ""))
    n
  );strcat
);setq

...even better, just remembered this lil gem:

(setq TempSt (itoa 1))
(setq TempSt (strcat (substr "00" (strlen TempSt)) TempSt))

[kpblc2000]

(_kpblc-string-align 1 3 "0" 3 t)

Link to my functions library is in my sign.

[ВeekeeCZ]

No, there is no built-in function for that.

So since the goal is quite simple I think any algorithm that works and you understand would be good enough.

[Kent1Cooper]

---

@GeryKnee wrote:

Is there a better syntax to convert "1" to "001" ? ....

---

I assume from your posted code that you are not just talking about adding two 0's as at least one reply assumes, but that you will have a target number of characters and want to "pad" a string with leading zeros until it reaches the right length.  This is a topic that has come up numerous times.  Search for things like "leading zeros" or "pad with zeros," and you will find lots of suggestions and approaches.

[ronjonp]

I'd think you'd want to check your largest number so that the padding can be adjusted for it:

;; Get length of largest integer
(setq p (apply 'max (mapcar 'strlen (setq l '("1" "10" "100" "1000" "10000")))))
;; ("00001" "00010" "00100" "01000" "10000") 
(mapcar '(lambda (x) (setq n "") (repeat (- p (strlen x)) (setq n (strcat n "0"))) (strcat n x)) l)