请教一下前辈们,这个vlax对象怎么取得

CAD新军

1. _$ (vlax-dump-object matches)
   
2. ; IMatches: nil
   
3. ;特性值:
   
4. ;   Count (RO) = 4
   
5. ;   Item (RO) = ...不显示带索引的内容...
   
6. ;   _NewEnum (RO) = #<IUnknown 000000004dda9ca0>
   
7. T
   
8. _$

复制代码

我现在在编的一个小脚本,大量代码需要用到正则表达式,网上找了几个vbs实现的,用着都发现有些小问题,想改进一下时,第一次碰vlax对象,遇到了问题.

一个正则返回对象 matches在VBS中时这样一个Array : [ Matches(0) Matches(1) .... Matches (n) ]
而每个Matches(n) 也是一个Array ,形如 [ FirstIndex Value Submatches ]

VBS里面就直接 Matches(3) 就能取到第4个。而我找到的函数都是用 (vlax-for m matches (vlax-get m 'Value)) 来取得各个值的,我想问有没有类似(nth n list)的方法,直接取得某个Array里面的值呢?

我其实用的是Submatches数组里面的值，但问题是 vlax-for 遍历 submatches时，遇到空的数组会直接出错终止循环。比如这个正则表达式:
(1)(a)?(2)?
当匹配 1a2时, 三个捕获都会得到, 1,a,2
但匹配 12时,因为第二个捕获没有命中,只会返回 1,而无视后面的捕获,这就出问题了



精简出来的复现代码:

1. (defun RegExpSet (pattern / regex)
   
2.   (setq regex   (vlax-create-object "VBScript.RegExp")  )
   
3.     (vlax-put regex 'Pattern pattern)
   
4.     (vlax-put regex 'IgnoreCase acTrue)
   
5.     (vlax-put regex 'Global acTrue)
   
6.   regex
   
7. )
   
8. 
   
9. (setq slist nil
   
10.          str "13"); ############这里改成"1a3"就会正常不出错误
    
11. (setq ms (vlax-invoke (RegExpSet "([0-9])([abc])?([0-9])?" ) 'Execute str))
    
12. (vlax-for m ms (setq jj m))
    
13. ; 这句其实就是标题的问题,我只想要ms(0),因为不会直接读取 ms(0)只好用vlax-for
    
14. ;这里组里只有一个值,用vlax-for的办法读出来,记成 jj, 现在jj 相当于 Matches(0)
    
15. (setq sub (vlax-get jj 'SubMatches))
    
16. ; sub 就相当于 Matches(0).SubMatches, 这也是一个Array,包含所有捕获字符串分组
    
17. (vlax-for s sub (setq slist (cons s slist)))
    
18. ; 获得每个submatches的值,合并到slist 表中
    
19. ;同理这也是标题中的问题,我只想要某一段捕获比如submatches(2),但又只好用vlax-for
    
20. 
    
21. ;;直接粘贴的话,运行到上面一句会出错...str改成1a3就能整体完成
    
22. 
    
23. (princ slist);可以看到用"13"去匹配,会先是1然后就没有了,如果用"1a3"去匹配会正确返回1 a 3
    
24. (vlax-dump-object sub);这里就是开头的情况了

(defun RegExpSet (pattern / regex)<br />   (setq regex   (vlax-create-object "VBScript.RegExp")  )<br />     (vlax-put regex 'Pattern pattern)<br />     (vlax-put regex 'IgnoreCase acTrue)<br />     (vlax-put regex 'Global acTrue)<br />   regex<br /> )<br /> <br /> (setq slist nil<br />          str "13"); ############这里改成"1a3"就会正常不出错误<br /> (setq ms (vlax-invoke (RegExpSet "([0-9])([abc])?([0-9])?" ) 'Execute str))<br /> (vlax-for m ms (setq jj m))<br /> ; 这句其实就是标题的问题,我只想要ms(0),因为不会直接读取 ms(0)只好用vlax-for<br /> ;这里组里只有一个值,用vlax-for的办法读出来,记成 jj, 现在jj 相当于 Matches(0)<br /> (setq sub (vlax-get jj 'SubMatches))<br /> ; sub 就相当于 Matches(0).SubMatches, 这也是一个Array,包含所有捕获字符串分组<br /> (vlax-for s sub (setq slist (cons s slist)))<br /> ; 获得每个submatches的值,合并到slist 表中<br /> ;同理这也是标题中的问题,我只想要某一段捕获比如submatches(2),但又只好用vlax-for<br /> <br /> ;;直接粘贴的话,运行到上面一句会出错...str改成1a3就能整体完成<br /> <br /> (princ slist);可以看到用"13"去匹配,会先是1然后就没有了,如果用"1a3"去匹配会正确返回1 a 3<br /> (vlax-dump-object sub);这里就是开头的情况了