正则表达式判断是否是合法的小写人民币

XDSoft

合法的小写人民币格式应该是

数字、（逗号）、小数点、数字

逗号可选

给一个数字，如何快速的判断是否是合法的小写货币呢？ 正则表达式功能强大，两行代码搞定

1. (if (and
   
2.       (xdrx_string_regexps "[^,.\d]" str)
   
3.       (xdrx_string_regexps "^(([0-9]{1,3}(,[0-9]{3})*(.(([0-9]{3},)*[0-9]{1,3}))?)|([0-9]+(.[0-9]+)?))$"
   
4.                            str
   
5.       )
   
6.     )
   
7.   (progn
   
8.     (setq str (xdrx_string_regexpr "," str "") ;去除,
   
9.           str (xdrx_string_regexpr "^0+" str "");去掉前导的0
   
10.           ;;str就是合法的小写货币（去掉了逗号和前导0）
    
11.     )
    
12.   )
    
13. )
    

(if (and<br />       (xdrx_string_regexps "[^,.\d]" str)<br />       (xdrx_string_regexps "^(([0-9]{1,3}(,[0-9]{3})*(.(([0-9]{3},)*[0-9]{1,3}))?)|([0-9]+(.[0-9]+)?))$"<br />                            str<br />       )<br />     )<br />   (progn<br />     (setq str (xdrx_string_regexpr "," str "") ;去除,<br />           str (xdrx_string_regexpr "^0+" str "");去掉前导的0<br />           ;;str就是合法的小写货币（去掉了逗号和前导0）<br />     )<br />   )<br /> )<br />

XDSoft

具体的应用看lispboy写的函数：http://bbs.xdcad.net/thread-705086-1-1.html

XDSoft

(xdrx_string_regexps "^(([0-9]{1,3}(,[0-9]{3})*(.(([0-9]{3},)*[0-9]{1,3}))?)|([0-9]+(.[0-9]+)?))$"
                           str
)

难点是判断逗号的位置，
"^(([0-9]{1,3}(,[0-9]{3})*(.(([0-9]{3},)*[0-9]{1,3}))?)|([0-9]+(.[0-9]+)?))$" 这行正则表达式判断了很多东西，如果有逗号，每隔3位必须都有，否则返回NIL