求助完善“删除或者替换当前目录下所有文件夹名称中的指定字符串”批处理代码

lijinan · 发表于 2016-4-8 14:02:43

本帖最后由 pcl_test 于 2016-4-8 21:32 编辑

复制代码

上述代码在当前文件夹目录名称中存在.或者！时无法正常进行，求完善，多谢。

happy886rr · 发表于 2016-4-8 14:46:07

本帖最后由 happy886rr 于 2016-4-9 00:02 编辑

复制代码

回复 1# lijinan

pcl_test · 发表于 2016-4-8 21:02:23

本帖最后由 pcl_test 于 2016-4-8 23:07 编辑

//&cls&dir /ad /b /s|sort /r|cscript -nologo -e:jscript "%~f0" "查找的字符串" "替换后的字符串"&pause&exit
//如果未指定“替换后的字符串”，则为删除/去除“查找的字符串”
var fso = new ActiveXObject('Scripting.FileSystemObject');
try{
var astr = WScript.Arguments(0), bstr = WScript.Arguments(1);
}
catch(e){
try{
var astr = WScript.Arguments(0), bstr = '';
}catch(e){}
}
while(!WScript.StdIn.AtEndOfStream){
var fd = fso.GetFolder(WScript.StdIn.ReadLine());
var fn = fd.Name;
try{
while(fn.indexOf(astr)>-1){
var fn = fn.replace(astr, bstr);
}
fd.Name = fn;
}catch(e){}
}

复制代码

WHY · 发表于 2016-4-8 23:33:11

@if (0)==(0) echo off
set "替换前=ABC"
set "替换后=123"
for /f "tokens=1*delims=/" %%i in ('dir /b /ad /s^|sort /r^|cscript //nologo //e:jscript "%~0" "%替换前%" "%替换后%"')do (
ren "%%j" "%%i"
)2>nul
pause & exit
@end
var arg = WSH.Arguments;
var reg = new RegExp(arg(0).replace(/[\^$(){}\[\]+\-.]/g, '\\$&'), 'ig');
var str = WSH.StdIn.ReadAll().replace(
/.+\\(.+)\r\n/g,
function(s0, s1){
if (reg.test(s1)) return s1.replace(reg, arg(1)) + '/' + s0;
}
)
WSH.Echo(str)

复制代码

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

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

[其他] 求助完善“删除或者替换当前目录下所有文件夹名称中的指定字符串”批处理代码