lisp操作正则表达式（邮箱示例）

1905975672

描述：此段代码通过邮箱检索，展示了正则表达式所有的方法和属性。希望帮助大家更好的理解正则表达式。
使用：代码注释里面有说明。
在此感谢我的老师：nonsmall ,opendcl希望大家支持两位的教学工作。同时感激Z（ZZXXQQ）版主无私的帮助

1. ;;;teather:nonsmall opendcl
   
2. ;;;version(版本):1.0
   
3. ;;;description(描述)：应用正则表达式，从字符处中查找邮箱地址
   
4. ;;;;;;示例：  1.加载程序
   
5. ;;;     2.cad命令行输入：(setq str "dssd f bvd1@126.com 2@qq.com sss a 21@sina.cn,www dds 111111@yeah.net")
   
6. ;;;    3.cad命令行输入：(tt str)
   
7. ;;;    cad命令行输出数据：
   
8. ;;;           邮箱地址：bvd1@126.com
   
9. ;;;           邮箱地址：2@qq.com
   
10. ;;;                                邮箱地址：21@sina.cn
    
11. ;;;                                邮箱地址：111111@yeah.net
    
12. ;;;                       替换：dssd f 邮箱替换 邮箱替换 sss a 邮箱替换,www dds 邮箱替换
    
13. 
    
