最近文件的重命名有点问题就做了个脚本试试,不知为何就变好了

hoebec

在电脑看漫画图片时,有时候会碰到长度不一样的数字排列,比如这种:
1.jpg
2.jpg
.
.
.
21.jpg
像这种排列,看图软件是按数字大小顺序打开图片,但在重命名时很多软件就是按字符的顺序了,10会比2排位更前
为了根治数字位数长度不对看着不舒服症,做了个脚本试试,发现效果还可以,有兴趣的可以来研究,是vbs脚本

1. Set objFSO = CreateObject("Scripting.FileSystemObject")
   
2. Set Dic = CreateObject("Scripting.Dictionary")
   
3. Input=WScript.Arguments(0)
   
4. 
   
5. For Each i in objFSO.GetFolder(Input).files
   
6.   f=f+1
   
7.   fb=objFSO.GetBaseName(i)
   
8.   For r=1 to Len(fb)
   
9.     w=Mid(fb,Len(fb)-r+1,1)
   
10.     If IsNumeric(w) and sufstat<>1 Then
    
11.       sufstat=1
    
12.       sufstr=Right(fb,r-1)
    
13.       numstrsuf=Len(fb)-r+1
    
14.     End If
    
15.     If not IsNumeric(w) and sufstat=1 and prestat<>1 Then
    
16.       prestat=1
    
17.       prestr=Left(fb,Len(fb)-r+1)
    
18.       numstrpre=Len(fb)-r+1
    
19.     End If
    
20.     If sufstat=1 and prestat=1 Then Exit For
    
21.   Next
    
22.   If prestat=Empty Then
    
23.     prestr=Empty
    
24.     numstrpre=0
    
25.   End If
    
26.   numstrlen=numstrsuf-numstrpre
    
27.   numstr=Mid(fb,numstrpre+1,numstrlen)
    
28.   If sufstat=Empty or numstr=Empty Then
    
29.     wscript.echo i.path&vbCrLf&vbCrLf&"not exist number-string"
    
30.     wscript.quit
    
31.   End If
    
32.   numlen=numstrlen
    
33.   sufstat=Empty
    
34.   prestat=Empty
    
35.   numstr=Empty
    
36.   numstrsuf=Empty
    
37.   numstrpre=Empty
    
38.   numstrlen=Empty
    
39.   If f=1 Then Exit For
    
40. Next
    
41. 
    
42. For Each i in objFSO.GetFolder(Input).files
    
43.   fb=objFSO.GetBaseName(i)
    
44.   For r=1 to Len(fb)
    
45.     w=Mid(fb,Len(fb)-r+1,1)
    
46.     If IsNumeric(w) and sufstat<>1 Then
    
47.       sufstat=1
    
48.       suf=Right(fb,r-1)
    
49.       numstrsuf=Len(fb)-r+1
    
50.     End If
    
51.     If not IsNumeric(w) and sufstat=1 and prestat<>1 Then
    
52.       prestat=1
    
53.       pre=Left(fb,Len(fb)-r+1)
    
54.       numstrpre=Len(fb)-r+1
    
55.     End If
    
56.     If sufstat=1 and prestat=1 Then Exit For
    
57.   Next
    
58.   If prestat=Empty Then
    
59.     pre=Empty
    
60.     numstrpre=0
    
61.   End If
    
62.   numstrlen=numstrsuf-numstrpre
    
63.   numstr=Mid(fb,numstrpre+1,numstrlen)
    
64.   If sufstat=Empty or numstr=Empty Then
    
65.     wscript.echo i.path&vbCrLf&vbCrLf&"not exist number-string"
    
66.     wscript.quit
    
67.   End If
    
68.   If prestr<>pre or sufstr<>suf Then
    
69.     wscript.echo i.path&vbCrLf&vbCrLf&"not match presuf string"&vbCrLf&vbCrLf&"first-prestr="&prestr&vbCrLf&"first-sufstr="&sufstr&vbCrLf&vbCrLf&"current-pre="&pre&vbCrLf&"current-suf="&suf
    
70.     wscript.quit
    
71.   End If
    
72.   If numstrlen>numlen Then numlen=numstrlen
    
73.   suf=Empty
    
74.   pre=Empty
    
75.   sufstat=Empty
    
76.   prestat=Empty
    
77.   numstr=Empty
    
78.   numstrsuf=Empty
    
79.   numstrpre=Empty
    
80.   numstrlen=Empty
    
81. Next
    
82. 
    
83. For Each i in objFSO.GetFolder(Input).files
    
84.   fb=objFSO.GetBaseName(i)
    
85.   ext=objFSO.GetExtensionName(i)
    
86.   numvar=Mid(fb,Len(prestr)+1,Len(fb)-Len(prestr)-Len(sufstr))
    
87.   ntp=numlen
    
88.   stg=string(ntp,"0")
    
89.   numstr=Right(stg&numvar,ntp)
    
90.   namestr=prestr&numstr&sufstr&"."&ext
    
91.   If not Dic.Exists(namestr) Then
    
92.     Dic.Add namestr,null
    
93.    Else
    
94.     wscript.echo "duplicate file-name:"&vbCrLf&vbCrLf&namestr
    
95.     wscript.quit
    
96.   End If
    
97.   numvar=Empty
    
98.   numstr=Empty
    
99.   namestr=Empty
    
100. Next
     
101. Dic.RemoveAll
     
102. 
     
103. For Each i in objFSO.GetFolder(Input).files
     
104.   Dic.Add i.name,null
     
105. Next
     
106. amount=0
     
107. For Each i in objFSO.GetFolder(Input).files
     
108.   fb=objFSO.GetBaseName(i)
     
109.   ext=objFSO.GetExtensionName(i)
     
110.   If Dic.Exists(i.name) Then
     
111.     numvar=Mid(fb,Len(prestr)+1,Len(fb)-Len(prestr)-Len(sufstr))
     
112.     ntp=numlen
     
113.     stg=string(ntp,"0")
     
114.     numstr=Right(stg&numvar,ntp)
     
115.     namestr=prestr&numstr&sufstr&"."&ext
     
116.     ftn=Left(i.path,Len(i.path)-Len(i.name))&namestr
     
117.     If not objFSO.FileExists(ftn) Then
     
118.       i.name=namestr
     
119.       amount=amount+1
     
120.     End If
     
121.     numvar=Empty
     
122.     numstr=Empty
     
123.     namestr=Empty
     
124.   End If
     
125. Next
     
126. 
     
127. wscript.echo amount&" files renamed"

复制代码

研究之前,记得先备份文件

ay7

我的电脑里这种数字1、2……10、11都是照着顺序来排列的，但是到了第一卷这种名称时就会乱序，变成一、二、三、五、六、四这样的排序，实在是不知道该说什么才好。