(XD::String:ModF) 将数字字符串分解为整数部分和小数部分

newer

1. ;|
   
2. 将数字字符串分解为整数部分和小数部分，支持正负号
   
3. 约定： 如果带小数点，前面必须有数
   
4.        如果带正号，返回值去掉符号
   
5. 例子：
   
6.   (XD::STRING:MODF "-1.2") ----》("-1" "-2")
   
7.   (XD::STRING:MODF "1.2") ----》("1" "2")
   
8.   (XD::STRING:MODF "1.") ----》("1" "0")
   
9.   (XD::STRING:MODF "+1.2") ----》("1" "2")
   
10.   (XD::STRING:MODF ".2") ----》nil
    
11. |;
    
12. (defun XD::String:ModF (str / ret ret1)
    
13.   (if (setq ret (XD::String:IsNum str))
    
14.     (progn
    
15.       (setq ret1 (xdrx_string_regexps "[^.]+" (car ret)))
    
16.       (if (= (length ret1) 1)
    
17.         (list (car ret1) "0")
    
18.         (cond
    
19.           ((= "-" (substr str 1 1))
    
20.             (list (car ret1) (strcat "-" (cadr ret1)))
    
21.           )
    
22.           ((= "+" (substr str 1 1))
    
23.             (list (substr (car ret1) 2) (cadr ret1))
    
24.           )
    
25.           (t
    
26.             ret1
    
27.           )
    
28.         )
    
29.       )
    
30.     )
    
31.   )
    
32. )
    
33. 
    

