[LISP函数]：用指定字符首位补位格式化数字

eachy

2. 
   
3. ;; Form [url]www.xdcad.net[/url] eachy 2005.9.21
   
4. ;|
   
5. 功  能  用指定字符首位补位格式化数字
   
6. 参  数  intVal：要补位的数。;
   
7.         Pad：   代表添加字符形成的数值的位数
   
8.         sp      补位字符;
   
9.         str     小数位数
   
10. 示  例  (xd-stringZeroPad 123 4 "0" 0)
    
11. 注  意  以上示例将返回“0123”。
    
12. _$ (XD-STRING_ZEROPAD 123 8 " " 2)
    
13. "  123.00"
    
14. _$ (XD-STRING_ZEROPAD 123 8 "A" 2)
    
15. "AA123.00"
    
16. |;
    
17. (defun xd-string_zeropad (intval pad sp str / zeros)
    
18.   (setvar "dimzin" 0)
    
19.   (strcat
    
20.     (apply 'strcat
    
21.            (repeat (- pad (strlen (rtos intval 2 str)))
    
22.              (setq zeros (cons sp zeros)) ; make list
    
23.            )
    
24.     )
    
25.     (rtos intval 2 str)
    
26.   )
    
27. )

<br /> ;; Form [url]www.xdcad.net[/url] eachy 2005.9.21<br /> ;|<br /> 功  能  用指定字符首位补位格式化数字<br /> 参  数  intVal：要补位的数。;<br />         Pad：   代表添加字符形成的数值的位数<br />         sp      补位字符;<br />         str     小数位数<br /> 示  例  (xd-stringZeroPad 123 4 "0" 0)<br /> 注  意  以上示例将返回“0123”。<br /> _$ (XD-STRING_ZEROPAD 123 8 " " 2)<br /> "  123.00"<br /> _$ (XD-STRING_ZEROPAD 123 8 "A" 2)<br /> "AA123.00"<br /> |;<br /> (defun xd-string_zeropad (intval pad sp str / zeros)<br />   (setvar "dimzin" 0)<br />   (strcat<br />     (apply 'strcat<br />            (repeat (- pad (strlen (rtos intval 2 str)))<br />              (setq zeros (cons sp zeros)) ; make list<br />            )<br />     )<br />     (rtos intval 2 str)<br />   )<br /> )