以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何做模糊查找及替换  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104993)

--  作者:zhuya820
--  发布时间:2017/8/9 20:22:00
--  如何做模糊查找及替换
如何做到模糊查找字符串并删除随机字符数之间的特征字符串

【例】
25阿斯蒂芬  lasdfjlldksajflsj


田sdafjldasjfllsdasdaf乐山大佛

顶lafjlsdafjasldkjf吉林大路

【查找】上面:阿斯蒂芬 -* -乐山大佛之间的所有字符并留一个回车符
【找到特征字符】
【删除】
【计算结果】
25阿斯蒂芬
乐山大佛

顶lafjlsdafjasldkjf吉林大路





--  作者:有点甜
--  发布时间:2017/8/9 21:23:00
--  

参考代码

 

Dim str As String = "25阿斯蒂芬  lasdfjlldksajflsj" & vbcrlf & vbcrlf & vbcrlf & "田sdafjldasjfllsdasdaf乐山大佛" & vbcrlf & "lafjlsdafjasldkjf吉林大路"
msgbox(str)
str = System.Text.RegularExpressions.Regex.Replace(str, "(?s)(?<=阿斯蒂芬).*(?=乐山大佛)", vbcrlf)
msgbox(str)