;|<br /> 将数字字符串分解为整数部分和小数部分，支持正负号<br /> 约定： 如果带小数点，前面必须有数<br />        如果带正号，返回值去掉符号<br /> 例子：<br />   (XD::STRING:MODF "-1.2") ----》("-1" "-2")<br />   (XD::STRING:MODF "1.2") ----》("1" "2")<br />   (XD::STRING:MODF "1.") ----》("1" "0")<br />   (XD::STRING:MODF "+1.2") ----》("1" "2")<br />   (XD::STRING:MODF ".2") ----》nil<br /> |;<br /> (defun XD::String:ModF (str / ret ret1)<br />   (if (setq ret (XD::String:IsNum str))<br />     (progn<br />       (setq ret1 (xdrx_string_regexps "[^.]+" (car ret)))<br />       (if (= (length ret1) 1)<br />         (list (car ret1) "0")<br />         (cond<br />           ((= "-" (substr str 1 1))<br />             (list (car ret1) (strcat "-" (cadr ret1)))<br />           )<br />           ((= "+" (substr str 1 1))<br />             (list (substr (car ret1) 2) (cadr ret1))<br />           )<br />           (t<br />             ret1<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )<br /> <br />

st788796

不是有个api函数吗？

newer

st788796 发表于 2014-11-24 21:28
不是有个api函数吗？

你说的是 xdrx_math_modf 吧，那个是对浮点数操作的，不是字符串。
用那个转换下也行，这个主要是试试正则直接操作字符串。

st788796

newer 发表于 2014-11-24 21:44
你说的是 xdrx_math_modf 吧，那个是对浮点数操作的，不是字符串。
用那个转换下也行，这个主要是试试正 ...

先distof再分

newer

st788796 发表于 2014-11-24 21:57
先distof再分

那就在提供一个DISTOF版本的

1. (defun XD::String:ModF (str)
   
2.   (mapcar
   
3.     '(lambda (x)
   
4.        (vl-princ-to-string x)
   
5.      )
   
6.     (xdrx_math_modf (distof str))
   
7.   )
   
8. )
   
9. 
   

(defun XD::String:ModF (str)<br />   (mapcar<br />     '(lambda (x)<br />        (vl-princ-to-string x)<br />      )<br />     (xdrx_math_modf (distof str))<br />   )<br /> )<br /> <br />

命令: (XD::STRING:MODF "2")
("2.0" "0.0")

命令: XD::STRING:MODF*取消*

命令: (XD::STRING:MODF "a")
nil

newer

完善下，提供个DIFTOF终极版的，这个DISTOF版本缺点就是由于中间用浮点数过渡，在小数位数很多的情况下，会有意外，不过不常见。

1. (defun XD::String:ModF (str / len pofix ret ret1 x)
   
2.   (and
   
3.     (XD::String:IsNum str)
   
4.     (setq len 1)
   
5.     (or
   
6.       (and
   
7.         (setq pofix (xdrx_string_regexps "\.[0-9]+$" str))
   
8.         (setq len (- (strlen (car pofix)) 1))
   
9.       )
   
10.       t
    
11.     )
    
12.     (setq ret (distof str))
    
13. 
    
14.     (setq ret (mapcar
    
15.                 '(lambda (x)
    
16.                    (vl-princ-to-string (rtos x 2 len))
    
17.                  )
    
18.                 (xdrx_math_modf ret)
    
19.               )
    
20.     )
    
21.     (setq ret1 (list (xdrx_string_regexpr "\.0$" (car ret) "")
    
22.                      (xdrx_string_regexpr "^0\." (cadr ret) "")
    
23.                )
    
24.     )
    
25.   )
    
26.   ret1
    
27. )
    

(defun XD::String:ModF (str / len pofix ret ret1 x)<br />   (and<br />     (XD::String:IsNum str)<br />     (setq len 1)<br />     (or<br />       (and<br />         (setq pofix (xdrx_string_regexps "\.[0-9]+$" str))<br />         (setq len (- (strlen (car pofix)) 1))<br />       )<br />       t<br />     )<br />     (setq ret (distof str))<br /> <br />     (setq ret (mapcar<br />                 '(lambda (x)<br />                    (vl-princ-to-string (rtos x 2 len))<br />                  )<br />                 (xdrx_math_modf ret)<br />               )<br />     )<br />     (setq ret1 (list (xdrx_string_regexpr "\.0$" (car ret) "")<br />                      (xdrx_string_regexpr "^0\." (cadr ret) "")<br />                )<br />     )<br />   )<br />   ret1<br /> )<br />

st788796

[0-9]+$  小数点及后面数字能保留？

XDSoft

st788796 发表于 2014-11-25 12:45
[0-9]+$  小数点及后面数字能保留？

你指的是 (setq pofix (xdrx_string_regexps "\.[0-9]+$" str)) 这个吧 ？


这个地方时得到小数点后面的，判断小数的位数，作为下面RTOS的参数，保证浮点的位数正确，因为math_modf 在位数很多时候，会截断显示的。


这个是数字无关，数字的判断在xd::string:IsNum里面解决了。

st788796

判断数字开头
匹配小数点前数
再匹配小数点及后面连续数

st788796

XDSoft 发表于 2014-11-25 13:00
你指的是 (setq pofix (xdrx_string_regexps "\.[0-9]+$" str)) 这个吧 ？

刚看了下手册，应该还可以简化

_$ (xdrx_string_regexps "[0-9]+" "123213.1121321adasda" t)
"123213"
_$ (xdrx_string_regexps "[0-9]+" "123213.1121321adasda" t)
"1121321"
_$

口味虾

命令: (XD::STRING:MODF "-1.2")
(-0.2 -1.0)
命令: (XD::STRING:MODF "1.2")
(0.2 1.0)
命令: (XD::STRING:MODF "1.")
(0.0 1.0)
命令: (XD::STRING:MODF "+1.2")
(0.2 1.0)
命令: (XD::STRING:MODF ".2")
(0.2 0.0)


结果为什么是这样了。。。2014-11-30版本的。
运行于WIN7-64 cad2007

newer

口味虾 发表于 2014-11-30 12:57
命令: (XD::STRING:MODF "-1.2")
(-0.2 -1.0)
命令: (XD::STRING:MODF "1.2")

你用的是几楼的代码？

newer

口味虾 发表于 2014-11-30 12:57
命令: (XD::STRING:MODF "-1.2")
(-0.2 -1.0)
命令: (XD::STRING:MODF "1.2")

这个函数已经加到晓东LISP函数库里面了，刚测试

命令: (XD::String:ModF "1.2")
(1.0 0.2)
命令: (XD::String:ModF "-12.23")
(-12.0 -0.23)


正常。

口味虾

重启系统后又正常了，可能是cad刚加载新版本api的问题，

newer

口味虾 发表于 2014-11-30 14:04
重启系统后又正常了，可能是cad刚加载新版本api的问题，

刚才我看错了，应该是返回字符串，你重新下载下刚更新的LISP函数库。