【已解决】批处理怎样按一定规则重命名文件（包含子文件夹）？ - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

apang

上将

Rank: 8 Rank: 8

帖子: 2085
积分: 14204
技术: 665
捐助: 0
注册时间: 2011-11-27

17楼

发表于 2014-5-5 22:35 | 只看该作者

遗憾的是都一闪而过，没能达成要求...，顺带一提，系统是win7 64位旗舰版...

遗憾的是你一点都不会，找找自身的原因吧，要么复制粘贴有问题，要么保存bat时编码有问题

本想改改顶楼vbs代码，估计给你也白搭，算了吧

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18831
技术: 978
捐助: 100
注册时间: 2010-10-9

18楼

发表于 2014-5-6 00:11 | 只看该作者

同上，估计是楼主保存成 unicode 了吧？这么多代码不至于一个都不能用

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

terse

中将

Rank: 8 Rank: 8

帖子: 2324
积分: 9709
技术: 470
捐助: 0
注册时间: 2008-2-25

19楼

发表于 2014-5-7 02:14 | 只看该作者

回复 1# ZeronoFreya
这样试下呢？
无64位环境测试请自行备份数据

@if(0)==(0) echo off
set "Sysdir=SysWOW64"
if /i "%PROCESSOR_ARCHITECTURE%" == "x86" if not defined PROCESSOR_ARCHITEW6432 set "Sysdir=System32"
set cscript="%Windir%\%Sysdir%\cscript.exe" //nologo //e:javascript
if "%~1" == "" (set "ph=%~dp0") else set "ph=%~1\"
for /f "delims=" %%i in ('dir/b/s "%ph%*[*]*.txt"^|%cscript% "%~f0"')do (
    echo,Ren %%i 2>nul
)
pause
goto :eof
@end
while (!WScript.StdIn.AtEndOfStream) {
    var f = WScript.StdIn.ReadLine()
    var arr = f.match(/(\[(\d{2})\])/)
    if (arr) WScript.echo('"' + f + '"','"' + arr[2] + '.txt"');
}
复制代码

Rank: 1

帖子: 12
积分: 27
技术: 0
捐助: 0
注册时间: 2014-5-3

20楼

发表于 2014-5-7 15:40 | 只看该作者

回复 19# terse

Ren "D:\system\Desktop\test\test\dgtsts[02]fhjfcct.mp4.mp4" "02.mp4"
Ren "D:\system\Desktop\test\test\sdgdd[01]fdtgs.mp4" "01.mp4"
请按任意键继续. . .

感谢，但还是不成功。

我不懂编程，但感觉我的要求应该不是很难...没想到有这么多人帮助还是不行，这时候放弃也是不错的选择，再一次，感谢大家的帮助！！

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18831
技术: 978
捐助: 100
注册时间: 2010-10-9

21楼

发表于 2014-5-7 16:16 | 只看该作者

回复 20# ZeronoFreya

大哥，你得把 Ren 前的那个 echo 去掉，他那是为了显示出来让你看看是否正确，确认无误后去掉 echo 再进行实际的改名操作

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

terse

中将

Rank: 8 Rank: 8

帖子: 2324
积分: 9709
技术: 470
捐助: 0
注册时间: 2008-2-25

22楼

发表于 2014-5-7 18:39 | 只看该作者

回复 20# ZeronoFreya
上面显示表明代码可正常运行
如要统配后缀可以改下这样试
虽然楼主放弃了还是贴出吧

@if(0)==(0) echo off
set "Sysdir=SysWOW64"
if /i "%PROCESSOR_ARCHITECTURE%" == "x86" if not defined PROCESSOR_ARCHITEW6432 set "Sysdir=System32"
set cscript="%Windir%\%Sysdir%\cscript.exe" //nologo //e:javascript
if "%~1" == "" (set "ph=%~dp0") else set "ph=%~1\"
for /f "delims=" %%i in ('dir/b/s "%ph%*[*]*.*"^|%cscript% "%~f0"')do Ren %%i 2>nul
pause
goto :eof
@end
while (!WScript.StdIn.AtEndOfStream) {
    var f = WScript.StdIn.ReadLine()
    var e =/\.[^\.]+$/.exec(f);
    var arr = f.match(/(\[(\d{2})\])/)
    if (arr) WScript.echo('"' + f + '"','"' + arr[2] + e + '"');
}
复制代码

PakTC

四级士官

Rank: 3 Rank: 3

帖子: 71
积分: 254
技术: 5
捐助: 0
注册时间: 2009-5-17

23楼

发表于 2014-5-7 19:31 | 只看该作者

