批处理如何根据excel表格的内容批量修改文件名

511182890 · 发表于 2016-1-21 11:17:36

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%a in ('dir /a-d/b/s/q *.*') do (
set "var=%%~na"
set newn=!var:AD1011=AD1011T!
ren "%%a" "!newn!%%~xa"
)
for /f "delims=" %%a in ('dir /a-d/b/s/q *.*') do (
set "var=%%~na"
set newn=!var:AD1012=AD1012T!
ren "%%a" "!newn!%%~xa"
)
for /f "delims=" %%a in ('dir /a-d/b/s/q *.*') do (
set "var=%%~na"
set newn=!var:AD1013=AD1013T!
ren "%%a" "!newn!%%~xa"
)
echo end...
pause

复制代码

已有代码，我需要改的名字有5000个左右，所有包含子目录有17000个文件夹，400W文件，求优化。上面这个代码把5000个左右的文件都填，有这么多的文件夹，扫描就卡死了。
求个方便处理的程序。
这是一部分文件名

511182890 · 发表于 2016-1-6 14:33:00

改名前文件名：
AD1011奥迪车.DSN
AD1011-G1101-AA.DSN
AD1011-G1101-AA-118-主副背料-四向-749.dxf
AD1011-G1101-AA-118-主副背料-四向-(12345)-749.dxf
改名后文件名：
AD1011T奥迪车.DSN
AD1011T-G1101-AA.DSN
AD1011T-G1101-AA-118-主副背料-四向-749.dxf
AD1011T-G1101-AA-118-主副背料-四向-(12345)-749.dxf

需要改的名字全部在一个表格中，现在能不能用批处理调用表格改名。一个个改的软件我有！
麻烦各位大仙大神了。

511182890 · 发表于 2016-1-6 15:26:21

用ren命令怎么改，有包括子文件夹

pcl_test · 发表于 2016-1-6 16:18:42

txt不好？

水一发，读取表格内容

/*&cls
@echo off
::设置表格路径
set "xlsfile=D:\改名.xls"
cscript -nologo -e:jscript "%~f0" "%xlsfile%"
pause&exit
*/
var objExcel = new ActiveXObject('Excel.Application');
var objBook = objExcel.Workbooks.open(WScript.Arguments(0));
objBook.worksheets(1).activate; //设置Sheet1为活动工作表
var objSheet = objBook.activeSheet;
var cnt = objSheet.usedrange.rows.count;
for(var i = 2; i<=cnt; i++) { //从第2行开始
var A= objSheet.Cells(i, 1).value; //A列
var B= objSheet.Cells(i, 2).value; //B列
WSH.echo(A+' --> '+B);
}
objBook.Close();
objExcel.Quit();

复制代码

pcl_test · 发表于 2016-1-6 16:25:48

来个第三方
ren2 -f -r "(AD1011)([^T].*)" "$1T$2"

511182890 · 发表于 2016-1-7 15:23:59

回复 4# pcl_test

二种方法表示都不行。

pcl_test · 发表于 2016-1-21 20:23:42

只想说，假设已有一个文件名为AD1011Txxxxx，你6楼的代码没做筛选，那么改名后就是AD1011TTxxxxx了

codegay · 发表于 2016-1-22 00:12:16

可以考虑把excel转成CSV文件。批处理读取csv方便。

CrLf · 发表于 2016-1-22 00:15:50

http://www.bathome.net/s/tool/index.html?key=excel

511182890 · 发表于 2016-1-23 14:52:02

回复 7# pcl_test

是的，我后来全部加了“-”

codegay · 发表于 2016-1-26 23:44:09

回复 9# CrLf

c:\>excel /?
This program needs Java to run.
Please download it at http://www.java.com

复制代码

		自动登录	找回密码
密码			注册

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

[文件操作] 批处理如何根据excel表格的内容批量修改文件名

批处理如何根据excel表格的内容批量修改文件名？6楼有新的总结