[文件操作] 批处理怎样复制文件并依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的分享

qd2024

回复 7# ShowCode


    好的 谢谢 我试试

ShowCode

回复 6# qd2024


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

qd2024

回复 5# ShowCode


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

ShowCode

回复 1# qd2024


2.bat

@echo off
chcp 65001 >nul
set "NewFolder=结果文件夹"
cd /d "%~dp0"
md "%NewFolder%" 2>nul
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
    echo %%i
    for /f "delims=" %%j in ('dir /b /a-d "%%~ni.*" ^| findstr /v /i /e ".txt"') do (
        for /f "delims=" %%k in ('type "%%i"') do (
            copy "%%j" "%NewFolder%\%%~nj%%k%%~xj"
        )
    )
)
复制代码

ShowCode

回复 1# qd2024

1.bat

@echo off
chcp 65001 >nul
REM 根据需要自行添加文件类型
set "FileTypes=pdf doc xls ppt"
set "NewFolder=结果文件夹"
cd /d "%~dp0"
md "%NewFolder%" 2>nul
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
    echo %%i
    for %%j in (%FileTypes%) do (
        if exist "%%~ni.%%j" (
            for /f "delims=" %%k in ('type "%%i"') do (
                copy "%%~ni.%%j" "%NewFolder%\%%~ni%%k.%%j"
            )
        )
    )
)
复制代码

qd2024

回复 2# ShowCode

谢谢 已经更改


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

ShowCode

回复 1# qd2024

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

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