(XD::String:RegExpS)对字符串进行正则表达式匹配查找

XDSoft

1. ;|
   
2. 功能 对字符串进行正则表达式匹配测试.
   
3. 参数:
   
4. pat = 正则表达式模式 ,对应vbs正则表达式的模式(expression)。说明: \\号要用\\\\替代.
   
5. str = 字符串
   
6. key = \"i\" \"g\" \"m\" , \"i\"不区分大小写（Ignorecase）,\"g\"全局匹配（Global）.
   
7.            \"m\"多行模式（Multiline），以上几个关键字可以组合使用，或用 \"\".
   
8. 返回: 返回匹配的字符列表，或无一匹配返回nil
   
9. 
   
10. |;
    
11. (defun XD::String:RegExpS (pat str key / end keys matches x)
    
12.   (if (not *xxvbsexp)
    
13.     (setq *xxvbsexp (vlax-get-or-create-object "VBScript.RegExp"))
    
14.   )
    
15.   (vlax-put *xxvbsexp 'Pattern pat)
    
16.   (if (not key)
    
17.     (setq key "")
    
18.   )
    
19.   (setq key (strcase key))
    
20.   (setq keys '(("I" "IgnoreCase") ("G" "Global")
    
21.          ("M" "Multiline")
    
22.         )
    
23.   )
    
24.   (mapcar
    
25.     '(lambda (x)
    
26.        (if (wcmatch key (strcat "*" (car x) "*"))
    
27.          (vlax-put *xxvbsexp (read (cadr x)) 0)
    
28.          (vlax-put *xxvbsexp (read (cadr x)) -1)
    
29.        )
    
30.      )
    
31.     keys
    
32.   )
    
33.   (setq matches (vlax-invoke *xxvbsexp 'Execute str))
    
34.   (vlax-for x matches (setq end (cons (vla-get-value x) end)))
    
35.   (reverse end)
    
36. )
    
37. 
    

;|<br /> 功能 对字符串进行正则表达式匹配测试. <br /> 参数: <br /> pat = 正则表达式模式 ,对应vbs正则表达式的模式(expression)。说明: \\号要用\\\\替代.<br /> str = 字符串<br /> key = \"i\" \"g\" \"m\" , \"i\"不区分大小写（Ignorecase）,\"g\"全局匹配（Global）.<br />            \"m\"多行模式（Multiline），以上几个关键字可以组合使用，或用 \"\".<br /> 返回: 返回匹配的字符列表，或无一匹配返回nil<br /> <br /> |;<br /> (defun XD::String:RegExpS (pat str key / end keys matches x)<br />   (if (not *xxvbsexp)<br />     (setq *xxvbsexp (vlax-get-or-create-object "VBScript.RegExp"))<br />   )<br />   (vlax-put *xxvbsexp '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 *xxvbsexp (read (cadr x)) 0)<br />          (vlax-put *xxvbsexp (read (cadr x)) -1)<br />        )<br />      )<br />     keys<br />   )<br />   (setq matches (vlax-invoke *xxvbsexp 'Execute str))<br />   (vlax-for x matches (setq end (cons (vla-get-value x) end)))<br />   (reverse end)<br /> )<br /> <br />

梦断江南

被和谐了，到此一游

Free-Lancer

不用 vlax-release-object ?

XDSoft

Free-Lancer 发表于 2013-8-7 18:06
不用 vlax-release-object ?

因为VBS的正则对象要留着，以后执行时候就相当一个全局变量，直接使用了，不用每次匹配时候都要创建对象。

/db_自贡黄明儒_

这个比lispboy提供的那个《正则表达工具》式好多了，准确多了，而且不用安装。{:soso_e120:}