字符串位数不足时如何用0补齐

shiyan001

比如一个实数10.13，将其转为字符串010.130的形式，如何实现，先谢谢了。

Gu_xl

1. (setq real (getreal "\n输入数字:"))
   
2. (setq dimzin (getvar 'dimzin))
   
3. (setvar 'dimzin 0)
   
4. (setq str (rtos real 2 3))
   
5. (if (< (setq n (strlen str)) 7)
   
6.   (repeat (- 7 n)
   
7.     (setq str (strcat "0" str))
   
8.     )
   
9.   )
   
10. (setvar 'dimzin dimzin)
    
11. (print str)

(setq real (getreal "\n输入数字:"))<br /> (setq dimzin (getvar 'dimzin))<br /> (setvar 'dimzin 0)<br /> (setq str (rtos real 2 3))<br /> (if (< (setq n (strlen str)) 7)<br />   (repeat (- 7 n)<br />     (setq str (strcat "0" str))<br />     )<br />   )<br /> (setvar 'dimzin dimzin)<br /> (print str)

shiyan001

谢谢版主，用你的方法解决了。

ll_j

来个更通用的：

1. 
   
2. (defun dig (num nn dn / n0 oldd ns)  ; num数值，nn整数位数，dn小数位数
   
3.   (setq oldd (getvar "dimzin"))
   
4.   (setvar "dimzin" 0)
   
5.   (setq ns (rtos num 2 dn))
   
6.   (if (< num (expt 10 nn))
   
7.     (progn
   
8.       (setq n0 (if (/= 1000 num)
   
9.                       (fix (/ (log num) (log 10.0)))
   
10.                       3
    
11.         )
    
12.      n0 (- nn n0 1)
    
13.       )
    
14.       (if (> n0 0)
    
15.        (repeat n0 (setq ns (strcat "0" ns)))
    
16.        ns
    
17.       )
    
18.     )
    
19.     ns
    
20.   )
    
21.   (setvar "dimzin" oldd)
    
22.   ns
    
23. )
    
24. 
    

<br /> (defun dig (num nn dn / n0 oldd ns)  ; num数值，nn整数位数，dn小数位数<br />   (setq oldd (getvar "dimzin"))<br />   (setvar "dimzin" 0)<br />   (setq ns (rtos num 2 dn))<br />   (if (< num (expt 10 nn))<br />     (progn<br />       (setq n0 (if (/= 1000 num)<br />                       (fix (/ (log num) (log 10.0)))<br />                       3<br />         )<br />      n0 (- nn n0 1)<br />       )<br />       (if (> n0 0)<br />        (repeat n0 (setq ns (strcat "0" ns)))<br />        ns<br />       )<br />     )<br />     ns<br />   )<br />   (setvar "dimzin" oldd)<br />   ns<br /> )<br /> <br />

ynhh

(dig 15.2 3 3)
; 错误: no function definition: NM

ll_j

ynhh 发表于 2013-2-1 14:34
(dig 15.2 3 3)
; 错误: no function definition: NM

不好意思，程序先使用了子函数，临发的时候调整了一下，没有改彻底，上面的代码重新改过了。

一般前面需要一定数位的在测量桩号中会使用，但也就是3位，就像G版的那样就可以了，我这个是“钻牛角尖”的玩意，并没有什么实际用途，练练手而已。

ynhh

ll_j 发表于 2013-2-2 21:27
不好意思，程序先使用了子函数，临发的时候调整了一下，没有改彻底，上面的代码重新改过了。

一般前面 ...

你这个程序也很好，感觉上比G版的通用
感谢你的高超技术和热心精神
祝你春节愉快

xiabin68

好东本，，，已经试用了，，，爽 ，，，

清风明月名字

谢谢楼主！又学一招。