【以解决】按照列表批量改目录下的文件名

sunqiangcn

具体报酬：10RMB
支付方式：支付宝
联系方式：QQ117130735
有效期限：直到解决
需求描述：
（1）系统环境（XP SP3/win7）
（2）条件：
1：一个目录(文章目录)下有很多TXT文本
2：一个TXT文本每行一条记录
3：已处理目录
（3）：想要实现的功能的具体描述
把 目录里面的txt文件，按顺序重命名为 列表文本 里的文件名


附加条件：如果可以实现 条件一里面包含子目录并且按照上面的要求实现后把子目录的内容放到已处理目录下相同子目录里面佣金加10RMB

小弟不财，只能孝敬一包烟钱请见谅

4楼兄弟不好意思，我忘了改成以解决了。3楼的朋友已经先你一步给我写好了

Perl

100RMB我可以帮你写

caruko

一份盒饭=。=
只不过题目完全没写清楚。

netbenton

小钱没人捡，我来~~~

@echo off&SETLOCAL ENABLEDELAYEDEXPANSION

set curt=%cd%\文章目录\

(
  for /r 文章目录 %%a in (*.txt) do (
    set /p get=
    set dest=%%~a
    set dest=!dest:%curt%=!
    set dest=!dest:%%~nxa=!
    if defined dest md "处理完成\!dest!" 1>nul 2>nul

    copy "%%~a"  "处理完成\!dest!!get!.txt"1>nul
    
  ) 

)< 文件名列表.txt
pause
复制代码