XD::String:RegExpS赋值给保护符号end

brainstorm

这是lisp开源函数库的，把end替换一下吧，否则出现赋值给保护符号end

虽然现在有了xdrx_string_regexps函数

另外安装API后增加了很多test开头的命令，消除一下

1. (defun XD::String:RegExpS (pat str key / end keys matches x)
   
2. (if (not *xxvb**p)
   
3.    (setq *xxvb**p (vlax-get-or-create-object "VBScript.RegExp"))
   
4. )
   
5. (vlax-put *xxvb**p 'Pattern pat)
   
6. (if (not key)
   
7.    (setq key "")
   
8. )
   
9. (setq key (strcase key))
   
10. (setq keys '(("I" "IgnoreCase") ("G" "Global")
    
11.   ("M" "Multiline")
    
12. )
    
13. )
    
14. (mapcar
    
15.    '(lambda (x)
    
16.       (if (wcmatch key (strcat "*" (car x) "*"))
    
17.   (vlax-put *xxvb**p (read (cadr x)) 0)
    
18.   (vlax-put *xxvb**p (read (cadr x)) -1)
    
19.       )
    
20.     )
    
21.    keys
    
22. )
    
23. (setq matches (vlax-invoke *xxvb**p 'Execute str))
    
24. (vlax-for x matches (setq end (cons (vla-get-value x) end)))
    
25. (reverse end)
    
26. )
    

(defun <font color=\"#000000\">XD::String:RegExpS</font> (pat str key / end keys matches x)<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 /> (setq matches (vlax-invoke *xxvb**p 'Execute str))<br /> (vlax-for x matches (setq end (cons (vla-get-value x) end)))<br /> (reverse end)<br /> )<br />