关于正则表达式的问题

Lisphk

看了论坛很多资料，知道正则表达式功能很强大，也试着用晓东函数库的函数自己练习下，今天突然想起，我们可以很容易的找到匹配的文字，可是能否也找到这个匹配的文字在字符串具体的哪个位置吗？

比如，str=晓东CAD， 匹配搜索查找 CA, 能同时也返回C开始的位置吗？

Love-Lisp

参看如下函数就知道如何得到位置了

1. ;参数 string = 字串
   
2. ;;     Express = 正则表达式
   
3. ;;     key = 字母 i I m M g G的组合字串
   
4. ;;          i/I = 忽略大小写 m/M = 多行搜索 g/G = 全文搜索
   
5. ;;测试 (RegExSearch "晓东CAD" "CA" "g") 返回 ((2 2 "CA"))
   
6. (defun RegExSearch (STRING EXPRESS KEY / REGEX S POS LEN STR L)
   
7.   (setq RegEx (vlax-create-object "Vbscript.RegExp"))
   
8.   (if (and key (WCMATCH key "*g*,*G*"))
   
9.     (vlax-put-property regex "Global" 1)
   
10.     (vlax-put-property regex "Global" 0)
    
11.   )
    
12.   (if (and key (WCMATCH key "*i*,*I*"))
    
13.     (vlax-put-property regex "IgnoreCase" 1)
    
14.     (vlax-put-property regex "IgnoreCase" 0)
    
15.   )
    
16.   (if (and key (WCMATCH key "*m*,*M*"))
    
17.     (vlax-put-property regex "Multiline" 1)
    
18.     (vlax-put-property regex "Multiline" 0)
    
19.   )
    
20.   (vlax-put-property regex "Pattern" ExPress)
    
21.   (setq s (vlax-invoke regex 'Execute string))
    
22.   (vlax-for o s
    
23.     (setq pos (vlax-get-property o "FirstIndex")
    
24.           len (vlax-get-property o "Length")
    
25.           str (vlax-get-property o "value")
    
26.     )
    
27.     (setq l (cons (list pos len str) l))
    
28.     (princ (strcat "\n文字位置 = "
    
29.                    (itoa pos)
    
30.                    "  文字长度 = "
    
31.                    (itoa len)
    
32.                    "  值 = \""
    
33.                    str
    
34.                    "\""
    
35.            )
    
36.     )
    
37.   )
    
38.   (vlax-release-object RegEx)
    
39.   (reverse l)
    
40. )

;参数 string = 字串<br /> ;;     Express = 正则表达式<br /> ;;     key = 字母 i I m M g G的组合字串<br /> ;;          i/I = 忽略大小写 m/M = 多行搜索 g/G = 全文搜索<br /> ;;测试 (RegExSearch "晓东CAD" "CA" "g") 返回 ((2 2 "CA"))<br /> (defun RegExSearch (STRING EXPRESS KEY / REGEX S POS LEN STR L)<br />   (setq RegEx (vlax-create-object "Vbscript.RegExp"))<br />   (if (and key (WCMATCH key "*g*,*G*"))<br />     (vlax-put-property regex "Global" 1)<br />     (vlax-put-property regex "Global" 0)<br />   )<br />   (if (and key (WCMATCH key "*i*,*I*"))<br />     (vlax-put-property regex "IgnoreCase" 1)<br />     (vlax-put-property regex "IgnoreCase" 0)<br />   )<br />   (if (and key (WCMATCH key "*m*,*M*"))<br />     (vlax-put-property regex "Multiline" 1)<br />     (vlax-put-property regex "Multiline" 0)<br />   )<br />   (vlax-put-property regex "Pattern" ExPress)<br />   (setq s (vlax-invoke regex 'Execute string))<br />   (vlax-for o s<br />     (setq pos (vlax-get-property o "FirstIndex")<br />           len (vlax-get-property o "Length")<br />           str (vlax-get-property o "value")<br />     )<br />     (setq l (cons (list pos len str) l))<br />     (princ (strcat "\n文字位置 = "<br />                    (itoa pos)<br />                    "  文字长度 = "<br />                    (itoa len)<br />                    "  值 = \""<br />                    str<br />                    "\""<br />            )<br />     )<br />   )<br />   (vlax-release-object RegEx)<br />   (reverse l)<br /> )

Free-Lancer

_$ (vl-string-search "CA" "晓东CAD"  0)
4
_$
汉字是两个字节