求个简单的dos批处理程序修改文件名

[tiger波波]

假如文件夹里有一系列文件：
1-data.txt
2-data.txt
...
11-data.txt

想对应改为：
数据001.txt
数据002.txt
...
数据011.txt

不要用excel复制穷举，要通过代码、通配符适配

[Yofoo]

@echo off
cls
set srcdir=%~1
set outdir=%srcdir%_out

%~d1
cd %srcdir%
md %outdir%
echo outdir: %outdir%
echo load filelist please wait...
for /f "delims=" %%a in ('dir /b *data.txt') do call :ProcessOne "%srcdir%\%%a"
goto End

:ConvertName
echo ConvertName in: %1
set inname=%~n1
set /a n=%inname%-1
set /a n=%n%+1
set nstr=%n%

:loop_len
set chk=%nstr:~2,3%
if not "%chk%"=="" goto :loop_len_end
set nstr=0%nstr%
goto :loop_len
:loop_len_end

set nstr=数据%nstr%.txt
echo ConvertName out: %nstr%
goto :eof

:ProcessOne
set infile=%1
echo ProcessOne: %infile%
call :ConvertName %1
set outfile=%outdir%\%nstr%
copy %infile% %outfile%
goto :eof

:End
pause

文件夹作为参数调用

[tiger波波]

引用 1 楼 Yofoo 的回复:

@echo off
cls
set srcdir=%~1
set outdir=%srcdir%_out

%~d1
cd %srcdir%
md %outdir%
echo outdir: %outdir%
echo load filelist please wait...
for /f "delims=" %%a in ('dir /b *data.txt') do call :ProcessOne "%srcdir%\%%a"
goto End

:ConvertName
echo ConvertName in: %1
set inname=%~n1
set /a n=%inname%-1
set /a n=%n%+1
set nstr=%n%

:loop_len
set chk=%nstr:~2,3%
if not "%chk%"=="" goto :loop_len_end
set nstr=0%nstr%
goto :loop_len
:loop_len_end

set nstr=数据%nstr%.txt
echo ConvertName out: %nstr%
goto :eof

:ProcessOne
set infile=%1
echo ProcessOne: %infile%
call :ConvertName %1
set outfile=%outdir%\%nstr%
copy %infile% %outfile%
goto :eof

:End
pause

文件夹作为参数调用

多谢指教，运行出错。这个批处理太复杂了，符号很抽象，读不懂。 能不能弄个简单点的，bat和文件就在同一目录，也不用备份、拷到别的路经，就在本文件夹改名就行。备份我手工来做。

[Yofoo]

明显是你复制的的有问题, 有非法字符, 自己改下就好了 如果想简单也简单不了太多, 上面bat定义了几个函数, 简化只能把函数改成内嵌, 提示去掉, for /f "delims=" %%a in ('dir /b *data.txt') 这段是获取或有文件 :ConvertName echo ConvertName in: %1 set inname=%~n1 set /a n=%inname%-1 set /a n=%n%+1 set nstr=%n% 这段是提取文件名中的数字 :loop_len set chk=%nstr:~2,3% if not "%chk%"=="" goto :loop_len_end set nstr=0%nstr% goto :loop_len :loop_len_end 这段是根据数字生成带0开头的文件名 set nstr=数据%nstr%.txt echo ConvertName out: %nstr% goto :eof 生成完整文件名 :ProcessOne set infile=%1 echo ProcessOne: %infile% call :ConvertName %1 set outfile=%outdir%\%nstr% copy %infile% %outfile% goto :eof 复制文件

[schlafenhamster]

试试
@echo load filelist please wait...
for /f "delims=" %%a in ('dir /b *.txt') do @echo "%%a"
pause