本帖最后由 Huiseyu 于 2016-9-8 06:52 编辑 先上个图, 因为这题花了我不少时间额...另外你"希望文本内容"末尾是不是少了个逗号,和我的不一样,,,
#include'array.au3'
$str = clipget() ;读取字符串
msgbox(4096 ,'原文本内容' ,$str) ;显示字符串
$FindList = stringregexp($str,'(.*\.\d+)\s',3);
global $xiwang
for $i = 0 to ubound($FindList) - 1
stringregexpreplace($str,$FindList[$i] ,$FindList[$i])
$Single_find = stringregexp($str,$FindList[$i]&'(.*)',3)
$result = _arraytostring($Single_find,'') ;合并后者
$xiwang &= $FindList[$i]&$result&@crlf
next;
msgbox(4096 ,'希望文本内容',stringregexpreplace($xiwang ,'(?m)(^.*\r\n)(?=(?:^.*\r\n)*\1)',''))
;~ 关于删除重复行,搜索了无数个贴(有点跑题..),最终引用
;~ http://www.autoitx.com/forum.php ... =%D6%D8%B8%B4%D0%D0
;~ 稍作修改 |