关于去掉字符串末尾的多个0

lisp_beginner

有一些字符a = "234.344500"
b = "12345.4300"
c = "123.200000"
d= "125.000000"

我想把尾部的0去掉，如果小数点后全是0的话，保留一个0，比如上面的d="125.0" ,否则的话全部去掉，怎么做？

marting

(defun str_trim0(str)
   (if (= (atoi (setq a (vl-string-trim ".0" str))) (atof str))
     (strcat a ".0")
     a
   )
)

命令: (setq c "123.03000")
"123.03000"

命令: (_trim c)
"123.03"

命令: !b
"124.000"
命令: (_trim b)
"124.0"

Lispboy

(xdrx_string_regexpr "(?<=.[0-9]+)[0]{1,}$" str  "")

1. 
   
2. 命令: !b
   
3. "124.000"
   
4. 
   
5. 命令: (xdrx_string_regexpr "(?<=.[0-9]+)[0]{1,}$" b  "")
   
6. "124.0"
   
7. 
   
8. 命令: !c
   
9. "123.03000"
   
10. 
    
11. 命令: (xdrx_string_regexpr "(?<=.[0-9]+)[0]{1,}$" c  "")
    
12. "123.03"
    

复制代码

aimisiyou

(defun strfun (str) (* (atof str) 1.0))

forb0217

在excel中就好办了，编程中就要写程序了。

cable2004

正需要，支持楼主大人了！

yoyoho

正需要，感谢诸位楼主大人了！

tony097

学习借鉴了，谢谢楼主分享