求做一个能批量改文件名的BAT脚本，谢谢。

dzwind

求做一个BAT，要求通过拖拽的方式将文件夹里所有的doc及docx重命名，重命名为取源文件名中第一个出现的数字及文件名中间或者最后面的字符（1个或者几个都行）。
举例说明：
比如：文件夹下有以下文件
1abcdef.doc
a2aaaa.docx
b3bbbb.doc
4ddddd.docx
我想通过bat的形式，将文件重命名为11111F.doc;2222a.docx;3333b.doc;4444d.docx。
目的是文件的顺序一目了然。
谢谢。

77七

这样命名有什么意义吗？而且确定不会产生重名吗？

dzwind

回复 2# 77七 谢谢您

aloha20200628

回复 1# dzwind

复述一遍更名规则须楼主确认》新文件名由首部和尾部构成，尾部是源文件名首次出现的数字及源文件名最后一个字符，首部是源文件名首次出现的数字重复3遍

Five66

什么是
取文件名中第一个出现的数字及数字最后面的一个字符
完全看不懂

czjt1234

为什么是5个1而不是4个1

dzwind

回复 4# aloha20200628


    目标文件名是由第1个数字（重复几遍），再加上源文件名中的任意字符即可，这样可避免有重名文件。
目的是1、让我能一目了然看清文件名的顺序。2、简短文件名的长度。
因为我处理的文件有的文件名太长，前面的数字看不清。

dzwind

回复 6# czjt1234


    几个重复的数字都行。目的是多写几个能够让我看清文件名，知道文件的顺序。

77七

回复 7# dzwind


  

1. @echo off
   
2. if "%~1" equ "" (
   
3.         exit
   
4. ) else (
   
5.         pushd "%~1" || exit
   
6. )
   
7. for /f "delims=" %%i in ('dir /b /a-d "*.doc?"') do (
   
8.         set n=%%~ni
   
9.         set x=%%~xi
   
10.         for /f "tokens=1 delims=0123456789" %%a in ("\%%~ni") do (
    
11.                 set _n=\%%~ni
    
12.                 setlocal enabledelayedexpansion
    
13.                 for /f "delims=" %%b in ("!_n:%%a=!") do (
    
14.                         endlocal
    
15.                         set nn=%%b
    
16.                         setlocal enabledelayedexpansion
    
17.                         ren "!n!!x!" "!nn:~0,1!!nn:~0,1!!nn:~0,1!!nn:~0,1!_!n:~-2!!x!"
    
18.                         endlocal
    
19.                 )
    
20.         )
    
21. )
    
22. pause

复制代码

aloha20200628

回复 7# dzwind

假设拖入的是一个目标文件夹
代码第5行中的数字3是源文件名第一个数字的重复次数，可由楼主自定义

1. 
   
2. @echo off & if "%~1"=="" exit/b
   
3. pushd "%~1" &setlocal enabledelayedexpansion
   
4. for /f "delims=" %%F in ('dir /b/a-d *.doc* 2^>nul') do (
   
5.         set "docF=%%~nF"&set "nc="&(call :get_n docF n)
   
6.         for /L %%n in (1,1,3) do set "nc=!nc!!n!"
   
7.         ren "%%F" "!nc!!n!!docF:~-1!%%~xF"
   
8. )
   
9. popd&pause&exit/b
   
10. :get_n
    
11.         set "s=!%~1!"
    
12.         :[loop]
    
13.         set "c=!s:~,1!"&if "!c!" geq "0" if "!c!" leq "9" (set "%~2=!c!"&exit/b)
    
14.         set "s=!s:~1!"&if "!s!"=="" (exit/b) else goto[loop]
    

复制代码

buyiyang

回复 9# 77七


    其实只要用 dir /b /a-d "*.doc" 就行，
因为通配符模式匹配文件名时后缀为3个字母即可兼容4个字母以上的后缀，这应该是从 dos 时代“8+3”文件名模式延续下来的

77七

回复 11# buyiyang


   
谢谢大佬指点！
以前看过老帖 包括置顶贴 不能说的秘密 ，都有提及这个事，但是在我电脑上，行不通，不知道咋回事。

1. D:\>cd.>1.docx
   
2. 
   
3. D:\>dir /b /a-d *.doc
   
4. 找不到文件
   
5. 
   
6. D:\>dir /b /a-d *.docx
   
7. 1.docx

复制代码

newswan

第1个数字（重复几遍），再加上源文件名中的任意字符
很可能重名

dzwind

holley

回复 1# dzwind


    数字总共就0-9，，再接不管什么字符、几个字符，，重名的几率非常大，使用脚本的后果就是文件被覆盖或丢失。
如果单纯是觉得文件名太长，还不如看下规律提取一个前缀或者缩减名称长度，，最好直接用个改名工具。