[文本处理] 如何用批处理替换HTML文件里指定的链接

batsoldier

<div id="content">
<ul>  
<li><a href="http://News.7mj.com/tj.aspx?a=900&g=698421" target="_blank" class="edde37"> [新闻]公告</a></li>
<li><a href="http://News.7mj.com/tj.aspx?a=900&g=698421" target="_blank" class="edde37">[新闻]公告</a></li>
<li><a href="http://News.7mj.com/tj.aspx?a=900&g=698421" target="_blank" class="edde37">[新闻]公告</a></li>
<li><a href="http://News.7mj.com/tj.aspx?a=900&g=698421" target="_blank" class="edde37">[新闻]公告</a></li>
<li><a href="http://News.7mj.com/tj.aspx?a=900&g=698421" target="_blank">[活动]公告</a></li>
</ul>
</div>

</div>

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

<div id="botton">
<div id="botton1"><a href="http://News.7mj.com/tj.aspx?a=900&g=698421" target="_blank"></a></div>
<div id="botton2"><a href="Cmdrun://News win.close" ></a></div>
</div>
</div>
</div>
</body>
</html>

将HTML文件里的链接http://News.7mj.com/tj.aspx?a=900&g=698421替换为http://sfz.netvideo.com/gb4/icons/player/goto/?apid=0&s=ZZg%2BdPaoCSBuXfnUez71iJN3Aco%3D&atid=0&cid=789&ctid=1092&pid=12&cnid=g
特别是替换的链接里有%号是否要用到转义。

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>
复制代码

batsoldier

谢谢。

再请问下这个HTML文件要怎么指定文件名和路径，比如是修改在D:\1\index.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 处理这个问题应该不错，楼主可以等待其他回答。

batsoldier

非常感谢版主的解答，静等批处理解决方法。

batsoldier

请教有没有批处理解决方法。

老刘1号

你可以自己More或TYPE试试……换行都有问题……

老刘1号

去搞个Sed吧

pcl_test

powershell "((gc 'test.html') -join \"`r`n\").replace('http://News.7mj.com/tj.aspx?a=900&g=698421','http://sfz.netvideo.com/gb4/icons/player/goto/?apid=0&s=ZZg%%2BdPaoCSBuXfnUez71iJN3Aco%%3D&atid=0&cid=789&ctid=1092&pid=12&cnid=g')"
pause
复制代码

CrLf

继续歪楼

mshta http://bathome.net/s/hta/index.html "type('test.html').replace(/http:\/\/News.7mj.com\/tj.aspx\?a=900\&g=698421/g,'http://sfz.netvideo.com/gb4/icons/player/goto/?apid=0&s=ZZg%%2BdPaoCSBuXfnUez71iJN3Aco%%3D&atid=0&cid=789&ctid=1092&pid=12&cnid=g')" | more
pause
复制代码