首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

求个简单的正则,把"第6节学会倾听对方的需求 第93页"末尾的"第"和"页"给过滤掉.谢谢!

2013-02-04 
求个简单的正则,把第6节学会倾听对方的需求 第93页末尾的第和页给过滤掉.多谢!!本帖最后由 tejpe616

求个简单的正则,把"第6节学会倾听对方的需求 第93页"末尾的"第"和"页"给过滤掉.多谢!!
本帖最后由 tejpe616818 于 2013-01-27 18:03:28 编辑 如下面所附文字,求个简单的正则,把所有的末尾的"第"和"页"给过滤掉(但是其它部位的"第"等不要去掉).正则完全不会. 
多谢!!


              第一章知己知彼,百战不殆 第207页
              第1节坚持底线,适当妥协 第89页
              第五节避免对未完成的承诺做过多解释 第90页
              第6节学会倾听对方的需求 第93页
              第七节注意基本的礼貌 第96页
              第四节不可忽视的细节 第65页
              第四节博弈和心理战 第128页
              第二节如何弥补短板 第209页

也就是过滤后的效果是:

               第一章知己知彼,百战不殆 207 
               第1节坚持底线,适当妥协 89 
               第五节避免对未完成的承诺做过多解释 90 
               第6节学会倾听对方的需求 93 
               第七节注意基本的礼貌 96 
               第四节不可忽视的细节 65 
               第四节博弈和心理战 128 
               第二节如何弥补短板 209 

[解决办法]

msgbox regreplace(s,"(.*)第([0-9]+)页","$1$2")
 function regreplace(input,p,r) 
set re=new regexp 
re.global=true 
re.ignorecase=true 
re.pattern=p 
regreplace=re.replace(input,r) 
end function

热点排行