[求助]字符串处理：正则表达式问题

NetBee

前几日看了无痕的，想试试看，却出了问题
Matches 集合总返回是只有一个呢？

2. [code];;;正则表达式字符串.
   
3. ;;功能 对字符串进行正则表达式匹配测试.
   
4. ;;参数: pat = 正则表达式模式 ,对应vbs正则表达式的模式(expression)。说明: \ 号要用　\\ 替代.
   
5. ;;     str = 字符串
   
6. ;;     key = "i" "g" "m" , "i"不区分大小写（Ignorecase）,"g"全局匹配（Global）.”m”多行模式（Multiline），以上几个关键字可以组合使用，或用""
   
7. ;;返回: 返回匹配的字符列表，或无一匹配返回nil
   
8. (defun NBTF_RegExP( pat str key / regex s str1)
   
9.    (setq regex(vlax-create-object "Vbscript.RegExp")) ;引用正则表达式控件
   
10.    (if (wcmatch key "*i*,*I*")
    
11.      (vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写
    
12.      (vlax-put-property regex "IgnoreCase" 1)
    
13.    )
    
14.   (if (wcmatch key "*g*,*G*")
    
15.      (vlax-put-property regex "Global" 1) ;匹配方式，全文字匹配
    
16.      (vlax-put-property regex "Global" 0)
    
17.    )
    
18.   (if (wcmatch key "*m*,*M*")
    
19.      (vlax-put-property regex "Multiline" 1) ;多行模式
    
20.      (vlax-put-property regex "Multiline" 0)
    
21.    )
    
22.    ;;(setq s str)
    
23.    (vlax-put-property regex "Pattern" pat)
    
24.    (setq s(vlax-invoke-method  regex "Execute" str))
    
25.    
    
26.    (VLAX-FOR tmp s
    
27.      (setq str1 (cons (vlax-get-property tmp "value") str1))
    
28.    )
    
29.   (vlax-release-object regex)
    
30.   str1
    
31. )
    
32. 
    

[code];;;正则表达式字符串.<br /> ;;功能 对字符串进行正则表达式匹配测试. <br /> ;;参数: pat = 正则表达式模式 ,对应vbs正则表达式的模式(expression)。说明: \ 号要用　\\ 替代.<br /> ;;     str = 字符串<br /> ;;     key = "i" "g" "m" , "i"不区分大小写（Ignorecase）,"g"全局匹配（Global）.”m”多行模式（Multiline），以上几个关键字可以组合使用，或用""<br /> ;;返回: 返回匹配的字符列表，或无一匹配返回nil<br /> (defun NBTF_RegExP( pat str key / regex s str1)<br />    (setq regex(vlax-create-object "Vbscript.RegExp")) ;引用正则表达式控件<br />    (if (wcmatch key "*i*,*I*")<br />      (vlax-put-property regex "IgnoreCase" 0) ;不忽略大小写<br />      (vlax-put-property regex "IgnoreCase" 1)<br />    )<br />   (if (wcmatch key "*g*,*G*")<br />      (vlax-put-property regex "Global" 1) ;匹配方式，全文字匹配<br />      (vlax-put-property regex "Global" 0)<br />    )<br />   (if (wcmatch key "*m*,*M*")<br />      (vlax-put-property regex "Multiline" 1) ;多行模式<br />      (vlax-put-property regex "Multiline" 0)<br />    )<br />    ;;(setq s str)<br />    (vlax-put-property regex "Pattern" pat)<br />    (setq s(vlax-invoke-method  regex "Execute" str))<br />    <br />    (VLAX-FOR tmp s<br />      (setq str1 (cons (vlax-get-property tmp "value") str1))<br />    )<br />   (vlax-release-object regex)<br />   str1<br /> ) <br /> <br />

[/code]_$ (setq a(NBTF_REGEXP"[+|-]?\\d*\\.?\\d+(e[+|-]*\\d+)*" "abdfsdf-1e4-31++3485..3.1a.38 3..14f-.86e-1d3.a4f8.48" ""))
("-1e4")
_$
_$

无痕

"Global"　属性！

我为了方便，把ｇｉ等属性定义翻转了．

按你写的，加"g"就对了．

命令: (setq a(NBTF_REGEXP"[+|-]?\\d*\\.?\\d+(e[+|-]*\\d+)*"
"abdfsdf-1e4-31++3485..3.1a.38 3..14f-.86e-1d3.a4f8.48" "g"))
("8.48" "4" "3" "-.86e-1" ".14" "3" ".38" ".1" ".3" "+3485" "-31" "-1e4")

无痕

好像应该再ｒｅｖｅｒｓｅ一下：）

阿霸jun

好东西，学习了。