立即注册 登录
角色 返回首页

小龙的家园 https://juese.cc/1 [收藏] [复制] [RSS] 这里是小龙的家园

日志

如何批量替换文件名和文件夹名的方法windows xp、2003、Vista、win7用VBscript实现 .. ...

热度 10已有 7536 次阅读2010-6-27 09:37 |个人分类:常识与知识|

如何批量替换文件名和文件夹名的方法windows xp、2003、Vista、win7


方法一、使用软件Bulk Rename Utility 下载这个软件


方法二、用VBscript实现

有这么一些文件,比如:
照片_001.jpg
照片_002.jpg
照片 _003.jpg
有时候因为某种需要,想把“照片”批量改为自己定义的好听的名字,比如改为
avill_001.jpg
avill_002.jpg
avill_003.jpg
假如有1000张甚至更多的图片时,用手动来改的话不把你累死,也会被烦死的。
正因为这种需 要,又不想安装什么软件。就直接用vbScript来实现了,即简单又方便,只要把下面的代码复制保存为 rename.vbs 就可以使用了。

' 批量替换文件名称
'
 author : avill
'
 upate  :2006.2.28
'

Dim NewLine
NewLine 
= vbcrlf
TabStop 
= ""

function isFolderExists(fso,folderPath)
  
if folderPath = empty then exit function
  
If not FSO.FolderExists(folderPath) Then
     
msgbox "foloder not exists!please try agian"
     folderPath 
= InputBox("批 量替换文件名称"& vbcrlf &"请 输入路径[绝对路径],为空则自动退出","")
     
call isFolderExists(fso,folderPath)     
  
end if
end function

Function doRepWord(Files,filePath,repWord,resWord)

    
Dim S,file,count,newName
        repWord 
= split(repWord,";")
        count 
= 0
        
Set fso = CreateObject("Scripting.FileSystemObject")

        
For Each File In Files
          
for each repStr in repWord
           
if instr(File.Name,repStr)<>0 then
             newName 
= replace(file.name,repStr,resWord)
             
