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

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

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

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

'findstr /i "<title>.*</title>" *.%ext%
复制代码

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

@echo off
set "ext=htm"
findstr /i "<title>.*</title>" *.%ext%>a.txt
(
echo @echo off
sed "s/\(.*\):.*<title>\([^<]*\)<.*/ren \"\1\" \"\2.%ext%\"/ig" a.txt
)>a.bat
call a.bat
pause
复制代码

foreach ($a in (Get-ChildItem f:\TXT\aaa\*.htm*  -Recurse) )
{
$整个标题行 = Get-Content $a   |  select-string -list  -Pattern  "<title>.*</title>"  

if  ($整个标题行 -ne $null)
{
	$网页最终标题   = $整个标题行 -replace "^.*<title>",""
	$网页最终标题   = $网页最终标题 -replace "</title>.*$",""
	write-host $a.fullname,"---",$网页最终标题
	#Rename-Item   $a  $网页最终标题
	$整个标题行 = $null
}
else
{
	Write-Warning  $a.fullname

}



}
#powershell好，语法简单，无需转义，特殊字符处理妙，
复制代码