- 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
复制代码
|