[已解决]正则表达式依次显示每次匹配值

爱疯

Sub Test1()
    Dim a
    Dim RegEx As
   Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True
    RegEx.Pattern = "(d)(\w+?)"
    a = RegEx.Replace("dxxxdxxxd", "")
    MsgBox a
    Set RegEx = Nothing
End
   Sub

还是它。这里一共发生过两次匹配。请问怎样依次显示每1次匹配的字符串。

即输出如下效果：

依次显示每1次匹配的字符串

谢谢！

PS：此代码无此要求的效果，请帮忙看，如何修改。解决这个，以后就好学习了[em04]

[此贴子已经被作者于2009-12-15 22:38:38编辑过]

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-16 08:22

Sub Test1()
    Dim a, b, strB
    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True
    RegEx.Pattern = "(d)(\w+?)"
    Set a = RegEx.Execute("dxxxdaxxd")
    For Each b In a
        strB = strB & b & ","
    Next b
    strB = Left(strB, Len(strB) - 1)
    MsgBox strB
    Set RegEx = Nothing
End Sub

[此贴子已经被作者于2009-12-16 8:22:43编辑过]

跳转到最佳答案楼层

真永远

[em01][em01]

amulee

Sub Test1()
    Dim a, b, strB
    Dim RegEx As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    RegEx.Global = True
    RegEx.Pattern = "(d)(\w+?)"
    Set a = RegEx.Execute("dxxxdaxxd")
    For Each b In a
        strB = strB & b & ","
    Next b
    strB = Left(strB, Len(strB) - 1)
    MsgBox strB
    Set RegEx = Nothing
End Sub

[此贴子已经被作者于2009-12-16 8:22:43编辑过]

爱疯

谢谢阿木！

这时我看到a是Variant/Object/IMatchColle，a是什么呀？

amulee

是Execute方法执行后返回的一个对象

yuhe0008

爱疯，你需要的是一个正则表达式的工具

爱疯

QUOTE:

以下是引用amulee在2009-12-16 8:52:00的发言：
是Execute方法执行后返回的一个对象

这个对象，是一维数组？

爱疯

QUOTE:

以下是引用yuhe0008在2009-12-16 8:55:00的发言：

爱疯，你需要的是一个正则表达式的工具

不知怎么好，不过，只是找些最简单的先看[em04]

amulee

QUOTE:

以下是引用爱疯在2009-12-16 9:50:00的发言：

这个对象，是一维数组？

不是数组。你可以看下本地窗口呀。

爱疯

QUOTE:

以下是引用amulee在2009-12-16 10:02:00的发言：

不是数组。你可以看下本地窗口呀。

对哦，忘了

去看了。。。

象字典（item），但不知道是啥，百度也没有，这是什么对象呀，有没有关于它的传说呀[em11]