大家把平时写正则表达式的模式写到这个贴下吧，日积月累。

newer

把这个帖子做成CAD开发方面的正则表达式的经典例子。

抛砖引玉：

匹配数字的模式："[0-9]+"

命令: (xd::string:regexps "[0-9]+" "abc2345,34de" "")
("2345" "34")

st788796

1 数字含小数  "\\d+.\\d+"
_$ (Xd::String:RegexpS "\\d+.\\d+" "fdsa1232.3213fsdfdasd2.112fds232" "")
("1232.3213" "2.112" "232")
_$

2 处理坐标文件常用的 空格分隔或逗号分隔或者用 1

("12323.22" "12333.22" "1211")
_$ (XD::String:RegexpS "[^ ]+" "12323.22 12333.22 1211" "")
("12323.22" "12333.22" "1211")
_$ (XD::String:RegexpS "[^,]+" "12323.22,12333.22,1211" "")
("12323.22" "12333.22" "1211")
_$

/db_自贡黄明儒_

;;85.17 [功能] 取文字末尾的数字和小数点 By 自贡黄明儒
;;示例(HH:EndNumber1+ "5.4aAa2.3")，返回"2.3"
(defun HH:EndNumber1+ (str)
  (car (xd::string:regexps "(\\d+)?[.]?(\\d+)+$" str ""))
)

;;85.23 [功能] 字符串末尾数字+1
;;示例(HH:EndNumberAdd "a3.02");返回"a3.03"
(defun HH:EndNumberAdd (str / I STR1 STR2)
  (if (setq str1 (car (xd::string:regexps "\\d+$" str "")))
    (progn (setq str2 (itoa (1+ (atoi str1))))          ;提取的尾数+1
           (setq i (- (strlen str1) (strlen str2)))
           (if (> i 0)
             (repeat i (setq str2 (strcat "0" str2)))
           )
           (XD::String:Replace "\\d+$" str str2 "")
    )
    (strcat str "1")
  )
)
;;主要用于非标图编号、图中序号等

xshrimp

匹配建筑的门窗字的 正则表达式...

xshrimp

匹配建筑的门窗字的 正则表达式...

/db_自贡黄明儒_

;;85.27 [功能] 字符串内是否包含指定的字符
;;示例(ACET-STR-WCMATCH "ssABCsBs" "*c*");T
(defun ACET-STR-WCMATCH1 (str f)
  (if (XD::String:RegExpS (strcat "[" f "]+") str "")
    T
  )
)

newer

匹配是否是纯数字

(xd::string:regexps "^([+-]?[0-9]+(\.[0-9]*)?)$" "34.5" "")
("34.5")
如果小数的话，点后面必须要求有数字，就写
(xd::string:regexps "^([+-]?[0-9]+(\.[0-9]+)?)$" "34.5" "")

/db_自贡黄明儒_

st788796 发表于 2013-12-2 17:08
1 数字含小数  "\\d+.\\d+"
_$ (Xd::String:RegexpS "\\d+.\\d+" "fdsa1232.3213fsdfdasd2.112fds232" "" ...

(Xd::String:RegexpS "\\d+.\\d+" "a-3.2B3.50V20C" "")返回
("3.2" "3.50")了{:soso_e109:},丢了20

混沌初开

很好!

bzhjl

/db_自贡黄明儒_ 发表于 2013-12-12 09:47
(Xd::String:RegexpS "\\d+.\\d+" "a-3.2B3.50V20C" "")返回
("3.2" "3.50")了,丢了20

数字含小数，正则表达式建议试一下这个"\d+(\.\d+)?"
至于Lisp写法的正则表达式{:soso_e117:}抱歉我还不会哦