求个批量改名的bat

dos时代菜鸟

生成 随机文件名 用这个 ，怎么改名 啥的，再研究。
先看这个行不行

1. 
   
2. Set os=CreateObject("Wscript.shell")
   
3. wscript.echo namex
   
4. Function namex()
   
5.   str="a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9"
   
6.         namex=""
   
7.         Randomize   '初始化随机数生成器。
   
8.         For n=1 To 16
   
9.                 MyValue = Int(36 * Rnd+1)   ' 产生 1 到 36 之间的随机数。
   
10.                 namex=namex&split(str,",")(myvalue-1)
    
11.         Next
    
12. end Function
    

复制代码

字母+数字 一共不过 36个 字符，循环16次，生成16个 1-36 的随机数，再转化成 对应的 字符，组合起来就是一个 符合要求的 字符串了。

dos时代菜鸟

把 需要 操作的文件夹 拖放 给这个 vbs 就可以实现了。vbs 脚本旁边会 多出一个  change.txt 文件 就是 变更记录。

不处理 子目录 内容。


先将 目标文件夹 中的文件 名称存入一个 old.txt 文件，
在 循环读取  old.txt 内容，把 其包含的文件 更名，并将 更名过程写入 change.txt 文件中
脚本包含一个  随机生成  包含字符和数字的16位字符串 的函数。

1. Set os=CreateObject("Wscript.shell")
   
2. set fs=createobject("scripting.filesystemobject")
   
3. 
   
4. If WScript.Arguments.Count=0 Then
   
5.     wscirpt.echo "没有参数!"
   
6.     wscirpt.quit
   
7. End If
   
8. 
   
9. pathx=fs.GetFile(WScript.scriptFullName).ParentFolder.Path
   
10. Set dir0=fs.getfolder(WScript.Arguments(0))
    
11. Set Change=fs.OpenTextFile(pathx&"\Change.txt",2,True)
    
12. Set Old=fs.OpenTextFile(pathx&"\Old.txt",2,True)
    
13. For Each p0 In dir0.Files
    
14.   OLD.WriteLine p0.ParentFolder&""&p0.Name
    
15. Next
    
16. old.Close
    
17. Set Old=fs.OpenTextFile(pathx&"\Old.txt",1,false)
    
18. 
    
19. DO While old.AtEndOfStream <> True
    
20.     Change_name=namex()
    
21.     Do while fs.FileExists(change_name)=True
    
22.             Change_name=namex()
    
23.     Loop
    
24.   Set p0=fs.GetFile(old.readline)
    
25.   Change.WriteLine p0.ParentFolder&""&p0.Name&" , "&p0.ParentFolder&""&Change_name
    
26.     fs.MoveFile p0,p0.ParentFolder&""&Change_name
    
27. loop
    
28. 
    
29. old.Close
    
30. change.Close
    
31. 
    
32. Function namex()
    
33.   str="a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9"
    
34.     namex=""
    
35.     Randomize   '初始化随机数生成器。
    
36.     For n=1 To 16
    
37.         MyValue = Int(36 * Rnd+1)   ' 产生 0 到 35 之间的随机数。
    
38.         'WScript.Echo myvalue
    
39.         namex=namex&split(str,",")(myvalue-1)
    
40.     Next
    
41. end Function
    

复制代码

dos时代菜鸟

窄口牛 发表于 2018-4-24 09:33
下标越界可能是vbs支持60随机，62就越界？
26+26+10是62

大小写 在 win 下是一样的 ，所以 36 就 够了。
我 刚弄了个脚本 ，应该是可行的。

通常 还是 不要把 脚本 放到 要处理 的文件夹中运行的。

vbs 中数组操作也要注意 ，个数 和 数组下标 不一致，差了一个
下标越界
应该是这个问题
把
For n = 1 To UBound(mArray)
应该改成
For n = 0 To UBound(mArray-1)

dos时代菜鸟

窄口牛 发表于 2018-4-24 10:10
有道理。

改名
与
还原

存储 变更记录 的文件 ，新名 与 旧名 不应用  逗号 作为间隔符号，因为 逗号可以参与 文件命名，文件名中有逗号 就不好处理了，所以 应该用  /  这样不能用来 参与命名  的 字符 作为 两个文件名 间的隔断。

dos时代菜鸟

这个是 cmd 版本 的 ，把 要处理的 目录 拖放给 rnd.cmd 就是 实现变更，并生成一个 记录文件。把记录文件 拖放给  un_rnd.cmd 就会还原变更。
支持子目录

rnd2.cmd

1. @echo off
   
2. setlocal ENABLEDELAYEDEXPANSION
   
3. COLOR 0A
   
4. 
   
5. if "%~1"=="" goto :eof
   
6. set Change="%~dp0%date:/=.%_%time::=.%.txt"
   
7. for /f "delims=" %%x  in ('dir /b /s /a-d "%~1"') do (
   
8.   :rnd2
   
9.     call :rnd1
   
10.     if exist "%%~dpx""!l!" goto rnd2
    
11.   :rnd2_end
    
12. echo "%%x" -----^> "!l!"
    
13. echo "%%~dpx"^|"%%~nxx"^|"!l!" >>!Change!
    
14. ren "%%x" "!l!"
    
15. )
    
16. pause
    
17. goto :eof
    
18. 
    
19. :rnd1
    
20. set "str=abcdefghijklmnopqrstuvwxyz0123456789"
    
21. set "l="
    
22. for /l %%c in (1,1,16) do (
    
23.   set /a "r=!random!%%36"
    
24.   for /l %%e in (0,1,35) do (if %%e equ !r!  set "l=!l!!str:~%%e,1!" )
    
25. )

复制代码

[/code] rnd-cmd-1.2.zip (848 Bytes, 下载次数: 12)

2018-4-25 16:03 上传

点击文件名下载附件
下载积分: 无忧币 -2