vba正则表达式
答案:1 悬赏:50
解决时间 2021-01-15 00:59
- 提问者网友：流星是天使的眼泪
- 2021-01-14 09:29
vba正则表达式
最佳答案
- 二级知识专家网友：千夜
- 2021-01-14 09:48
正则表达式进行模糊替换的例子代码：
Sub TestReplace()
Dim ss, re, rv
ss = "12苏5a中国人民一二d三"& vbNewLine &"egg其d中国人民四a1五六"& vbNewLine&"凡dsf事都美国纽约AAFa分"& vbNewLine&"发的事都美国纽约A分Fa分" & vbNewLine
Set re = New RegExp
re.Pattern = "^S+(中国人民|美国纽约)S+$"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
rv = re.Replace(ss, "$1")
MsgBox rv
End Sub
追问：额
Sub TestReplace()
Dim ss, re, rv
ss = "12苏5a中国人民一二d三"& vbNewLine &"egg其d中国人民四a1五六"& vbNewLine&"凡dsf事都美国纽约AAFa分"& vbNewLine&"发的事都美国纽约A分Fa分" & vbNewLine
Set re = New RegExp
re.Pattern = "^S+(中国人民|美国纽约)S+$"
re.Global = True
re.IgnoreCase = True
re.MultiLine = True
rv = re.Replace(ss, "$1")
MsgBox rv
End Sub
追问：额
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息