关于正则表达式中match的firstindex属性

lunkuo

firstindex属性，怎么理解这个属性，
字符位置明明在5，怎么结果却是4，就是比实际位置靠前1位

ovxyz

很多公式和函数都是从0开始的。
跟数组差不多一个道理吧。
你如你定义a（3）
实际的数组分别是a(0),a(1),a(2)

swl4561255

返回值是从0开始的，第1项为0，第二项为1。。。

lunkuo

谢谢两位解答

AVEL

FirstIndex - 匹配字符串在整个字符串中的位置，值从0开始。

AVEL

1. Option Explicit
   
2. Sub match()
   
3.     Dim reg As Object
   
4.     Dim s As String
   
5.     Dim i As Byte
   
6.     Dim match As Object, matches As Object
   
7.     Set reg = CreateObject("vbscript.regexp")
   
8.     s = "a11b22c32d43e"
   
9.     i = 1
   
10.     With reg
    
11.         .Global = True
    
12.         .Pattern = "\d+"
    
13.         Set matches = .Execute(s)
    
14.     End With
    
15.     For Each match In matches
    
16.         MsgBox "matches集合中第" & i & "个元素在字符串中" & vbCrLf _
    
17.              & "位置：" & match.firstindex & vbCrLf _
    
18.              & "长度为：" & match.Length & vbCrLf _
    
19.              & "值为：" & match.Value
    
20.         i = i + 1
    
21.     Next
    
22. End Sub

复制代码

参考这个 熟悉一下好了

lunkuo

AVEL 发表于 2012-8-18 17:21
参考这个 熟悉一下好了

谢谢，回去我好好看看

cjc209

AVEL 发表于 2012-8-18 17:21
参考这个 熟悉一下好了

老师 能不能写一个把正则匹配出来多组中   原字符中只替换指定的第几处的字符 其余匹配出来的不替换的vb代码  让我学习一下   比如  ababab函数abab   匹配ab为一组 只想把匹配出来的第3组ab 替换为学习  怎么写代码？ 提取第几组的方法 我可以搞定 就是替换 我只能全部替换 部分替换不知道怎么写代码  谢谢老师指点一下 给个代码学习学习

ykqrs

1. Sub qq()
   
2. Dim reg As Object, s$, mh, r1%, r2%
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. s = "ababab函数abab"
   
5. reg.Pattern = "ab"
   
6. reg.Global = True
   
7. Set mh = reg.Execute(s)
   
8. If mh.Count > 2 Then
   
9. r1 = mh(2).firstindex: r2 = mh(2).Length
   
10. s = Application.Replace(s, r1 + 1, r2, "学习")
    
11. End If
    
12. MsgBox s
    
13. End Sub

复制代码

cjc209

谢谢 老师真棒 原来这样的