(XD::String:IsNumStart)判断字符串是否以数字开头

newer

1. (defun XD::String:IsNumStart (str / ret)
   
2.   (and
   
3.     (setq ret (xdrx_string_regexps "^(-|+)?[0-9]+(\\.[0-9]+)?" str ""))
   
4.     (setq ret (list (car ret) "^(-|+)?[0-9]+(\\.[0-9]+)?"))
   
5.   )
   
6.   ret
   
7. )
   
8. 
   

(defun XD::String:IsNumStart (str / ret)<br />   (and<br />     (setq ret (xdrx_string_regexps "^(-|+)?[0-9]+(\\.[0-9]+)?" str ""))<br />     (setq ret (list (car ret) "^(-|+)?[0-9]+(\\.[0-9]+)?"))<br />   )<br />   ret<br /> )<br /> <br />

st788796

复杂了吧(wcmatch str "#*")

newer

st788796 发表于 2014-11-25 12:23
复杂了吧(wcmatch str "#*")

没啥复杂的啊，WC这个也是匹配，不同的写法而已。WC这个说不定还没正则快呢

st788796

newer 发表于 2014-11-25 12:29
没啥复杂的啊，WC这个也是匹配，不同的写法而已。WC这个说不定还没正则快呢

一个字符还能慢到哪去:)
"[+-]#*,#*" 多简单

熊掌设计

   不错  谢谢分享        ``````````````````