字符串转实数

13648893846

求助请教大神:
字符串K113+154.489——实数113154.489互转函数该如何写

xyp1964

1. ;; xyp-Real2K 实数转里程 (xyp-Real2K 3012.3456)→"k3+012.346"
   
2. (defun xyp-Real2K (real)
   
3.   (strcat "k"
   
4.           (itoa (fix (/ real 1000)))
   
5.           "+"
   
6.           (substr (rtos (+ 1000 (rem real 1000)) 2 3) 2)
   
7.   )
   
8. )

;; xyp-Real2K 实数转里程 (xyp-Real2K 3012.3456)→"k3+012.346"<br /> (defun xyp-Real2K (real)<br />   (strcat "k"<br />           (itoa (fix (/ real 1000)))<br />           "+"<br />           (substr (rtos (+ 1000 (rem real 1000)) 2 3) 2)<br />   )<br /> )

xyp1964

xyp-K2Real 会有点复杂

kozmosovia

不复杂，一条语句(atof (vl-string-subst "" "K" (vl-string-subst "" "+" str)))

13648893846

多谢两位大神

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

mahuan1279

(vl-list->string (vl-remove nil (mapcar '(lambda (x) (if (= 0 (* (- x 75) (- x 43))) nil x)) (vl-string->list "K113+154.489"))))

yxp

(read (vl-string-subst "" "+" (substr "K113+154.489" 2)))

mahuan1279

yxp 发表于 2017-11-11 11:51
(read (vl-string-subst "" "+" (substr "K113+154.489" 2)))

结果没有保留小数点后面有效数字。