jyswjjgdwtdtj 当前离线
中尉
/(.)\1(.)\2/复制代码
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复制代码
TOP
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复制代码
bangyou 当前离线
列兵