[已解决]批处理怎样在文件名中的数字前加上0/补零/补0？

QIAOXINGXING

把文件名的数字改成相同的位数，举个例子
有一些文件的名字是：小说1.txt  小说2.txt 小说3.txt ...............小说23.txt   小说24.txt
怎么用批处理改成 ：小说01.txt  小说02.txt 小说03.txt ...............小说23.txt   小说24.txt

CrLf

for /l %%a in (1 1 9) do ren 小说%%a.txt 小说0%%a.txt

QIAOXINGXING

回复 2# CrLf


    多谢版主！
不过我这只是举个例子，还有其他一些文件，数字有的在前有的在后，还有的数字是从1到几百，不知道您能不能写一个通用版的。
再次感谢版主！！

ArdentMan

以下代码在数字三位内通用：

1. 
   
2. @Echo Off&SetLocal EnableDelayedExpansion
   
3. For /F "delims=" %%a In ('Dir /b /s') Do (
   
4.   For /F "delims=0123456789" %%b In ("%%~na") Do Call :LP "%%a" "%%b"
   
5. )
   
6. Exit
   
7. :LP
   
8. For /F "delims=%~2" %%a In ("%~n1") Do (
   
9.   Set "Num=000%%a"&Set "Num=!Num:~-3!"
   
10.   For %%b In (!Num!) Do Set "Str=%~n1"&Ren %1 "!Str:%%a=%%b!"
    
11. )
    

复制代码

QIAOXINGXING

回复 4# ArdentMan

多谢前辈！！
我测试了一下，确实不错！！
但是有点小bug，下面这种文件名的改不了：
1  ee.txt
1e  e.txt
1.txt
e  e1.txt

HAT

回复 5# QIAOXINGXING


请别人写代码之前，你得自己先把规律总结出来。
什么东西都没有，只是说别人的代码不通用，这怎么可以呢。
1a1.txt、1a12b123.txt这样的文件你准备怎样重命名？

ArdentMan

请测试：

1. 
   
2. @Echo Off&SetLocal EnableDelayedExpansion
   
3. For /F "delims=" %%a In ('Dir /b /s') Do (
   
4.   Set "Str=%%~na"
   
5.   For /L %%b In (0,1,9) Do Set "Str=!Str:%%b=!"
   
6.   Call :LP "%%a" "@!Str!"
   
7. )
   
8. Exit
   
9. :LP
   
10. For /F "delims=%~2" %%a In ("%~n1") Do (
    
11.   Set "Num=000%%a"&Set "Num=!Num:~-3!"
    
12.   For %%b In (!Num!) Do Set "Str=%~n1"&Ren %1 "!Str:%%a=%%b!"
    
13. )
    

复制代码

QIAOXINGXING

回复 6# HAT


    前辈教训的是，我一定尽量改正。只是现在我实在太菜了，稍复杂的语句就看不懂了。。

HAT

回复 8# QIAOXINGXING


看不懂没关系，把需求描述清楚就行了，会有人帮你写代码的。

QIAOXINGXING

回复 9# HAT


再次感谢前辈！！
经测试，纯数字为文件名的（即：1.txt型的）可以了，但是其他几种依旧不行。
我试图看懂代码，但是。。。。。。。。只能麻烦前辈了。

ArdentMan

这下应该可以了

1. 
   
2. @Echo Off&SetLocal EnableDelayedExpansion
   
3. For /F "delims=" %%a In ('Dir /b /s') Do (
   
4.   Set "Str=%%~na"
   
5.   For /L %%b In (0,1,9) Do If Defined Str Set "Str=!Str:%%b=!"
   
6.   If Not Defined Str Set "Str=<"
   
7.   If "%%a" NEQ %0 Call :LP "%%a" "!Str: =!"
   
8. )
   
9. Exit
   
10. :LP
    
11. For /F "delims=%~2 " %%a In ("%~n1") Do (
    
12.   Set "Num=000%%a"&Set "Num=!Num:~-3!"
    
13.   For %%b In (!Num!) Do Set "Str=%~nx1"&Ren %1 "!Str:%%a=%%b!"
    
14. )
    

复制代码

missll

膜拜各路大牛。。。。 学习中。

QIAOXINGXING

回复 11# ArdentMan


    实在感谢，的确可以了。
感激不尽啊！！！

pcl_test

1. /*&cls
   
2. @echo off
   
3. rem 以文件名中自左向右首个出现的数字串为修改对象
   
4. dir /a-d /b *.txt|cscript -nologo -e:jscript "%~f0"
   
5. pause&exit
   
6. */
   
7. 
   
8. var fso = new ActiveXObject('Scripting.FileSystemObject');
   
9. var f=[], i=0, zero='00000000000000000000', t;
   
10. while(!WSH.StdIn.AtEndOfStream){
    
11.     var file = fso.GetFile(WSH.StdIn.ReadLine());
    
12.     //获取数字串最长位数
    
13.     if(/\D*(\d+).+/.test(file.Name)){
    
14.         if(typeof(n) == 'undefined'){
    
15.             n = RegExp.$1.length
    
16.         }else{
    
17.             if(RegExp.$1.length > n)n=RegExp.$1.length;
    
18.         }
    
19.         f[i] = file;
    
20.         i++;
    
21.     }
    
22. }
    
23. 
    
24. for(i--; i>=0; i--){
    
25.     var newname = f[i].Name.replace(/\d+/, function(num){t = num.length;return (zero+num).slice(-n)});
    
26.     if(t < n)f[i].Name = newname;
    
27. }
    
28. WSH.echo('Done');

复制代码

ddrwin

回复 14# pcl_test

版主的这个代码太好了！
我增加了一些适配的文件格式，代码执行提升出错，但是不影响结果。请帮忙看看是什么导致？该如何添加文件格式才不会出错？谢谢！！

1. dir /a-d /b *.txt *.rar *.pdf *.doc *.mov *.torrent *.jpg *.mp4 *.ts *.mkv *.wmv *.avi *.png *.gif *.rmvb|cscript -nologo -e:jscript "%~f0"

复制代码

运行结果：

Done
'*' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'var' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'var' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'while' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
'var' 不是内部或外部命令，也不是可运行的程序
或批处理文件。
文件名、目录名或卷标语法不正确。
命令语法不正确。