yinui 发表于 2016-8-15 08:51:56

求助正则替换

原始数据：
"13256717.html">第1章 铁掌帮<
"13256718.html">第2章 胡泰来<
"13256719.html">第3章 唐思思<
"13256720.html">第4章 需要帮助的人<
"13256721.html">第5章 难题<
"13256722.html">第6章 济人危难<

求正则替换成
http://www.kanshu8.net/book/12/12759/13256717.html|第1章 铁掌帮
http://www.kanshu8.net/book/12/12759/13256718.html|第2章 胡泰来
http://www.kanshu8.net/book/12/12759/13256719.html|第3章 唐思思
http://www.kanshu8.net/book/12/12759/13256720.html|第4章 需要帮助的人
http://www.kanshu8.net/book/12/12759/13256721.html|第5章 难题
http://www.kanshu8.net/book/12/12759/13256722.html|第6章 济人危难

afan 发表于 2016-8-15 17:19:27

### 友情提示：本脚本由 Au3.REHelper 于 2016/08/15 17:18 自动生成，不保证其正确性，请自行测试 ###
Local $sSource = _
                '"13256717.html">第1章 铁掌帮<' & @CRLF & _
                '"13256718.html">第2章 胡泰来<' & @CRLF & _
                '"13256719.html">第3章 唐思思<' & @CRLF & _
                '"13256720.html">第4章 需要帮助的人<' & @CRLF & _
                '"13256721.html">第5章 难题<' & @CRLF & _
                '"13256722.html">第6章 济人危难<'
;~MsgBox(0, '源字符串', $sSource)
Local $sSRERe = StringRegExpReplace($sSource, '(?m)^"(.+?)">(.+?)<', 'http://www.kanshu8.net/book/12/12759/$1|$2')
MsgBox(0, '替换结果', $sSRERe)

ddrs 发表于 2016-8-15 23:04:54

回复 2# afan


    正则厉害，值得学习
页: [1]
查看完整版本: 求助正则替换