批处理怎样复制文件并依TXt文本记录追加文件名内容？

qd2024

感谢

链接：https://pan.baidu.com/s/11hbrdHZk55uFvy_zrHEKdA?pwd=u0m2
提取码：u0m2
--来自百度网盘超级会员V9的分享

处理前
【数学】【学而思】中考基础速查手册.txt   文件下有目录项，一行一个，如百度云附件

当前目前下有一个与上面TXT同名的文件   【数学】【学而思】中考基础速查手册.pdf（执行代码时，不限制扩展名，还有可能是其他类型文件）


运行BAT后，复制与和TXT行数相同数目的文件，并在新文件文件名尾追加TXT中每行的内容，结果如百度云附件

   有时，当前目录下会有多个符合规则的文件和TXT记录文件，运行BAT时依次处理

链接：https://pan.baidu.com/s/11hbrdHZk55uFvy_zrHEKdA?pwd=u0m2
提取码：u0m2
--来自百度网盘超级会员V9的分享

ShowCode

回复 1# qd2024

你下载的内容包含文件夹，请使用百度网盘客户端下载。

建议打包压缩之后再上传网盘，你这样上传一个文件夹，别人想下载还要安装客户端。

qd2024

回复 2# ShowCode

谢谢 已经更改


    链接：https://pan.baidu.com/s/11hbrdHZk55uFvy_zrHEKdA?pwd=u0m2
提取码：u0m2
--来自百度网盘超级会员V9的分享

ShowCode

回复 1# qd2024

1.bat

1. @echo off
   
2. chcp 65001 >nul
   
3. REM 根据需要自行添加文件类型
   
4. set "FileTypes=pdf doc xls ppt"
   
5. set "NewFolder=结果文件夹"
   
6. cd /d "%~dp0"
   
7. md "%NewFolder%" 2>nul
   
8. for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
   
9.     echo %%i
   
10.     for %%j in (%FileTypes%) do (
    
11.         if exist "%%~ni.%%j" (
    
12.             for /f "delims=" %%k in ('type "%%i"') do (
    
13.                 copy "%%~ni.%%j" "%NewFolder%\%%~ni%%k.%%j"
    
14.             )
    
15.         )
    
16.     )
    
17. )

复制代码

ShowCode

回复 1# qd2024


2.bat

1. @echo off
   
2. chcp 65001 >nul
   
3. set "NewFolder=结果文件夹"
   
4. cd /d "%~dp0"
   
5. md "%NewFolder%" 2>nul
   
6. for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
   
7.     echo %%i
   
8.     for /f "delims=" %%j in ('dir /b /a-d "%%~ni.*" ^| findstr /v /i /e ".txt"') do (
   
9.         for /f "delims=" %%k in ('type "%%i"') do (
   
10.             copy "%%j" "%NewFolder%\%%~nj%%k%%~xj"
    
11.         )
    
12.     )
    
13. )

复制代码

qd2024

回复 5# ShowCode


    辛苦了 谢谢  4和5楼有什么区别

ShowCode

回复 6# qd2024


    功能没区别，思路有不同。

qd2024

回复 7# ShowCode


    好的 谢谢 我试试