该脚本的主要功能是对文件的名称进行批量修改。
主要功能写在过程Batch_Rename中，一共有6个参数{Path Name Prefix Suffix Format mode}
| mode | 功能 | Path | Name | Prefix | Suffix | Format |
|---|---|---|---|---|---|---|
| 0 | 改名 | 文件夹路径 | 新名字 | 选择需改名文件的类型(.*修改全部文件) | ||
| 1 | 改格式 | 同上 | .旧格式.新格式(将旧格式改为新格式) | |||
| 2 | 添加前后缀 | 同上 | 新前缀 | 新后缀 | 选择修改前后缀文件的类型(.*修改全部文件) | |
| 3 | 删除前后缀 | 同上 | 删除前缀 | 删除后缀 | 选择修改前后缀文件的类型(.*修改全部文件) |
脚本代码如下：
# 批量修改文件名脚本
proc Batch_Mkfile {Path Name Format Num} {# 检查输入的Path是否是文件夹、是否存在if {![expr [file isdirectory $Path] && [file exists $Path]]} {puts [format "You should enter correct path or directory:*%s*" $Path]return}# 检查输入的Format是否以"."开头,仅有英文字母组成if {![regexp {^(\.[a-zA-Z]+)$} $Format]} {puts "You should enter correct Format!"return}# 检查创建的文件数目，至少1个if {$Num <= 0} {puts "At least, You should make 1 file!"return}# 如果输入的Path不是以"/"结尾，就补上"/"if {![string equal [string index $Path end] "/"]} {append Path "/"}for {set epoch $Num} {$epoch > 0} {incr epoch -1} {set File [join [list $Path $Name [format "_%03d" $epoch] $Format] ""]set id [open $File a]close $id}
}#######################################################################################
# mode 功能 Path Name Prefix Suffix Format
# 0 改名 文件夹路径 新名字 "" "" 选择需改名文件的类型(.*修改全部文件)
# 1 改格式 同上 "" "" "" .旧格式.新格式(将旧格式改为新格式)
# 2 添加前后缀 同上 "" 新前缀 新后缀 选择修改前后缀文件的类型(.*修改全部文件)
# 3 删除前后缀 同上 "" 删除前缀 删除后缀 选择修改前后缀文件的类型(.*修改全部文件)
#######################################################################################
proc Batch_Rename {Path Name Prefix Suffix Format mode} {# 检查输入的Path是否是文件夹、是否存在if {![expr [file isdirectory $Path] && [file exists $Path]]} {puts [format "You should enter correct path or directory:*%s*" $Path]return}# 检查输入的Prefix Suffix Format是否都为空，不能全为空if {[string equal $Name ""] && \[string equal $Prefix ""] && \[string equal $Suffix ""] && \[string equal $Format ""]} {puts "No modification!"return}if {![string equal [string index $Path end] "/"]} {append Path "/"}# 如果是mode1，那么需要把两种格式分开# 其余mode不需要if {[expr $mode == 1]} {if {![expr [regexp {^(\.[a-zA-Z]+\.[a-zA-Z]+)$} $Format] || [string match $Format ".*"]]} {puts "You should enter correct Format!"return}set Format_Part [split $Format "."]set OldFormat [join [list "." [lindex $Format_Part 1]] ""]set NewFormat [join [list "." [lindex $Format_Part 2]] ""]set File_List [glob [join [list $Path [format "*%s" $OldFormat]] ""]]} else {if {![expr [regexp {^(\.[a-zA-Z]+)$} $Format] || [string match $Format ".*"]]} {puts "You should enter correct Format!"return}set File_List [glob [join [list $Path [format "*%s" $Format]] ""]]}set epoch 1foreach File $File_List {# WholeName = OldName + OldFormatset Name_Format [file tail $File]set OldName [file rootname $Name_Format]set OldFormat [file extension $Name_Format]switch $mode {0 {file rename $File [join [list $Path [format "%s_%03d" $Name $epoch] $OldFormat] ""]}1 {file rename $File [join [list $Path $OldName $NewFormat] ""]}2 {file rename $File [join [list $Path $Prefix $OldName $Suffix $OldFormat] ""]}3 {set OldName [string trimleft $OldName $Prefix]set OldName [string trimright $OldName $Suffix]file rename $File [join [list $Path $OldName $OldFormat] ""]}default {puts "Please Enter Correct Mode!"return}}incr epoch 1}
}Batch_Mkfile "F:/Tcl/Batch_Rename/Test/" "v" ".v" 10Batch_Rename "F:/Tcl/Batch_Rename/Test/" "" "WORD" "word" ".word" 3
过程Batch_Mkfile的功能是批量创建文件，便于生成Batch_Rename的测试文件。
38-50行：检查输入的参数是否正确；
52-54行：用户输入的路径可能不以“/”结尾，这种情况补上“/”；
56-73行：由于用户可以自定义需要修改的文件类型，因此需要将目录下对应的文件放入File_List中。由于mode=1输入的文件类型类似.txt.doc(将.txt格式修改为.doc)，因此需要分离出.txt和.doc，然后再获取文件，因此这种mode需要单独处理；
75-108行：给文件改名的主要部分。
78-80行：首先取出文件名，例如txt_001.txt；然后分割成txt_001和.txt；
83-85行：改名。将txt_001改为$Name，再补上序号_001，其余部分不变；
87-89行：改格式。将.txt修改为$NewFormat；
91-93行：添加前后缀。在txt_001前后加上$Prefix和$Suffix；
95-99行：删除前后缀。在$OldName左边删除$Prefix，右边删除$Suffix。