一个项目需要自己做了批处理程序实现文件自动命名以及按路径保存。
1。引号替换
@echo off
cd.>Mytest.txt
setlocal enabledelayedexpansion
for /f "tokens=*" %%i in (test.txt) do (
set var=%%i
set "var=!var:"=!"
echo !var!>>Mytest.txt
)
2。数据
备份@echo off
md D:\backup\%date:~0,10%
set num=0
for /f "delims=" %%i in ('dir /b *.tif,*.txt') do (
if not exist "D:\backup\%date:~0,10%\%%i" (
copy "%%i" D:\backup\%date:~0,10%>nul
)
)
setlocal enabledelayedexpansion
for /f "tokens=4* delims=," %%i in (Mytest.txt) do (
md D:\backup\%%i
)
)
3。批量命名TIF文件
@echo off
setlocal enabledelayedexpansion
for /f "tokens=6-7* delims=," %%i in (Mytest.txt) do (
set name=%%i
set location=%%j
set vlocation=!!location:~14,12!!
echo !name! - !vlocation!
call :TifRename !name! !vlocation!
)
pause
)
:TifRename
for /f "delims=" %%i in ('dir /b *.TIF') do (
if "%%i"=="%2" (ren "%%i" "%1.TIF")
echo %%i
)
4。按路径保存新命名文件
@echo off
setlocal enabledelayedexpansion
for /f "tokens=4-6* delims=," %%i in (Mytest.txt) do (
set name=%%k
set location=%%i
echo "D:\!location!\!name!.TIF"
if not exist "D:\backup\!location!\!name!.TIF" (
move "!name!.TIF" "D:\backup\!location!"
)
)
pause
DEL "Mytest.txt"
)
