[源码]正则表达式函数

tryhi

不知道论坛搜索功能较弱还是怎么，找不到一条正则表达式的函数，不过还是发现了些资料，整理写了两个函数供有需要之人调用。由于写得比较拙，望大神们指点。
注：使用该函数需要有正则表达式的基础，例子为读出字符串中所有的数值，即（“13049.66”“19.574”）
正则使用教程http://bbs.mjtd.com/thread-182083-1-1.html

1. (setq str "S=13049.66 平方米 合19.574亩")
   
2. (try-StrRegExp str "[\\d.]+")
   
3. (try-StrRegExpReplace str "[\\d.]+" "替换掉")
   
4. 
   
5. ;匹配正则表达式
   
6. ;;1、字符串 2、表达式
   
7. ;;(setq str "S=13049.66 平方米 合19.574亩")
   
8. ;;(try-StrRegExp str "[\\d.]+")
   
9. (defun try-StrRegExp(str1 expr)
   
10.   (_Replace str1 expr nil "")
    
11. )
    
12. ;正则表达式字符替换.
    
13. ;;1、字符串 2、表达式 3、替换
    
14. ;;注：本函数为匹配多行、忽略大小写
    
15. ;;(setq str "S=13049.66 平方米 合19.574亩")
    
16. ;;(try-StrRegExpReplace str "[\\d.]+" "替换掉")
    
17. (defun try-StrRegExpReplace(str1 expr str2)
    
18.   (_Replace str1 expr T str2)
    
19. )
    
20. 
    
21. (defun _Replace(str1 str2 bull str3 / lst matchcollect reg)
    
22.   (setq lst '())
    
23.   (setq reg (vlax-create-object "vbscript.regexp")) ;创建正则表达式
    
24.   
    
25.   (vlax-put-property reg 'global -1) ;是否匹配全部 （-1是 ，0 不是）
    
26.   (vlax-put-property reg 'Multiline -1);是否多行匹配 （-1是 ，0 不是）
    
27.   (vlax-put-property reg 'IgnoreCase -1);是否忽略大小写 （-1是 ，0 不是）
    
28.   (vlax-put-property reg 'pattern str2);lisp \\
    
29.   ;;;   1.(vlax-invoke-method reg 'test str)判断字符串是否与正则表达式匹配
    
30.   (if (vlax-invoke-method reg 'test str1)
    
31.     ;;;   2.(vlax-invoke-method reg 'Execute str)生成匹配集合   
    
32.     (progn (setq matchcollect (vlax-invoke-method reg 'Execute str1))
    
33.       ;;;   3.打印匹配的每个集合元素的value   
    
34.       (vlax-for match_item matchcollect (setq lst(cons(eval (vlax-get-property match_item 'value))lst)))
    
35.     )
    
36.   )
    
37.   ;;;   4.替换匹配的值  (vlax-invoke-method reg 'Replace str "replace")  生成str副本   
    
38.   (setq lst(reverse lst))
    
39.   (if bull
    
40.   (setq lst(vlax-invoke-method reg 'Replace str1 str3)))
    
41.   ;;;  ----------------- end 正则表达式方法
    
42.   (vlax-release-object reg);释放内存
    
43.   lst
    
44. )
    

(setq str "S=13049.66 平方米 合19.574亩")<br /> (try-StrRegExp str "[\\d.]+")<br /> (try-StrRegExpReplace str "[\\d.]+" "替换掉")<br /> <br /> ;匹配正则表达式<br /> ;;1、字符串 2、表达式<br /> ;;(setq str "S=13049.66 平方米 合19.574亩")<br /> ;;(try-StrRegExp str "[\\d.]+")<br /> (defun try-StrRegExp(str1 expr)<br />   (_Replace str1 expr nil "")<br /> )<br /> ;正则表达式字符替换.<br /> ;;1、字符串 2、表达式 3、替换<br /> ;;注：本函数为匹配多行、忽略大小写<br /> ;;(setq str "S=13049.66 平方米 合19.574亩")<br /> ;;(try-StrRegExpReplace str "[\\d.]+" "替换掉")<br /> (defun try-StrRegExpReplace(str1 expr str2)<br />   (_Replace str1 expr T str2)<br /> )<br /> <br /> (defun _Replace(str1 str2 bull str3 / lst matchcollect reg)<br />   (setq lst '())<br />   (setq reg (vlax-create-object "vbscript.regexp")) ;创建正则表达式<br />   <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 str2);lisp \\<br />   ;;;   1.(vlax-invoke-method reg 'test str)判断字符串是否与正则表达式匹配<br />   (if (vlax-invoke-method reg 'test str1)<br />     ;;;   2.(vlax-invoke-method reg 'Execute str)生成匹配集合    <br />     (progn (setq matchcollect (vlax-invoke-method reg 'Execute str1))<br />       ;;;   3.打印匹配的每个集合元素的value    <br />       (vlax-for match_item matchcollect (setq lst(cons(eval (vlax-get-property match_item 'value))lst)))<br />     )<br />   )<br />   ;;;   4.替换匹配的值  (vlax-invoke-method reg 'Replace str "replace")  生成str副本    <br />   (setq lst(reverse lst))<br />   (if bull<br />   (setq lst(vlax-invoke-method reg 'Replace str1 str3)))<br />   ;;;  ----------------- end 正则表达式方法<br />   (vlax-release-object reg);释放内存<br />   lst<br /> )<br />

muwind

命令: (try-StrRegExp (atxt) "[\\d.]+")
选择的文字 H型钢H446×199×8×12;L=3990 然后.......
选择对象: ("3990" "712" "00" "78" "00" "7199" "00" "446")
cad2010就是这么任性
嘿嘿 atxt如下定义，测试用得比较多
(defun atxt( / get_txt  )
    (if  (setq ss(entsel));选择单个图元
              (setq get_txt (cdr (assoc 1  (entget (car ss)))))
     )
     get_txt
)

tigcat

softbird 发表于 2022-9-12 06:36
请问一下楼主，(?

零宽断言autolisp中不支持。

brainstorm

在2021下 lispsys 值为1 正则表达式得到结果不是预期的结果 大家有试过么

jltx123456

顶,明经 精神传承, 后继有人啊

伪书虫86

明经的搜索的确有点笨

czcxxx

谢谢分享！！！！！！！！！！！！！！

海盗曹

虽然不懂，但是MARK以备学习

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

start4444

LIULISHENG

真强大，支持楼主

zhong879

强，在学习正则