If not fso.FileExists(filePath&"\"&newName) Then
                
'msgBox "exists"             
                file.name = newName
                count 
= count + 1
             
end if
           
end if
          
next 
        
Next

    doRepWord 
= count

End Function

sub reName()
  
dim s,folderPath,repWord,resWord
  folderPath 
= "F:\Exercise\xhtml_info\taobao_images"
  folderPath 
= ""
  folderPath 
= InputBox("批 量替换文件名称"& vbcrlf &"请 输入路径[绝对路径]","")
  
  
  
Set fso = CreateObject("Scripting.FileSystemObject")
  
call isFolderExists(fso,folderPath)
  
if folderPath = empty then exit sub
  repWord 
= InputBox("希 望要替换掉的字符,多个字符请用分号[;]隔开!","")
  resWord 
= InputBox("希 望将字符替换为:!",""
 
  
Set Folder = FSO.GetFolder(folderPath)
  
Set Files = Folder.Files
 
  
If 1 = Files.Count Then
     S 
= S & "There is 1 file" & NewLine
  
Else
     S 
= S & "There are " & Files.Count & " files" & NewLine
  
End If

  
If Files.Count <> 0 Then
     s 
= s & "replace files:" & doRepWord(Files,folderPath,repWord,resWord) &NewLine
  
End If

  
msgbox s 
  
end sub

call reName()


同样地,下面的代码是实现 批量替换文件夹名称,复制下面代码保存为 refolder.vbs 用法同上.

' 批量替换文件夹名称
'
 author : avill
'
 update : 2006.2.26
'

Dim NewLine
NewLine 
= vbcrlf
TabStop 
= ""

function isFolderExists(fso,folderPath)
  
if folderPath = empty then exit function
  
If not FSO.FolderExists(folderPath) Then
     
msgbox "foloder not exists!please try agian"
     folderPath 
= InputBox("请 输入路径[绝对路径],为空则自动退出","")
     
call isFolderExists(fso,folderPath)     
  
end if
end function

Function doRepWord(Files,repWord,resWord)

    
Dim S,file,count
        repWord 
= split(repWord,";")
        count 
= 0
        
For Each File In Files
          
for each repStr in repWord
          
if instr(File.Name,repStr)<>0 then
             file.name 
= replace(file.name,repStr,resWord)
             count 
= count + 1
          
end if
          
next 
        
Next

    doRepWord 
= count

End Function

sub reName()
  
dim s,folderPath,repWord,resWord
  folderPath 
= "F:\Exercise\xhtml_info\taobao_images"
  folderPath 
= InputBox("批 量替换文件夹名称"& chr(13&"请输入路径[绝对路径]","")
  
  
  
Set fso = CreateObject("Scripting.FileSystemObject")
  
call isFolderExists(fso,folderPath)
  
if folderPath = empty then exit sub
  repWord 
= InputBox("希 望要替换掉的字符,多个字符请用分号[;]隔开!","")
  resWord 
= InputBox("希 望将字符替换为:!",""
 
  
Set Folder = FSO.GetFolder(folderPath)
  
Set Files = Folder.SubFolders

  
If 1 = Files.Count Then
     S 
= S & "There is only 1 folder"  &NewLine
  
Else
     S 
= S & "There are " & Files.Count &" folders "&NewLine
  
End If

  
If Files.Count <> 0 Then
     s 
= s & "replace folderName:" & doRepWord(Files,repWord,resWord) &NewLine
  
End If


if 1 = 2 then

  
Set Files = Folder.Files
 
  
If 1 = Files.Count Then
     S 
= S & "There is 1 file" & NewLine
  
Else
     S 
= S & "There are " & Files.Count & " folders" & NewLine
  
End If

  
If Files.Count <> 0 Then
     s 
= s & "replace folder:" & doRepWord(Files,repWord,resWord) &NewLine
  
End If

end if

  
msgbox s 
  
end sub

call reName()

每个文件名(如:abc_1.doc abc_2.doc等)里都有一个共同的字符:“abc”。现在想把所有相同的文件名的:“abc”替换成:“ABC”。应该怎么作呢?


方法三、使用dos命令中的for命令。实现如下:通过cmd进入这些文件所在的 文件夹后,用一下命令

for /f "tokens=1 delims=abc" %a in ('dir *.doc /b') do ren abc%a ABC%a
其中:蓝色 的abc表示将要被替换的字符,红色的ABC表示要替换为的字符。

===========================================================================

关于for的帮助,可以使用for /? 进行查看。

I:tmp>for /?
对一组文件中的每一个文件执行某个特定命令。

FOR %variable IN (set) DO command [command-parameters]

  %variable  指定一个单一字母可替换的参数。
  (set)      指定一个或一组文件。可以使用通配符。
  command    指定对每个文件执行的命令。
  command-parameters
             为特定命令指定参数或命令行开关。

在批处理文件中使用 FOR 命令时,指定变量请使用 %%variable
而不要用 %variable。变量名称是区分大小写的,所以 %i 不同于 %I.

如果命令扩展名被启用,下列额外的 FOR 命令格式会受到
支持:

FOR /D %variable IN (set) DO command [command-parameters]

    如果集中包含通配符,则指定与目录名匹配,而不与文件
    名匹配。

FOR /R [[drive:]path] %variable IN (set) DO command [command-parameters]

    检查以 [drive:]path 为根的目录树,指向每个目录中的
    FOR 语句。如果在 /R 后没有指定目录,则使用当前
    目录。如果集仅为一个单点(.)字符,则枚举该目录树。

FOR /L %variable IN (start,step,end) DO command [command-parameters]

    该集表示以增量形式从开始到结束的一个数字序列。
    因此,(1,1,5) 将产生序列 1 2 3 4 5,(5,-1,1) 将产生
    序列 (5 4 3 2 1)。

FOR /F ["options"] %variable IN (file-set) DO command [command-parameters]
FOR /F ["options"] %variable IN ("string") DO command [command-parameters]
FOR /F ["options"] %variable IN ('command') DO command [command-parameters]

    或者,如果有 usebackq 选项:

FOR /F ["options"] %variable IN (file-set) DO command [command-parameters]
FOR /F ["options"] %variable IN ("string") DO command [command-parameters]
FOR /F ["options"] %variable IN ('command') DO command [command-parameters]

    filenameset 为一个或多个文件名。继续到 filenameset 中的
   下一个文件之前,每份文件都已被打开、读取并经过处理。
    处理包括读取文件,将其分成一行行的文字,然后将每行
    解析成零或更多的符号。然后用已找到的符号字符串变量值
    调用 For 循环。以默认方式,/F 通过每个文件的每一行中分开
    的第一个空白符号。跳过空白行。您可通过指定可选 "options"
    参数替代默认解析操作。这个带引号的字符串包括一个或多个
    指定不同解析选项的关键字。这些关键字为:

        eol=c           - 指一个行注释字符的结尾(就一个)
        skip=n          - 指在文件开始时忽略的行数。
        delims=xxx      - 指分隔符集。这个替换了空格和跳格键的
                          默认分隔符集。
        tokens=x,y,m-n  - 指每行的哪一个符号被传递到每个迭代
                          的 for 本身。这会导致额外变量名称的分配。m-n
                          格式为一个范围。通过 nth 符号指定 mth。如果
                          符号字符串中的最后一个字符星号,
                          那么额外的变量将在最后一个符号解析之后
                          分配并接受行的保留文本。
        usebackq        - 指定新语法已在下类情况中使用:
                          在作为命令执行一个后引号的字符串并且一个单
                          引号字符为文字字符串命令并允许在 filenameset
                          中使用双引号扩起文件名称。

    某些范例可能有助:

FOR /F "eol=; tokens=2,3* delims=, " %i in (myfile.txt) do @echo %i %j %k

    会分析 myfile.txt 中的每一行,忽略以分号打头的那些行,将
    每行中的第二个和第三个符号传递给 for 程序体;用逗号和/或
    空格定界符号。请注意,这个 for 程序体的语句引用 %i 来
    取得第二个符号,引用 %j 来取得第三个符号,引用 %k
    来取得第三个符号后的所有剩余符号。对于带有空格的文件
    名,您需要用双引号将文件名括起来。为了用这种方式来使
    用双引号,您还需要使用 usebackq 选项,否则,双引号会
    被理解成是用作定义某个要分析的字符串的。

    %i 专门在 for 语句中得到说明,%j 和 %k 是通过
    tokens= 选项专门得到说明的。您可以通过 tokens= 一行
    指定最多 26 个符号,只要不试图说明一个高于字母 'z' 或
    'Z' 的变量。请记住,FOR 变量是单一字母、分大小写和全局的;而且,
    同时不能有 52 个以上都在使用中。

    您还可以在相邻字符串上使用 FOR /F 分析逻辑;方法是,
    用单引号将括号之间的 filenameset 括起来。这样,该字符
    串会被当作一个文件中的一个单一输入行。

    最后,您可以用 FOR /F 命令来分析命令的输出。方法是,将
    括号之间的 filenameset 变成一个反括字符串。该字符串会
    被当作命令行,传递到一个子 CMD.EXE,其输出会被抓进
    内存,并被当作文件分析。因此,以下例子:

      FOR /F "usebackq delims==" %i IN (`set`) DO @echo %i

    会枚举当前环境中的环境变量名称。

另外,FOR 变量参照的替换已被增强。您现在可以使用下列
选项语法:

     ~I         - 删除任何引号("),扩充 %I
     %~fI        - 将 %I 扩充到一个完全合格的路径名
     %~dI        - 仅将 %I 扩充到一个驱动器号
     %~pI        - 仅将 %I 扩充到一个路径
     %~nI        - 仅将 %I 扩充到一个文件名
     %~xI        - 仅将 %I 扩充到一个文件扩展名
     %~sI        - 扩充的路径只含有短名
     %~aI        - 将 %I 扩充到文件的文件属性
     %~tI        - 将 %I 扩充到文件的日期/时间
     %~zI        - 将 %I 扩充到文件的大小
     %~$PATH:I   - 查找列在路径环境变量的目录,并将 %I 扩充
                   到找到的第一个完全合格的名称。如果环境变量名
                   未被定义,或者没有找到文件,此组合键会扩充到
                   空字符串

可以组合修饰符来得到多重结果:

     %~dpI       - 仅将 %I 扩充到一个驱动器号和路径
     %~nxI       - 仅将 %I 扩充到一个文件名和扩展名
     %~fsI       - 仅将 %I 扩充到一个带有短名的完整路径名
     %~dp$PATH:i - 查找列在路径环境变量的目录,并将 %I 扩充
                   到找到的第一个驱动器号和路径。
     %~ftzaI     - 将 %I 扩充到类似输出线路的 DIR

在以上例子中,%I 和 PATH 可用其他有效数值代替。%~ 语法
用一个有效的 FOR 变量名终止。选取类似 %I 的大写变量名
比 较易读,而且避免与不分大小写的组合键混淆。



路过

雷人

握手

鲜花

鸡蛋

评论 (0 个评论)