@echo off
echo 测试环境CMD@WinXP sp2,如果使用在其他系统请先测试!
echo 执行时需要进行字符串查找,请不要对相关文件进行改动
echo.
echo 执行中...请耐心等待
echo ----------------------------执行信息----------------------------
For /f %%a in ('dir /b *.ps') do call :name "%%a"
echo ----------------------------------------------------------------
echo 执行完毕,按任意键退出
pause >nul
exit
:name
set name=%~n1
if not [%name:~0,1%]==[2] goto :eof
for /f "tokens=2 delims=. " %%i in ('findstr pdn.pdf$ %name%.ps') do set file=%%i.xml
set xmlpath="%appdata%\NewspaperDirect\PressReader\queue\%file%"
for /F "tokens=*" %%c in ('type %xmlpath% ^|find "<title>"') do set paper="%%c"
set paper=%paper:~8,-9%
set paper=%paper: = %
set name=%paper% %name:~0,4%-%name:~4,2%-%name:~6,2%
rename %1 "%name%.ps" &&echo %~n1.ps 改名为 %name%.ps
goto :eof