[已解决]帮忙写个提取内容的正则

ila

文章的内容如下：

document.write(" <p align=center style='FONT-SIZE:13.5pt;font-family:宋体'><b><a name='2_001'>第一卷 天龙群芳 第001章  绝世痴情男</b><p>");

document.write ('　　南国永远灰蒙蒙的天空，总让人心中有一种压抑。那一座座高楼大厦张狂地刺入云霄，更令人在微微窒息中感到自身的渺小。<p>　　西方，一滴残阳静默地，缓缓滑下天幕。<p>　　或许是太过于忙碌，也或许是现代物质文明强大到遮天蔽日，在都市中生活的人们，已经忘记了抬头看一看天空，然而却又很浪漫地选择在节假日到山上看日出日落。<p>　　不知从何时起，大自然无偿赋予人们的财富，人们已经要付出很大的代价才能去享受了。<p>　　高速公路上，车辆呼啸而过，都市的脉络总是鲜活繁忙的。<p>　　一辆开往东莞的客车中，一个俊雅而忧郁的青年男子静静地坐在车厢里，双目忧郁地眺望着天边的那一滴残阳，厚实而棱角分明的之间，时不时发出一声声轻叹。<p>　　青年名叫杨孤鸿，一个刚刚毕业的大学生，暂时谋职于佛山一家微波炉公司。<p>　　又一声轻叹之后，杨孤鸿拿出手机拨几个号码，然而很焦急很期限待地放在耳朵边听着。<p>　　“您好！您所拨打的用户已启用来电提醒功能，你的来电信息我们已……”<p>　　第一百零四次听到这个讨厌的系统提示声音，杨孤鸿失望地放下手机，俊雅的脸上更添了一分忧郁。<p>　　自昨夜到现在，他拨打女友龙玉婷的手机已经一百零四次了，可是对方一直关机，他知道，龙玉婷是存心不理他的。<p>　　昨夜，他又受了龙玉婷的一通骂，在他毕业应聘入公司的短短半个月时间里，龙玉婷已经是跟他说了四次分手，而每一次，他都是用他在大学里练就的文才，文情并茂地将所有凄伤的词语组织成片片柔情，才使得龙玉婷答应不分手。<p>　　他没能到女友所在的城市去工作。<p>　　龙玉婷高中毕业后就闯社会了，而在杨孤鸿大学四年中，他们只在假期里见了两次面。<p>　　为了能够真正和龙玉婷相守，杨孤鸿情愿放下自己很多的追求，到龙玉婷所在的城市去，不管找到一份什么样的工作，他都无所谓，他只想和等了他四年的龙玉婷生活在一起。<p>　　杨孤鸿心中最大的理想其实是当一个职业作家，所以毕业后的工作对他来说根本不重要，只有可以养活自己，只要还有点空闲时间，他就会一边工作一边写作，他完全有自信会有实现理想的一天的。<p>　　这也是他为了跟异地相处的恋人顺利在一起的最佳选择。他不想龙玉婷为了爱情而为他放弃什么，他愿意为了她而努力创造在一起生活的机会，哪怕他自己得放弃很多好工作的机会，也不管为了和恋人在一起而屈就的工作有多辛苦，他都心甘情愿。<p>　　可是，龙玉婷却对他的想法非但没有赞成，反而十分地反感，说他是不是没有了爱情就活不下去，骂他一个大男人整天只会情情爱爱的，像个窝囊废！<p>　　这一个月来，杨孤鸿受到了龙玉婷前所未有的冷酷待，她以前是天天跟自己说情话的，可是现在，非但三四天不给他一条信息，他打她的手机，说不到两句话就被她强行挂掉。<p>　　她一定是另有男人了！<p>　　杨孤鸿终日在这样的担心和伤感中度过，短短一个月中，他便削瘦了十多斤。<p>　　他再也忍受不了那样苦痛的折磨，决心要面见龙玉婷一次，把话说个清楚。<p>　　他今天正好转夜班，他无法请到假，只好利用这白天的时间来回跑几百公里，哪怕只见到龙玉婷几分钟他也非见她不可。<p>　　哪知，龙玉婷昨夜和他吵过之后，一气之下竟然关机到现在，叫他无计可施，他不可自己到了她所在的城市时能否见着她，她连公司名称都没有告诉他，叫他上哪里找去？<p>　　第一百零五次拨手机。<p>　　第一百零六次……<p>　　也不知拨了多少次，杨孤鸿的一颗心彻底沉了下去，然后又涌起了一股悲情，他还是决定到龙玉婷的城市去，独自在那里停留片刻，感伤一阵就回来，然后再也不去想这段感情了，他已太苦太苦了。<p>　　汽车还在高速公路上飞驰着，杨孤鸿闭上双目，将头无力地靠在了车窗上，他为龙玉婷而失眠多日，身心皆已疲惫了。<p>　　为了龙玉婷，在大学里有多少美女向他示好，他却全然不看在眼中，不然，以他的文才和俊雅的外表，就算是要追校花也绝不是件难事，可是，为了守住自己心中的真爱，他却拒绝了那么多的诱惑，竟然在大学里单身了四年。<p>　　他本以为自己的真情可以感天动地，谁知却感动不了龙玉婷半分。<p>　　“你以为爱情可以当饭吃当衣穿吗？你以为我们还是十八九岁的小屁孩吗？”<p>　　龙玉婷多少次在电话里喝骂着他。<p>　　杨孤鸿不得不接受龙玉婷已经变了，就算还没有移情别恋，但她给他的爱（如果还能给的话）已不再是从前那种纯真的爱了。事实上，他已经再也感觉不到她的心灵了。<p>　　他只想弄清楚，她是不是变心了，是不是另有男人了，他不想活在谎言之中。宁愿失去她，也不要被她欺骗。<p>　　想想一个长得还有点姿色的女孩子在社会上混了三年，不可能身边没有男人追求。但是以前他与她感情还好的时候，他爱她还来不及，哪有时间去怀疑她呢！可是现在，他才意识到这些现实的问题，所以他是越想越觉得龙玉婷是变心了，四年的真情，叫他内心如何不受苦痛的煎熬？<p>　　枉我将整颗心交给她，她竟然对我如此的不屑！<p>　　杨孤鸿闭着双目黯然神伤，眼角竟然渗出了泪来。<p>　　一个大男人也如此脆弱？不！一个那么专情，痴情的男人，流出来的泪是多么的珍贵，只可惜，没有人能珍惜这个绝世痴情男人。<p>　　沉默了一个多月的手机终于响了起来，一看来电显示是龙玉婷，杨孤鸿内心便颤抖了起来，接通了手机，龙玉婷的声音顿时冲入他的耳朵中：“你疯了？打我了那么多次电话，你吃饱了没事干是不是？”<p>　　听着龙玉婷怒火冲天的话，杨孤鸿只觉得心口又在滴血：“我现在正往东莞去，我想见见你！”<p>　　龙玉婷似乎有些惊讶，停了一停，愤愤地说：“我今天没空！”<p>　　“你今天不是休假吗？”<p>　　“那我不用休息啊，我明天要上班！”<p>　　“求你别这样可以吗，只要给我五分钟相见就行！”<p>　　杨孤鸿心中痛到了极点。<p>　　龙玉婷哼了一声：“你为什么要这样折磨两个人？好！是你自己说的，见面五分钟！”<p>')

