Dim Str As String = "搜索发现[回车符]复星妈咪宝贝_全新升级,爸妈必看?官方入口?[回车符]复星妈咪宝贝_186种疾病保障,少儿特疾/罕见疾病加倍赔,可选重疾/恶肿多次赔付,买保险上慧择,纳斯达克上市品牌,更安心!免费定制保险方案[回车符]复星联合妈咪宝贝_买前要看的3个坑[回车符]重疾险怎么买划算,今天聊聊复星联合妈咪宝贝,帮你解读重疾险,节省40%保费,不花冤枉钱.猪保保公众号,一个中立?客观?公正,评测保险的公众号![回车符]关于复星妈咪保贝--看这篇文章就够了[回车符]重疾险怎么买划算,今天和你聊聊复星妈咪保贝,帮你解读重疾险,节省40%保费,不花冤枉钱.猪保保公众号,一个中立?客观?公正,评测保险的公众号![回车符]哪里可以买复星妈咪宝贝 2021爆款少儿重疾险 95%的爸妈选择投保![回车符]哪里可以买复星妈咪宝贝 这款儿童重疾险保173种疾病,重大疾病二次赔付;少儿特定及罕见疾病,赔付高达300万;投/被保人双豁免.保费更便宜,保障更全面,性价比超高![回车符]广告[回车符]词条标签[回车符]汉字 数字 词汇 汉语 量词[回车符]3分钟送屠龙,10分钟送开天,这爆率,上线两小时直接霸服![回车符]儿童口罩3层熔喷透气[回车符]百[回车符]百[回车符]百科专题更多[回车符][回车符]二十四节气之谷雨[回车符][回车符]世界帕金森病日[回车符][回车符]"
Dim Str1 As String
str1 = "(?<=词条标签).(?=百科专题)" '这段只能去除，可不可以保留这一段，而不是去一头一尾，直接截取以上段落之间的文字
Str = System.Text.Regularexpressions.Regex.Replace(Str,Str1,"")
MessageBox.Show(str)
谢谢！大神 ！
[此贴子已经被作者于2021/6/5 19:21:02编辑过]
加好友 
发短信
Post By：2021/6/5 19:20:00 [只看该作者]
