czjt1234

Dim oRegExp, s

s = "domen.tw"

Set oRegExp = New RegExp
oRegExp.Global = True
oRegExp.MultiLine = True
oRegExp.IgnoreCase = False
oRegExp.Pattern = "(d)(o)(m)(e)(n.tw)"
MsgBox oRegExp.Replace(s, "Demon.tw")    'Demon.tw
MsgBox oRegExp.Replace(s, "D$4$3$2$5")   'Demon.tw
复制代码

czjt1234

哦，搞错了，不是一回事

czjt1234

s = "domen.twxxyy"

Set oRegExp = New RegExp
oRegExp.Global = True
oRegExp.MultiLine = True
oRegExp.IgnoreCase = False
oRegExp.Pattern = "(.)\1(.)\2"

For Each oMatch In oRegExp.Execute(s)
    MsgBox oMatch
Next
复制代码