第一行留下“>”和“<”之间的内容，
<p>是分段，用回车代替。
document.write ('  之类的能去掉最好。
先谢谢了。

afan

Local $sSource = ClipGet()
Local $sSRERe = StringRegExpReplace($sSource, '<p>', @CRLF)
$sSRERe = StringRegExpReplace($sSRERe, '(?i)document\.write\h*\(\h*["' & "']|<.+?>|[" & '"' & "']\h*\);?", '')
MsgBox(0, '替换结果', $sSRERe)

ddrs

A大就是厉害。。。。。学习了

ila

afan 发表于 2016-1-7 18:52

谢谢了，很好用，比emeditor那个脚本实用多了。
如果有空，请再帮忙写个提取简介的正则，
只需要内容简介的文字（如果可以，请包括：【内容简介】）。
如下：

document.write(" <p align=center style='FONT-SIZE:13.5pt;font-family:宋体'><b><a name='1_1'><img src=../txt/1.jpg> <font size=2><font color=red>【内容简介】<BR>　本书讲述了身为雷神弟子，同时也是小李飞刀后人的李易尘，纵横都市的故事。<BR>泡妞，装逼一样不能少！ </font></b><p>");

document.write ('　　')

afan

回复 4# ila


    这个直接用2#的代码有问题吗？

ila

回复  ila


    这个直接用2#的代码有问题吗？
afan 发表于 2016-1-8 13:15

发帖前我没有试。。。。


很感谢你。

heroxianf

正则学习