523066680

Perl，输出结果没有核对。

open READ, "<:raw", "src.txt" or warn "$!";

our $all;
my $a = quotemeta('http://News.7mj.com/tj.aspx?a=900&g=698421');
my $b = 'http://sfz.netvideo.com/gb4/icons/player/goto/?apid=0&'.
        's=ZZg%2BdPaoCSBuXfnUez71iJN3Aco%3D&atid=0&cid=789&ctid'.
        '=1092&pid=12&cnid=g';

{
    local $/ = undef;
    $all = <READ>;
    $all =~ s/$a/$b/gi;
}

close READ;

open WRT, ">:raw", "dst.txt";
print WRT $all;
close WRT;
复制代码

<div id="content">
<ul>  
<li><a href="http://sfz.netvideo.com/gb4/icons/player/goto/?apid=0&s=ZZg%2BdPaoCSBuXfnUez71iJN3Aco%3D&atid=0&cid=789&ctid=1092&pid=12&cnid=g" target="_blank" class="edde37"> [新闻]公告</a></li>
<li><a href="http://sfz.netvideo.com/gb4/icons/player/goto/?apid=0&s=ZZg%2BdPaoCSBuXfnUez71iJN3Aco%3D&atid=0&cid=789&ctid=1092&pid=12&cnid=g" target="_blank" class="edde37">[新闻]公告</a></li>
<li><a href="http://sfz.netvideo.com/gb4/icons/player/goto/?apid=0&s=ZZg%2BdPaoCSBuXfnUez71iJN3Aco%3D&atid=0&cid=789&ctid=1092&pid=12&cnid=g" target="_blank" class="edde37">[新闻]公告</a></li>
<li><a href="http://sfz.netvideo.com/gb4/icons/player/goto/?apid=0&s=ZZg%2BdPaoCSBuXfnUez71iJN3Aco%3D&atid=0&cid=789&ctid=1092&pid=12&cnid=g" target="_blank" class="edde37">[新闻]公告</a></li>
<li><a href="http://sfz.netvideo.com/gb4/icons/player/goto/?apid=0&s=ZZg%2BdPaoCSBuXfnUez71iJN3Aco%3D&atid=0&cid=789&ctid=1092&pid=12&cnid=g" target="_blank">[活动]公告</a></li>
</ul>
</div>

</div>

<!--右边开始-->
<div id="right">

<div id="botton">
<div id="botton1"><a href="http://sfz.netvideo.com/gb4/icons/player/goto/?apid=0&s=ZZg%2BdPaoCSBuXfnUez71iJN3Aco%3D&atid=0&cid=789&ctid=1092&pid=12&cnid=g" target="_blank"></a></div>
<div id="botton2"><a href="Cmdrun://News win.close" ></a></div>
</div>
</div>
</div>
</body>
</html>
复制代码

523066680

回复 3# batsoldier

读取文件的部分：
    open READ, "<:raw", "src.txt" or warn "$!";
改为
    open READ, "<:raw", 'D:\1\index.html' or warn "$!";

输出文件的部分：
    open WRT, ">:raw", "dst.txt";
改为
    open WRT, ">:raw", 'D:\1\index.html';

注意代码是 Perl 语言的，不是批处理。
sed 处理这个问题应该不错，楼主可以等待其他回答。