lisp princ详解_晓东CAD家园-论坛-A/VLISP-正则表达式lisp实例讲解-通过代码，完整的展示了正则表达式在lisp中使用 - Powered by Discuz!...

;;;teather:nonsmall opendcl

;;;version(版本):1.0

;;;description(描述)：应用正则表达式，从字符处中查找邮箱地址

;;;;;;示例：  1.加载程序

;;;     2.cad命令行输入：(setq str "dssd f bvd1@126.com 2@qq.com sss a 21@sina.cn,www dds 111111@yeah.net")

;;;    3.cad命令行输入：(tt str)

;;;    cad命令行输出数据：

;;;           邮箱地址：bvd1@126.com

;;;           邮箱地址：2@qq.com

;;;                                邮箱地址：21@sina.cn

;;;                                邮箱地址：111111@yeah.net

;;;                       替换：dssd f 邮箱替换 邮箱替换 sss a 邮箱替换,www dds 邮箱替换

(defun tt(str/)

(vl-load-com) '加载vl

(setq reg (vlax-create-object "vbscript.regexp")) '创建正则表达式

;;; 正则表达式属性: global Multiline IgnoreCase pattern 其中pattern是灵魂-----------------

;;;  1.写正则表达式

;;