(XD::String:RegExpR)对字符串进行正则表达式替换

XDSoft

1. ;|;; 用正则表达式替换字符
   
2. 功能 对字符串进行正则表达式替换.
   
3. 参数:
   
4. pat = 同xxexp
   
5. str = 被替换字符串
   
6. nstr = 替换字符串
   
7. key = 同xxexp
   
8. 返回 :返回替换后的字符串.
   
9. |;
   
10. (defun XD::String:RegExpR (pat str nstr key /)
    
11.   (if (not *xxvb**p)
    
12.     (setq *xxvb**p (vlax-get-or-create-object "VBScript.RegExp"))
    
13.   )
    
14.   (vlax-put *xxvb**p 'Pattern pat)
    
15.   (if (not key)
    
16.     (setq key "")
    
17.   )
    
18.   (setq key (strcase key))
    
19.   (setq keys '(("I" "IgnoreCase") ("G" "Global")
    
20.          ("M" "Multiline")
    
21.         )
    
22.   )
    
23.   (mapcar
    
24.     '(lambda (x)
    
25.        (if (wcmatch key (strcat "*" (car x) "*"))
    
26.          (vlax-put *xxvb**p (read (cadr x)) 0)
    
27.          (vlax-put *xxvb**p (read (cadr x)) -1)
    
28.        )
    
29.      )
    
30.     keys
    
31.   )
    
32.   (vlax-invoke *xxvb**p 'replace str nstr)
    
33. )
    
34. 
    

;|;; 用正则表达式替换字符<br /> 功能 对字符串进行正则表达式替换. <br /> 参数:<br /> pat = 同xxexp<br /> str = 被替换字符串<br /> nstr = 替换字符串<br /> key = 同xxexp<br /> 返回 :返回替换后的字符串.<br /> |;<br /> (defun XD::String:RegExpR (pat str nstr key /)<br />   (if (not *xxvb**p)<br />     (setq *xxvb**p (vlax-get-or-create-object "VBScript.RegExp"))<br />   )<br />   (vlax-put *xxvb**p 'Pattern pat)<br />   (if (not key)<br />     (setq key "")<br />   )<br />   (setq key (strcase key))<br />   (setq keys '(("I" "IgnoreCase") ("G" "Global")<br />          ("M" "Multiline")<br />         )<br />   )<br />   (mapcar<br />     '(lambda (x)<br />        (if (wcmatch key (strcat "*" (car x) "*"))<br />          (vlax-put *xxvb**p (read (cadr x)) 0)<br />          (vlax-put *xxvb**p (read (cadr x)) -1)<br />        )<br />      )<br />     keys<br />   )<br />   (vlax-invoke *xxvb**p 'replace str nstr)<br /> )<br /> <br />

牢固

提一个改进建议：该函数只能对一个字串进行替换操作一次，如果我要对同一字串进行n次不同的替换操作，譬如去除Mtext格式，得到Mtext真正的文字部分，就需要进行数次替换操作才可以得到最终结果！如果用该函数，就需要数次创建正则表达式对象，替换一次、释放对象的过程！如果大批量的进行该操作，还是会有效率上的影响，如果将 参数pat 和 nstr 改为一一对应的表或字串，即 pat = (表达式1 表达式2 。。。) 或表达式 nstr = (字串1 字串2 。。。)或字串，这样只需要创建一次正则表达式对象，进行n次替换，效率会提高一些！

XDSoft

程序代码里面其实只打开一次正则表达式对象，我看还是自己在外面用MAPCAR操作吧，放到里面也是加了个MAPCAR套而已。参数看着有些乱。

牢固

XDSoft 发表于 2013-7-2 22:17
程序代码里面其实只打开一次正则表达式对象，我看还是自己在外面用MAPCAR操作吧，放到里面也是加了个MAPCAR ...

呵呵，没仔细看代码！原来*xxvbsexp设成了常量！{:soso_e113:}

梦断江南

是的，我的函数里面*开头的都是设常量，如*cad，等。这样不必每次运行函数都生成、释放一次，提高效率。
用mapcar，while等都可以套用这个函数（第一次生成vbs实体会慢一点，之后就没有影响）

/db_自贡黄明儒_

XDSoft 发表于 2013-7-2 22:17
程序代码里面其实只打开一次正则表达式对象，我看还是自己在外面用MAPCAR操作吧，放到里面也是加了个MAPCAR ...

老大，举个应用示列吧！！！

Lispboy

/db_自贡黄明儒_ 发表于 2013-7-3 20:12
老大，举个应用示列吧！！！

见一刀屠文的帖子啊，里面全是应用啊。
老大也贴过一个，正则表达式 搜索论坛。

eachy

/db_自贡黄明儒_ 发表于 2013-7-3 20:12
老大，举个应用示列吧！！！

正则看着头大，什么时候用再细看

avijjā

想问一个简单的问题 这是用什么语言编写的啊 lisp吗

newer

avijjā 发表于 2016-10-28 21:27

Visual LISP, AutoLISP的扩展

avijjā

谢谢啦  

yjch

好好学习天天向上

wyl219

有一点小问题， XD::String:RegExps函数的局部变量是end，会提示“用户警告: 给保护符号赋值: end”，变量改一下就好了，问题是这个 XD::String:RegExpR函数好像没用到这个变量吧？

marting

wyl219 发表于 2018-9-26 12:02
有一点小问题， XD::String:RegExps函数的局部变量是end，会提示“用户警告: 给保护符号赋值: end”，变量 ...

没有这变量，应该是你程序其他的地方定义了了END吧。

wyl219

marting 发表于 2018-9-26 12:27
没有这变量，应该是你程序其他的地方定义了了END吧。

XD::String:RegExpS 有用到end，作为返回值
http://bbs.xdcad.net/forum.php?m ... A%3AString%3ARegExp
XD::String:RegExpR没有用到，但是在定义函数的时候声明了这个局部变量。