[已解决]用批处理方式写一个文本批量改名程序

gpfgpf

用批处理方式写一个文本批量改名程序，要求用文件名加文本的第一行或有效行，如果第一行是空行，则顺延到第二行，做为新的文件名。我的文件目录是e:\books全集\books\找回\。我用AI帮我写了几个程序，没有一个运行成功的，求大神给看一下，错在那里。
第一个

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. 
   
4. pushd e:\books 全集\books\找回\
   
5. 
   
6. for /f "delims=" %%i in ('dir /b *.txt') do (
   
7.     set "line=%%i"
   
8.     for /f "tokens=1* delims=:" %%a in ('findstr /n. "%%i"') do (
   
9.         if "%%a" neq "" (
   
10.             set "newname=%%i -!line!:~0,1!"
    
11.             ren "%%i" "!newname!"
    
12.             goto :break
    
13.         )
    
14.     )
    
15.     :break
    
16. )
    
17. 
    
18. popd

复制代码

第二个

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. 
   
4. set "sourceDir=e:\books全集\books\找回"
   
5. for %%f in ("%sourceDir%*.txt") do (
   
6.     set "newFileName=%%~nf"
   
7.     for /f "delims=" %%a in ('type "%%f" ^| findstr /b /c:"[^ ]"') do (
   
8.         set "newFileName=%%~na"
   
9.         goto rename
   
10.     )
    
11. )
    
12. :rename
    
13. ren "%%f" "!newFileName!.txt"
    
14. endlocal

复制代码

第三个

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. 
   
4. set "sourceDir=e:\books全集\books\找回"
   
5. set "ext=txt"  REM 更改为你的文件扩展名
   
6. 
   
7. for /r "%sourceDir%" %%f in (*.%ext%) do (
   
8.     set "filename=%%f"
   
9.     set "newname="
   
10.    
    
11.     for /f "tokens=*" %%a in ('type "%%f"') do (
    
12.         if "!newname!"=="" (
    
13.             echo %%a | findstr /c:" " > nul
    
14.             if errorlevel 1 (
    
15.                 set "newname=%%a"
    
16.             )
    
17.         ) else (
    
18.             set "newname=%%a"
    
19.             goto :renamed
    
20.         )
    
21.     )
    
22. 
    
23. :renamed
    
24.     if not "!newname!"=="" (
    
25.         ren "!filename!" "!newname!.%ext%"
    
26.     )
    
27. )
    
28. 
    
29. endlocal

复制代码

第四个

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. 
   
4. rem 指定文件目录
   
5. set "directory=e:\books全集\books\找回"
   
6. 
   
7. rem 遍历目录中的文件
   
8. for /f "delims=" %%f in ('dir /b /a-d "%directory%*.txt"') do (
   
9.     set "file=%%f"
   
10.     set "newName="
    
11. 
    
12.     rem 读取文件的第一行
    
13.     for /f "tokens=1* delims=:" %%a in ('findstr /n "^" "%directory%\!file!"') do (
    
14.         if "%%a" neq "1" (
    
15.             set "newName=!newName!%%b"
    
16.             goto rename
    
17.         )
    
18.     )
    
19. 
    
20.     rem 如果第一行是空行，读取第二行
    
21.     for /f "tokens=1* delims=:" %%a in ('findstr /n "^" "%directory%\!file!" 2^>nul') do (
    
22.         set "newName=!newName!%%b"
    
23.         goto rename
    
24.     )
    
25. 
    
26.     :rename
    
27.     ren "%directory%\!file!" "!newName!.txt"
    
28. )
    
29. 
    
30. pause

复制代码

Batcher

回复 1# gpfgpf


请参考Q-01观察一下哪行代码在报错以及详细的报错信息：
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA

如果需要上传文件，请用使用网盘。

如果需要上传截图，可以找个图床，例如：
http://bbs.bathome.net/thread-60985-1-1.html

77七

1. @echo off
   
2. rem 批处理和文本全部保存为ansi编码格式
   
3. cd /d "e:\books 全集\books\找回"
   
4. for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
   
5.         call :1 "%%i"
   
6. )
   
7. pause & exit
   
8. 
   
9.         :1
   
10.         for /f "useback delims=" %%a in ("%~1") do (
    
11.                 ren "%~1" "%~n1_%%a%~x1"
    
12.                 exit /b
    
13.         )
    
14.         exit /b

复制代码

Five66

不要用纯批处理 ,因为可能包含不能作为文件名的字符又或者文件名长度可能过长 , 处理起来超麻烦
换用powershell或jscript 或vbs或其他

gpfgpf

谢谢  77七 完美解决。