14. (defun tt(str/)
    
15.     (vl-load-com) '加载vl
    
16.     (setq reg (vlax-create-object "vbscript.regexp")) '创建正则表达式
    
17.    
    
18. 
    
19. ;;; 正则表达式属性: global Multiline IgnoreCase pattern 其中pattern是灵魂-----------------
    
20.   ;;;  1.写正则表达式
    
21.   ;;;  2.百度搜索正则表达式，就可以了解pattern写法。
    
22.   (vlax-put-property reg 'global -1) '是否匹配全部 （-1是 ，0 不是）
    
23.   (vlax-put-property reg 'Multiline -1)'是否多行匹配 （-1是 ，0 不是）
    
24.    (vlax-put-property reg 'IgnoreCase -1)'是否忽略大小写 （-1是 ，0 不是）
    
25.     (vlax-put-property reg 'pattern (strcat "\\w{1,}" "@" "\\w{1,}" "." "((cn)|(com)|(net))"));lisp \\
    
26. ;;;  ----------------- end 正则表达式属性
    
27.   
    
28. 
    
29. ;;; 正则表达式方法: test Execute IgnoreCase pattern 其中pattern是灵魂-----------------  
    
30.     ;;;   1.(vlax-invoke-method reg 'test str)判断字符串是否与正则表达式匹配
    
31.   (if (vlax-invoke-method reg 'test str)
    
32.   ;;;   2.(vlax-invoke-method reg 'Execute str)生成匹配集合   
    
33.         (progn (setq matchcollect (vlax-invoke-method reg 'Execute str))
    
34.   ;;;   3.打印匹配的每个集合元素的value   
    
35.       (vlax-for match_item matchcollect (princ (strcat "\n"  "邮箱地址：" (eval (vlax-get-property match_item 'value)))))
    
36.     )
    
37.        (princ "no email")
    
38.     )
    
39.     ;;;   4.替换匹配的值  (vlax-invoke-method reg 'Replace str "replace")  生成str副本   
    
40.     (princ (strcat "\n" "替换：" (vlax-invoke-method reg 'Replace str "邮箱替换")))
    
41. ;;;  ----------------- end 正则表达式方法
    
42.   
    
43.         (vlax-release-object reg);释放内存
    
44.     (prin1)
    
45. )

;;;teather:nonsmall opendcl<br /> ;;;version(版本):1.0<br /> ;;;description(描述)：应用正则表达式，从字符处中查找邮箱地址<br /> ;;;;;;示例：  1.加载程序<br /> ;;;     2.cad命令行输入：(setq str "dssd f <a href="mailto:bvd1@126.com" target="_blank">bvd1@126.com</a> <a href="mailto:2@qq.com" target="_blank">2@qq.com</a> sss a <a href="mailto:21@sina.cn" target="_blank">21@sina.cn</a>,www dds <a href="mailto:111111@yeah.net" target="_blank">111111@yeah.net</a>")<br /> ;;;    3.cad命令行输入：(tt str)<br /> ;;;    cad命令行输出数据：<br /> ;;;           邮箱地址：<a href="mailto:bvd1@126.com" target="_blank">bvd1@126.com</a><br /> ;;;           邮箱地址：<a href="mailto:2@qq.com" target="_blank">2@qq.com</a><br /> ;;;                                邮箱地址：<a href="mailto:21@sina.cn" target="_blank">21@sina.cn</a><br /> ;;;                                邮箱地址：<a href="mailto:111111@yeah.net" target="_blank">111111@yeah.net</a><br /> ;;;                       替换：dssd f 邮箱替换 邮箱替换 sss a 邮箱替换,www dds 邮箱替换<br /> <br /> (defun tt(str/)<br />     (vl-load-com) '加载vl<br />     (setq reg (vlax-create-object "vbscript.regexp")) '创建正则表达式<br />    <br /> <br /> ;;; 正则表达式属性: global Multiline IgnoreCase pattern 其中pattern是灵魂-----------------<br />   ;;;  1.写正则表达式<br />   ;;;  2.百度搜索正则表达式，就可以了解pattern写法。<br />   (vlax-put-property reg 'global -1) '是否匹配全部 （-1是 ，0 不是）<br />   (vlax-put-property reg 'Multiline -1)'是否多行匹配 （-1是 ，0 不是）<br />    (vlax-put-property reg 'IgnoreCase -1)'是否忽略大小写 （-1是 ，0 不是）<br />     (vlax-put-property reg 'pattern (strcat "\\w{1,}" "@" "\\w{1,}" "." "((cn)|(com)|(net))"));lisp \\<br /> ;;;  ----------------- end 正则表达式属性<br />   <br /> <br /> ;;; 正则表达式方法: test Execute IgnoreCase pattern 其中pattern是灵魂-----------------  <br />     ;;;   1.(vlax-invoke-method reg 'test str)判断字符串是否与正则表达式匹配<br />   (if (vlax-invoke-method reg 'test str)<br />   ;;;   2.(vlax-invoke-method reg 'Execute str)生成匹配集合    <br />         (progn (setq matchcollect (vlax-invoke-method reg 'Execute str))<br />   ;;;   3.打印匹配的每个集合元素的value    <br />       (vlax-for match_item matchcollect (princ (strcat "\n"  "邮箱地址：" (eval (vlax-get-property match_item 'value)))))<br />     )<br />        (princ "no email")<br />     )<br />     ;;;   4.替换匹配的值  (vlax-invoke-method reg 'Replace str "replace")  生成str副本    <br />     (princ (strcat "\n" "替换：" (vlax-invoke-method reg 'Replace str "邮箱替换")))<br /> ;;;  ----------------- end 正则表达式方法<br />   <br />         (vlax-release-object reg);释放内存<br />     (prin1)<br /> )

。

ysq101

10次下载竟无一次回复，，，难道是验证码的原因？？？？？
楼主好人~~~~~~~~

wuqiu1986

学习了，楼主应该把 (strcat "\\w{1,}" "@" "\\w{1,}" "." "((cn)|(com)|(net))"))这行详解下更好，相信许多人这里不是很懂。

清风明月名字

谢谢楼主的分享！简单明了，很有意思

1905975672

wuqiu1986 发表于 2013-11-8 15:39
学习了，楼主应该把 (strcat "\\w{1,}" "@" "\\w{1,}" "." "((cn)|(com)|(net))"))这行详解下更好，相信许多 ...

lisp中生成\需要使用\\.
\w 匹配包括下划线的任何单词字符     注：w小写
{n,}至少匹配n次
x|y 匹配x或y
(strcat "\\w{1,}" "@" "\\w{1,}" "." "((cn)|(com)|(net))"))：至少1个非空字符且后面紧跟@且后面紧跟至少1个非空字符且后面紧跟“.”且后面紧跟cn或com或net字符串三者之一
满足此pattern要求的算匹配。

革天明

楼主好天分，正则表达式看到5、6次了，没看懂

yayadezhutou

谢谢楼主，谢谢分享、、、

langjs

俺搬个小板凳，好好学习，天天向上！