如何用批处理替换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，输出结果没有核对。

1. open READ, "<:raw", "src.txt" or warn "$!";
   
2. 
   
3. our $all;
   
4. my $a = quotemeta('http://News.7mj.com/tj.aspx?a=900&g=698421');
   
5. my $b = 'http://sfz.netvideo.com/gb4/icons/player/goto/?apid=0&'.
   
6.         's=ZZg%2BdPaoCSBuXfnUez71iJN3Aco%3D&atid=0&cid=789&ctid'.
   
7.         '=1092&pid=12&cnid=g';
   
8. 
   
9. {
   
10.     local $/ = undef;
    
11.     $all = <READ>;
    
12.     $all =~ s/$a/$b/gi;
    
13. }
    
14. 
    
15. close READ;
    
16. 
    
17. open WRT, ">:raw", "dst.txt";
    
18. print WRT $all;
    
19. close WRT;
    

复制代码

1. <div id="content">
   
2. <ul>  
   
3. <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>
   
4. <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>
   
5. <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>
   
6. <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>
   
7. <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>
   
8. </ul>
   
9. </div>
   
10. 
    
11. </div>
    
12. 
    
13. <!--右边开始-->
    
14. <div id="right">
    
15. 
    
16. <div id="botton">
    
17. <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>
    
18. <div id="botton2"><a href="Cmdrun://News win.close" ></a></div>
    
19. </div>
    
20. </div>
    
21. </div>
    
22. </body>
    
23. </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

1. 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')"
   
2. pause

复制代码

CrLf

继续歪楼

1. 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
   
2. pause

复制代码