[功能] 取文字前的数字和小数点
;;[功能] 取文字前的数字和小数点 By 自贡黄明儒;;http://bbs.mjtd.com/thread-107150-1-1.html中定义xd::string:regexps
;;示例(HH:StartNumber+ "5.42a2.3")，返回"5.42"
(defun HH:StartNumber+ (str)
(car (xd::string:regexps "^(\\d+)?[.]?(\\d+)+" str ""))
)
页:
[1]