[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件操作] 批处理怎样复制文件并依TXt文本记录追加文件名内容?

本帖最后由 qd2024 于 2023-11-26 11:12 编辑

感谢

链接: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的分享

回复 7# ShowCode


    好的 谢谢 我试试

TOP

回复 6# qd2024


    功能没区别,思路有不同。
测试代码之前请做好备份

TOP

回复 5# ShowCode


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

TOP

回复 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. )
复制代码
测试代码之前请做好备份

TOP

回复 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. )
复制代码
测试代码之前请做好备份

TOP

回复 2# ShowCode

谢谢 已经更改


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

TOP

回复 1# qd2024


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

建议打包压缩之后再上传网盘,你这样上传一个文件夹,别人想下载还要安装客户端。
测试代码之前请做好备份

TOP

返回列表