今天看到論壇上有個人問這個問題：

有很多圖片要重新命名,因為原來的位數不夠,要增加到6位,我的檔名命名的規則是前面兩個英文字母后面是4位和5位的數字,格式(AA0001.jpg,AA10001.jgp).現在要改為:(AA000001.Jpg,AA010001.Jpg).
規則就是如果檔名是4數字的在英文字母后面加2個"0",如果是5位在英文字母后面加一個"0",後面的保持不變.
前面的英文字母是不一樣的.規則:AA,AB,AC.......ZX,AY,ZZ.

我對程式碼做了一些擴充套件，只要最終是8位的字首都可以實現相應的規則更名，程式碼如下：

param#定義引數
(
[string] $picdirectory="d:\temp\",#定義查詢檔案的路徑
[string] $outputlog="d:\log\outlog.log"#定義日誌寫入路徑)
$filenames=Get-ChildItem -Path $picdirectory -Include *.jpg -Recurse#查詢目錄下JPG檔案foreach($filename in $filenames)#根據查詢的檔案進行輪詢
{
    $filelength=$filename.name.length   # 求出檔名長度
    $addstring=$filename.name.substring(0,2)  #定義檔名初始值        for($i=$filelength;$i -lt 12;$i++)   #求出檔名中需要加入多少個0，根據長度進行輪詢
        {
           $addstring=$addstring+"0"  # 在字串後面加入0
        }        $newfilename=$addstring+$filename.name.substring(2,($filename.name.length-2))       #求出新的檔名稱  
         Rename-Item -Path $filename.fullname -NewName $newfilename
      #將檔案更名為新的名稱
 if ($?)
 {
 $writestring="檔案"+$filename.name+"在"+(Get-Date).tostring("yyyyMMdd-HHmm")+"分修改為"+$newfilename #得出需要寫入日誌的內容
 $writestring|Out-File -Append -FilePath $outputlog -Encoding unicode  #將日誌寫入日誌檔案中
 }
}
 最終結果我們來看看，貢獻幾張我和兒子的PP,哈哈：

相關推薦