[已解决]批处理怎样根据网页文件<title>间的标题重命名文件？

huzhiqiang91

我有许多以数字开头的htm文件，如35003.htm，网页的内容是一些文章，是有标题的，如“如何保养电脑与维护”等，
但是网页文件的数字标题对我找寻相关文章很不利，后来我发现在htm文件的源码里，文章的题目都在<title></title>之间，我现在想提取<title></title>之间的文章名并以此重命名该文件，不知代码该怎么写
备注：其实我自己尝试写过，但提取的都带<title></title>，我不想要，但是自己造诣不深搞不定，求高手。注意：我有很多很多这样的文件，希望代码有通用性，谢谢

terse

想看看你是怎么提取的

Python

请把35003.htm压缩一下传上来看看
还有把你的代码也贴出来
我可以帮忙修改

huzhiqiang91

这是我写的代码，

1. @echo off
   
2. findstr "<title>" "*.htm" >list.txt
   
3. for /f "delims=: tokens=1,2" %%a (list.txt) do (
   
4. ren F:\test\%%a %%b)
   
5. pause

复制代码

这是网页文件，用记事本打开看源码就找到<title></title>间的文章名了，我换了个文件，形式是一样的，内容不一样，
备注：有的文章名有空格或是特殊字符

terse

路径自己补上  特殊字符没测试 空格应该没问题
n参数这里是多余了

1. @echo off
   
2. set ext=htm
   
3. for /f "tokens=1,3 delims=:<>" %%a in ('findstr /i "<title>.*</title>" *.%ext%') do ren "%%a" "%%b.%ext%"
   
4. pause

复制代码

huzhiqiang91

问题解决了，谢谢terse ，不过我有一个问题

1. for /f "tokens=1,3 delims=:<>" %%a in ('findstr /i "<title>.*</title>" *.%ext%') do ren "%%a" "%%b.%ext%

复制代码

上面这段代码为什么把

1. 'findstr /i "<title>.*</title>" *.%ext%

复制代码

的结果：

1. 33428.htm:<title>windows IE浏览器精典技巧两则_WindowsXP_脚本之家</title>

复制代码

分成了4段，而不是五段，难道33428.htm:<title>冒号和"<"之间无字符段就不算吗，换句话说，是不是在两个分隔符之间无字符是不是就不分割呢、

huzhiqiang91

刚才又大规模试了一下，发现有特殊字符的不行，不过已经解决很大问题了，我觉得在处理前把含有的特殊字符找出来，替换掉应该可以，自己试试吧，再次感谢

CrLf

批处理吧某人的办法是这样，需要用第三方 sed：

1. @echo off
   
2. set "ext=htm"
   
3. findstr /i "<title>.*</title>" *.%ext%>a.txt
   
4. (
   
5. echo @echo off
   
6. sed "s/\(.*\):.*<title>\([^<]*\)<.*/ren "\1" "\2.%ext%"/ig" a.txt
   
7. )>a.bat
   
8. call a.bat
   
9. pause

复制代码

PowerShell

我也来凑热闹了 用时，别忘了把f：\txt那块修改了，并把#给取消掉。并备份下源文件

1. 
   
2. foreach ($a in (Get-ChildItem f:\TXT\aaa\*.htm*  -Recurse) )
   
3. {
   
4. $整个标题行 = Get-Content $a   |  select-string -list  -Pattern  "<title>.*</title>"  
   
5. 
   
6. if  ($整个标题行 -ne $null)
   
7. {
   
8.         $网页最终标题   = $整个标题行 -replace "^.*<title>",""
   
9.         $网页最终标题   = $网页最终标题 -replace "</title>.*$",""
   
10.         write-host $a.fullname,"---",$网页最终标题
    
11.         #Rename-Item   $a  $网页最终标题
    
12.         $整个标题行 = $null
    
13. }
    
14. else
    
15. {
    
16.         Write-Warning  $a.fullname
    
17. 
    
18. }
    
19. 
    
20. 
    
21. 
    
22. }
    
23. #powershell好，语法简单，无需转义，特殊字符处理妙，
    
24. 
    
25. 
    

复制代码