[文件操作] 批处理怎样根据文本列表重命名论文文件（列表内容包含原文件名）

$path = 'E:\Test\';                #存放pdf文件的目录路径
$arr  = gc -Literal ($path + '参考文献.txt') -ReadCount 0;
$reg  = '[' + ([IO.Path]::GetInvalidFileNameChars() -join '').Replace('\','\\') + ']';
forEach( $f In (dir -Literal $path -filter *.pdf | ?{$_ -is [IO.FileInfo]}) ){
    $name = [regex]::Escape($f.BaseName);           #转义特殊字符
    if( $m = $arr -match $name ){
        $newFile = $m[0].Trim() -replace $reg, '';  #删除非法文件名字符
        $newFile = $path + $newFile + $f.Extension;
        move -Literal $f.fullName -Dest $newFile -Force -WhatIf;
    }
}
复制代码

Microsoft Windows XP [版本 5.1.2600]
(C) 版权所有 1985-2001 Microsoft Corp.

C:\Documents and Settings\Administrator>powershell
'powershell' 不是内部或外部命令，也不是可运行的程序
或批处理文件。

C:\Documents and Settings\Administrator>powershell
'powershell' 不是内部或外部命令，也不是可运行的程序
或批处理文件。

C:\Documents and Settings\Administrator>
复制代码

@echo off
for /f "delims=" %%i in ('dir /s /b *.pdf') do (
	call :renPDF "%%~i"
)
echo 重命名完成
pause&exit

:renPDF
setlocal enabledelayedexpansion
for /f "delims=" %%i in (pdfInfo.txt) do (
	set "line=%%i"
	set "newLine=!line:%~n1=!"
	if not "!newLine!"=="!line!" (
		echo 查找PDF: "%~n1"
		echo 找到TXT: "!line!"
		set "line=!line::=.!"
		set "line=!line:/=#!"
		echo 执行重命名："%~1" --^> "!line!"
		rename "%~1" "!line!"
		echo ------------------------------------------------------------
		setlocal disabledelayedexpansion
		goto :eof
	)
)
setlocal disabledelayedexpansion
echo TXT未找到："%~nx1"
echo ------------------------------------------------------------
goto :eof
复制代码