### 友情提示:本脚本由 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)
|