Foxtable(狐表)用户栏目专家坐堂 → 如何做模糊查找及替换


  共有1461人关注过本帖树形打印复制链接

主题:如何做模糊查找及替换

帅哥哟,离线,有人找我吗?
zhuya820
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:243 积分:1819 威望:0 精华:0 注册:2016/1/21 12:44:00
如何做模糊查找及替换  发帖心情 Post By:2017/8/9 20:22:00 [只看该作者]

如何做到模糊查找字符串并删除随机字符数之间的特征字符串

【例】
25阿斯蒂芬  lasdfjlldksajflsj


田sdafjldasjfllsdasdaf乐山大佛

顶lafjlsdafjasldkjf吉林大路

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

顶lafjlsdafjasldkjf吉林大路





 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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)


 回到顶部