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

自贡黄明儒

;;[功能] 取文字前的数字和小数点 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 ""))
)