KeyFansClub

首页 » - 主题讨论区 - » 牡丹林 » 有关文件重命名的问题(已解决)
8888 - 2009/9/29 20:15:00
今天down了本漫画,可是打开一看顺序是完全颠倒过来的,请问有办法或软件批量重命名过来吗?谢谢
水羊 - 2009/9/29 21:11:00
沒有.......按照頁數慢慢排吧.........
我也是這樣一個一個弄出180張的.........
ddokgame - 2009/9/29 22:09:00
图片格式的话打开那个文件夹,右键=》“排列图标” =》“名称”,点几次就会倒转顺序了,用图片查看器看也是从排列位置最前面的图开始浏览。
批量重命名文件的话好像Adobe Bridge有这个功能~


如果是什么漫画电子书的话就不清楚了。。。:miffy12:
古雷 - 2009/9/29 22:14:00
LZ去找找软件吧
其实应该就是个很简单的批处理的问题,可惜我不会甚至不知道找什么书来学
mulesqqq - 2009/9/29 22:23:00
給個圖吧
或是用單句表示命名的規則
列如:
abc(/d/d)表示abc後面加2個數字

如果規則有點複雜,可以試試看使用den4b 寫的Renamer
可以使用RegEX,甚至使用Pascal修改命名
Prz - 2009/9/30 1:25:00
注意以下方法仅适用于认真仔细的同学,因为错误的改名文件会导致灾难性后果。如果没有自信,请先备份所有文件


打开命令行 (cmd),cd到图片所在的目录。

1. 敲入:
cmd /V:ON

2. 敲入:
set cnt=0 && for /F "delims=|" %a in ('dir /O-N /B *.jpg]') do @( set /a cnt = !cnt! + 1 > NUL && echo ren %a% !cnt!.jpg )
其中,红色部分根据你自己的图片类型改动后缀

执行后,在命令行窗口会打印出一个列表:
ren 原文件名 新文件名

3. 请仔细检查,如果新文件名都符合要求,那么把刚才那个命令行的蓝色部分去掉,再执行一遍,就会真正的重命名所有的文件了。
xlfdll - 2009/9/30 1:54:00
我改名是这样弄的:

打开一个记事本,扔以下代码进去:
strComputer = "."
numJPG = 1

FullPath = InputBox("请输入文件所在路径", "指定文件路径", "")
'FullPath = WScript.Arguments(0)

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFiles = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='" & FullPath & "'} Where " _
        & "ResultClass = CIM_DataFile")

For Each objFile In colFiles
    strEnd = Right(objFile.Name, 4)
    strNewName = objFile.Drive & objFile.Path & CStr(numJPG) & strEnd
    errResult = objFile.Rename(strNewName)
    numJPG = numJPG +1
Next

然后存成一个vbs,执行,传入一个目录,这样那个目录的所有文件就都变成1、2、3、4……这样的文件名了……

我记得我原来发过这个代码的解释……不过好像不是在这里- -
1
查看完整版本: 有关文件重命名的问题(已解决)