[功能] 取文字末尾的数字和小数点

/db_自贡黄明儒_

2. ;;[功能] 取文字末尾的数字和小数点 By 自贡黄明儒
   
3. ;;http://www.xdcad.net/forum/thread-670090-1-1.html中定义xd::string:regexps
   
4. ;;示例(HH:EndNumber+ "5.4a2.3")，返回"32.3"
   
5. (defun HH:EndNumber+ (str)
   
6.   (car (xd::string:regexps "(\\d+)?[.]?(\\d+)+$" str ""))
   
7. )

;;[功能] 取文字末尾的数字和小数点 By 自贡黄明儒<br /> ;;http://www.xdcad.net/forum/thread-670090-1-1.html中定义xd::string:regexps<br /> ;;示例(HH:EndNumber+ "5.4a2.3")，返回"32.3"<br /> (defun HH:EndNumber+ (str)<br />   (car (xd::string:regexps "(\\d+)?[.]?(\\d+)+$" str ""))<br /> )

newer

不错。

lianghui2018

学习{:soso_e183:}

rq28

xd::string:regexps
又卡在这了:(

rq28

感谢黄工给大家带来的好程序
支持你

aeo

"5.4a2.3")       为什么返回"32.3"

st788796

aeo 发表于 2013-10-28 22:59
"5.4a2.3")       为什么返回"32.3"

写错了吧 !