修改自 9 楼 apang 胸的代码：代码会短一些，但可读性其实很差
CrLf 发表于 2014-5-4 02:46

“apang胸”

Press Any Key To Continue...

PakTC

四级士官

Rank: 3 Rank: 3

帖子: 71
积分: 254
技术: 5
捐助: 0
注册时间: 2009-5-17

24楼

发表于 2014-5-7 19:51 | 只看该作者

本帖最后由 PakTC 于 2014-5-7 20:06 编辑

重命名这种事情要是没有特殊控制字符干嘛要用vbs？

回复 14# CrLf

@echo off
setlocal enabledelayedexpansion
for /l %%a in (1,1,99) do (
    set sn=0%%a
    set sn=!sn:~-2!
    if exist *[!sn!]*.txt (
        call :next *[!sn!]*.txt !sn!
    )
)
echo 修改之后的文件列表：
dir /b *.txt
pause
exit

:next
 echo "%~f1"
 ren "%~f1" !sn!.txt
复制代码

输出结果

"C:\新建文件夹\###[01]#####.txt"
"C:\新建文件夹\复件 ###[02]#####.txt"
"C:\新建文件夹\复件 (3) ###[03]#####.txt"
"C:\新建文件夹\复件 (2) ###[04]#####.txt"
修改之后的文件列表：
01.txt
02.txt
03.txt
04.txt

1 评分人数

CrLf: 骚年有想法技术 + 1

Press Any Key To Continue...

CrLf

论坛巡查

Rank: 8 Rank: 8

帖子: 6388
积分: 18831
技术: 978
捐助: 100
注册时间: 2010-10-9

25楼

发表于 2014-5-7 20:32 | 只看该作者

回复 24# PakTC

楼主要求有这一项：

（包含子文件夹）

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

PakTC

四级士官

Rank: 3 Rank: 3

帖子: 71
积分: 254
技术: 5
捐助: 0
注册时间: 2009-5-17

26楼

发表于 2014-5-8 09:45 | 只看该作者

回复 25# CrLf

不要做拖放了，用vbs循环访问剪切板中的信息。当出现目录的时候，对该目录进行重命名操作。
这样就只要在指定目录按ctrl+c就可以执行操作了。

Press Any Key To Continue...

523066680

版主

Rank: 7 Rank: 7 Rank: 7

帖子: 3151
积分: 6455
技术: 317
捐助: 70
注册时间: 2008-8-3

27楼

发表于 2014-5-8 12:48 | 只看该作者

本帖最后由 523066680 于 2014-5-8 12:51 编辑

回复 1# ZeronoFreya

按楼主的代码添加了一部分东西，保存为vbs即可，WIN7 64位，测试过

if wscript.arguments.count=0 then
createobject("wscript.shell").run _
"cmd /c cscript //nologo " &chr(34) &wscript.scriptname &chr(34) & " isme"
wscript.quit
end if

set OUT=wscript.stdout
set INP=wscript.stdin
OUT.write "拖放需要改名的文件夹到此处:"
fold=INP.readline

'以下是楼主的代码
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each File in FSO.GetFolder(fold).Files
Ext = FSO.GetExtensionName(File)
If LCase(Ext) = "txt" Or LCase(Ext) = "doc" Or LCase(Ext) = "ass" Then RenFiles
Next
MsgBox "OK"

Sub RenFiles()
Set Re = New RegExp
Re.Pattern = "(^.*\[)(\d{2})(\].*$)"
Re.Global = True
File.Name = Re.Replace(File.Name,"$2") & "." & Ext
End Sub

FuniCode 编程论坛

Rank: 1

帖子: 12
积分: 27
技术: 0
捐助: 0
注册时间: 2014-5-3

28楼

发表于 2014-5-8 16:25 | 只看该作者

回复 24# PakTC

没想到放弃后会出现满意结果，不能处理子文件夹也可以了，嗯，非常满意了，非常感谢！！

Rank: 1

帖子: 12
积分: 27
技术: 0
捐助: 0
注册时间: 2014-5-3

29楼

发表于 2014-5-8 16:30 | 只看该作者

回复 21# CrLf

惭愧，如楼上所说，我不懂批处理，看到文件夹内内容未变，就果断认为失败了...惭愧！！

Rank: 1

帖子: 12
积分: 27
技术: 0
捐助: 0
注册时间: 2014-5-3

30楼

发表于 2014-5-8 16:34 | 只看该作者

回复 27# 523066680

感谢，我决定用PakTC的批处理了，放到文件夹根目录下效果很不错，再次感谢