请问大家有见过创建快捷方式的批处理不

527907615

kfk 发表于 2018-1-10 18:04
好，我再改。

你的图中，看上去.的前后有空格，这是必须的吗？

不是必须的，方便你辩认打上去而己，只要有点就可以了

kfk

▲如果文件己存在会更名失败能跳过或忽略继续执行其它文件更名不 （因为剪贴板里的内容有时可能会跟其中一个文件的名称一致）

好像不是你说的那样。
从代码分析和我这边的实际运行来看，出错的原因是：
文件 与 文件夹 之间的重名冲突。
▲你再看看你那里是不是这种情况？
新版已修正。

还有，由于你的序号要加.点，
则如果存在 无扩展名的文件，重命名冲突时会被加上 .(2) 这样的形式，而这可能会被程序当成是扩展名而影响使用。
▲这种情况似乎没法处理，因为你要加的是.点。

其他详见▼说明（较前有增补）。

kfk

用(剪贴板中的)文字(批量)重命名.vbs

说明：

若剪贴板中无文字，则询问，以免莫明其妙。

处理非法字符（用的是简单的Replace语句，一符一行，便于自改）：
▲默认将 \/:*?"<>| 替换成 全角，以接近原貌。
▲默认将 Tab符 替换成 全角空格。
▲默认将 换行符 替换成 句号。这样你可以一次复制多行文字，自动并成一行。

支持批量。
支持 文件与文件夹并存 的情况。

重名会加序号。
▲默认添加 .(2) 形式（◆会影响到 无扩展名的文件，可据情自改）。

会跳过所有合格的项（即，能不改就不改）。

下载vbs：

代码：

1. Set oArgs = WScript.Arguments
   
2. If oArgs.Count = 0 Then WScript.Quit
   
3. 
   
4. sText = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
   
5. 
   
6. If IsNull(sText) Then
   
7.         sText = InputBox("剪贴板中无文字", WScript.ScriptName)
   
8.         If sText = "" Then WScript.Quit
   
9. End If
   
10. 
    
11. sText = Replace(sText, "\", "＼")
    
12. sText = Replace(sText, "/", "／")
    
13. sText = Replace(sText, ":", "：")
    
14. sText = Replace(sText, "*", "＊")
    
15. sText = Replace(sText, "?", "？")
    
16. sText = Replace(sText, """", "”")
    
17. sText = Replace(sText, "<", "＜")
    
18. sText = Replace(sText, ">", "＞")
    
19. sText = Replace(sText, "|", "｜")
    
20. sText = Replace(sText, vbTab, "　")
    
21. sText = Replace(sText, vbCrLf, "。")
    
22. sText = Replace(sText, vbCr, "。")
    
23. sText = Replace(sText, vbLf, "。")
    
24. 
    
25. Set oFSO = CreateObject("Scripting.FileSystemObject")
    
26. 
    
27. For i = 0 To oArgs.Count - 1
    
28. 
    
29.         If oFSO.FileExists(oArgs.Item(i)) Then
    
30.                 sub_Rename oFSO.GetFile(oArgs.Item(i)), "." & oFSO.GetExtensionName(oArgs.Item(i))
    
31. 
    
32.         ElseIf oFSO.FolderExists(oArgs.Item(i)) Then
    
33.                 sub_Rename oFSO.GetFolder(oArgs.Item(i)), ""
    
34. 
    
35.         End If
    
36. Next
    
37. 
    
38. 
    
39. 
    
40. Sub sub_Rename(oItem, sExtName)
    
41.         sNameOld = oFSO.GetFileName(oArgs.Item(i))
    
42. 
    
43.         Do
    
44.                 If j>0 Then sN = ".(" & j+1 & ")"        '◆加序号
    
45.                 sNameNew = sText & sN & sExtName
    
46.                 '▼跳过所有合格的项，能不改就不改：
    
47.                 If sNameNew = sNameOld Then Exit Sub
    
48.                 j=j+1
    
49. 
    
50.                 sPath = oFSO.GetParentFolderName(oArgs.Item(i)) & "\"
    
51.         Loop While oFSO.FileExists(sPath & sNameNew) Or oFSO.FolderExists(sPath & sNameNew)
    
52. 
    
53.         oItem.Name = sNameNew
    
54. End Sub
    

复制代码

527907615

kfk 发表于 2018-1-11 20:16
用(剪贴板中的)文字(批量)重命名.vbs

说明：

是不是上传错了？我下载的这个给文件更名时非但没在括号前加.而且还弹出更名询问对话框，感觉会影响效率（默认就是确认是否会更好呢）

kfk

527907615 发表于 2018-1-12 16:32
是不是上传错了？我下载的这个给文件更名时非但没在括号前加.而且还弹出更名询问对话框，感觉会影响效率 ...

我这里试的结果：
1▲用 wscript "脚本路径" //u 没问题。
2▲直接用vbs则（路径处理）有问题。

你先试试1，告诉我结果。
我再完善一下2。

527907615

kfk 发表于 2018-1-12 19:17
我这里试的结果：
1▲用 wscript "脚本路径" //u 没问题。
2▲直接用vbs则（路径处理）有问题。

创建了快捷方式目标路径用 wscript "脚本路径" //u  再运行试了试然后发现原来显示扩展名跟不显示扩展名的更名效果是不样的，还有那个 . 是加在扩展名的前面不是加在括号的前面

kfk

527907615 发表于 2018-1-12 20:24
创建了快捷方式目标路径用 wscript "脚本路径" //u  再运行试了试然后发现原来显示扩展名跟不显示扩展名 ...

看来 “改名可在资源管理器中(逐项)撤消”那句 会受 显隐扩展名 的影响。
已删除。

请回53楼下载新版：
https://bbs.kafan.cn/forum.php?m ... 06&pid=41306765

最好 两种运行方式+显隐扩展名 都试一下。

527907615

kfk 发表于 2018-1-13 01:04
看来 “改名可在资源管理器中(逐项)撤消”那句 会受 显隐扩展名 的影响。
已删除。

谢谢亲，辛苦了，这回终于完美了