求个批量改名的bat

窄口牛

上帝是笨蛋 发表于 2018-4-21 11:51
On Error Resume Next
   
    Dim objFSO, objFolder, objFile, fLog, Argus, strSuffix, mFolde ...

窄口牛

找到个神器，批处理之家的

1. :: rstr.bat --- 生成随机字符串
   
2. :: v1.00 / 2013-6-12 / tmplinshi
   
3. 
   
4. @echo off
   
5. setlocal enabledelayedexpansion
   
6. 
   
7. if "%~1" == "/?" goto usage
   
8. 
   
9. :: ------------------- 默认值 -------------------
   
10. set d_len=10
    
11. set d_StrList=abcdefghijklmnopqrstuvwxyz0123456789
    
12. :: ----------------------------------------------
    
13. 
    
14. 
    
15. 
    
16. :: =================
    
17. :: 生成随机字符串
    
18. :: =================
    
19. ::
    
20. 
    
21. rem ############## 获取字符个数
    
22. if "%~1" == "" (set len=%d_len%) else (set "len=%~1")
    
23. 
    
24. rem 随机“最小字符个数-最大字符个数”
    
25. if "%len:-=%" neq "%len%" (
    
26.         for /f "tokens=1,2 delims=- " %%a in ("%len%") do (
    
27.                 set /a min_len = %%a, max_len = %%b
    
28.                 set /a "len = %random% %% (max_len-min_len+1) + min_len"
    
29.         )
    
30. )
    
31. 
    
32. rem ############## 获取字符串
    
33. if "%~2" == "" (
    
34.         set StrList=%d_StrList%
    
35. ) else (
    
36.         set "StrList=%~2"
    
37. 
    
38.         rem 替换正则
    
39.         set StrList=!StrList:\d=0123456789!
    
40.         set StrList=!StrList:[0-9]=0123456789!
    
41.         set StrList=!StrList:[a-z]=abcdefghijklmnopqrstuvwxyz!
    
42.         set StrList=!StrList:[a-zA-Z]=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!
    
43. )
    
44. 
    
45. rem ############## 计算字符串长度
    
46. call :StrLen "%StrList%"
    
47. 
    
48. rem ############## 生成随机字符串
    
49. set _out=
    
50. for /l %%n in (1 1 %len%) do (
    
51.         set /a pos = !random! %% StrLen
    
52.         for %%p in (!pos!) do set _out=!_out!!StrList:~%%p,1!
    
53. )
    
54. 
    
55. rem ############## 输出结果
    
56. echo,!_out!
    
57. exit /b
    
58. 
    
59. 
    
60. 
    
61. :: =================
    
62. :: 计算字符串长度
    
63. :: =================
    
64. ::
    
65. :StrLen <string>
    
66. set "_StrList=%~1"
    
67. set StrLen=1
    
68. 
    
69. for %%a in (2048 1024 512 256 128 64 32 16) do (
    
70.         if "!_StrList:~%%a!" neq "" (
    
71.                 set /a StrLen += %%a
    
72.                 set _StrList=!_StrList:~%%a!
    
73.         )
    
74. )
    
75. set _StrList=!_StrList!fedcba9876543210
    
76. set /a StrLen += 0x!_StrList:~16,1!
    
77. goto :eof
    
78. 
    
79. 
    
80. 
    
81. :: =================
    
82. :: 显示帮助
    
83. :: =================
    
84. ::
    
85. :usage
    
86. echo %~nx0 --- 生成随机字符串
    
87. echo,
    
88. echo 用法: %~n0 [字符个数 ^| 最小字符个数-最大字符个数] [字符串]
    
89. echo         [字符个数]        默认值: 10
    
90. echo         [字符串]        默认值: abcdefghijklmnopqrstuvwxyz0123456789
    
91. echo                         可以使用四个正则: \d [0-9] [a-z] [a-zA-Z]
    
92. echo,
    
93. echo 示例: %~n0
    
94. echo       %~n0 10
    
95. echo       %~n0 10-15
    
96. echo       %~n0 10 "0123&abc"
    
97. echo       %~n0 "" \d@-_

复制代码

1. @echo off
   
2. Setlocal enabledelayedexpansion
   
3. FOR /L %%n IN (1,1,16) DO 随机工具 18>>2.txt
   
4. pause
   

复制代码

uvsmz8895oa4jfrgqn
da73i2rfufmv6o3yzf
xvt61uejftfmd81iig
ein74i394n9fh5z07h
3isunu0vtnpwt7d89y
xqxqswu410vdws5yzf
e4amvbanw3i72rr7gg
1zpu1tkv3qrrbhi33t
slbpiwh90trlpp9gmp
jyhz0nhjktx2lbmvek
m38chgxr7w0hrxfmep
33g40qlxuvv61sxdjy
tyvis6k9bbe6d6ux0d
k1c3eeh8vx38r2bvid
2xprfgc9bvl88wu480
o8xx0tt0tvl8ar833t

窄口牛

我这里也是提示下标错误，会不会是因为中文路径？

窄口牛

窄口牛

下标越界可能是vbs支持60随机，62就越界？
26+26+10是62

窄口牛

有道理。