12
返回列表 发帖
ZeronoFreya

Rank: 1

帖子
12 
积分
27 
技术
0  
捐助
0  
注册时间
2014-5-3 
16楼 跳转到 »
发表于 2014-5-4 11:34 | 只看该作者
回复 8# terse


    不会的，确定只有一组 两位 数字...

TOP

apang

Rank: 8Rank: 8

帖子
2085 
积分
14204 
技术
665  
捐助
0  
注册时间
2011-11-27 
17楼
发表于 2014-5-5 22:35 | 只看该作者
遗憾的是都一闪而过，没能达成要求...，顺带一提，系统是win7 64位 旗舰版...


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

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

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
18楼
发表于 2014-5-6 00:11 | 只看该作者
同上，估计是楼主保存成 unicode 了吧？这么多代码不至于一个都不能用
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

terse

Rank: 8Rank: 8

帖子
2339 
积分
9739 
技术
475  
捐助
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"');
}COPY

TOP

ZeronoFreya

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"
请按任意键继续. . .


感谢，但还是不成功。

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

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
21楼
发表于 2014-5-7 16:16 | 只看该作者
回复 20# ZeronoFreya


    大哥，你得把 Ren 前的那个 echo 去掉，他那是为了显示出来让你看看是否正确，确认无误后去掉 echo 再进行实际的改名操作
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

terse

Rank: 8Rank: 8

帖子
2339 
积分
9739 
技术
475  
捐助
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 + '"');
}COPY

TOP

PakTC

Rank: 3Rank: 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...

TOP

PakTC

Rank: 3Rank: 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!.txtCOPY
输出结果
"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...

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
25楼
发表于 2014-5-7 20:32 | 只看该作者
回复 24# PakTC


    楼主要求有这一项：
（包含子文件夹）
链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

PakTC

Rank: 3Rank: 3

帖子
71 
积分
254 
技术
5  
捐助
0  
注册时间
2009-5-17 
26楼
发表于 2014-5-8 09:45 | 只看该作者
回复 25# CrLf


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

TOP

523066680

Rank: 7Rank: 7Rank: 7

帖子
3167 
积分
6481 
技术
320  
捐助
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
[url=][/url]

TOP

ZeronoFreya

Rank: 1

帖子
12 
积分
27 
技术
0  
捐助
0  
注册时间
2014-5-3 
28楼
发表于 2014-5-8 16:25 | 只看该作者
回复 24# PakTC


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

TOP

ZeronoFreya

Rank: 1

帖子
12 
积分
27 
技术
0  
捐助
0  
注册时间
2014-5-3 
29楼
发表于 2014-5-8 16:30 | 只看该作者
回复 21# CrLf


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

TOP

ZeronoFreya

Rank: 1

帖子
12 
积分
27 
技术
0  
捐助
0  
注册时间
2014-5-3 
30楼
发表于 2014-5-8 16:34 | 只看该作者
回复 27# 523066680


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

TOP

12
返回列表