（XD::String:NumFormat）数字转字符串并格式化

Lispboy

1. ;|
   
2. 命令: (XD::STRING:NUMFORMAT 5 4 nil)
   
3. "5.0000"
   
4. 命令: (XD::STRING:NUMFORMAT 5. 4 nil)
   
5. "5.0000"
   
6. 命令: (XD::STRING:NUMFORMAT 5.01 4 nil)
   
7. "5.0100"
   
8. 命令: (XD::STRING:NUMFORMAT 5 4 t)
   
9. "5.0"
   
10. 命令: (XD::STRING:NUMFORMAT 5. 4 t)
    
11. "5.0"
    
12. 命令: (XD::STRING:NUMFORMAT 5.01 4 t)
    
13. "5.01"
    
14. |;
    
15. (defun XD::String:NumFormat (num prec mode)
    
16.   (xdrx_sysvar_push '("dimzin" 0))
    
17.   (setq str (rtos num 2 prec))
    
18.   (if (= mode t)
    
19.     (setq str (xdrx_string_regexpr "(?<=\\.[0-9]+)0+$" str "")
    
20.           str (xdrx_string_regexpr "(?<=\\.)$" str "0")
    
21.     )
    
22.   )
    
23.   (xdrx_sysvar_pop)
    
24.   str
    
25. )
    

;|<br /> 命令: (XD::STRING:NUMFORMAT 5 4 nil)<br /> "5.0000"<br /> 命令: (XD::STRING:NUMFORMAT 5. 4 nil)<br /> "5.0000"<br /> 命令: (XD::STRING:NUMFORMAT 5.01 4 nil)<br /> "5.0100"<br /> 命令: (XD::STRING:NUMFORMAT 5 4 t)<br /> "5.0"<br /> 命令: (XD::STRING:NUMFORMAT 5. 4 t)<br /> "5.0"<br /> 命令: (XD::STRING:NUMFORMAT 5.01 4 t)<br /> "5.01"<br /> |;<br /> (defun XD::String:NumFormat (num prec mode)<br />   (xdrx_sysvar_push '("dimzin" 0))<br />   (setq str (rtos num 2 prec))<br />   (if (= mode t)<br />     (setq str (xdrx_string_regexpr "(?<=\\.[0-9]+)0+$" str "")<br />           str (xdrx_string_regexpr "(?<=\\.)$" str "0")<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   str<br /> )<br />

命令: (XD::STRING:NUMFORMAT 5 4 nil)
"5.0000"

命令: (XD::STRING:NUMFORMAT 5. 4 nil)
"5.0000"

命令: (XD::STRING:NUMFORMAT 5.01 4 nil)
"5.0100"

命令: (XD::STRING:NUMFORMAT 5 4 t)
"5.0"

命令: (XD::STRING:NUMFORMAT 5. 4 t)
"5.0"

命令: (XD::STRING:NUMFORMAT 5.01 4 t)
"5.01"

yjch

学习了。谢谢