;;[功能] 取文字末尾的数字和小数点
本帖最后由 自贡黄明儒 于 2013-10-9 11:09 编辑;;[功能] 取文字末尾的数字和小数点 By 自贡黄明儒
;;http://bbs.mjtd.com/thread-107150-1-1.html中定义xd::string:regexps
;;示例(HH:EndNumber+ "5.4a2.3")，返回"2.3"
(defun HH:EndNumber+ (str)
(car (xd::string:regexps "(\\d+)?[.]?(\\d+)+$" str ""))
)
页:
[1]