PALMisLIFE 討論區

標題: [交流] 專輯檔名整理 PHP Script [列印本頁]

---

作者: Dragoon    時間: 2004-12-14 16:13
標題: [交流] 專輯檔名整理 PHP Script
有一些網路來的檔案在硬碟裡面，每次手動改名改到很煩，手動又花時間，於是用了點時間作了一個 PHP script，看看大家有沒有可能有需要。
這個 script 會產生一個 filename.bat，你可以用 notepad 打開看看結果是否符合預期，如果是的話，用檔案總管雙擊  filename.bat 下去，漂漂亮亮的檔名就整理好了。
如有任何建議也很歡迎。
filename.cmd，需要修改路徑指向到你的 php.exe，另外要載入 iconv：

1. 
   
2. "D:\apache\php-4.3.9\php.exe" -f filename.php
   

複製代碼

filename.php(請注意：內容需要轉為 utf8)：

1. 
   
2. <?php
   
3. 
   
4. if ($handle = opendir('.')) {
   
5. 
   
6.         $mStr = "";
   
7. 
   
8.         $mAryMatch =   array("[","]","album","verycd.com","專輯","(mp3)",".-.","..","...","....","_","(ape)","cd1","cd2","cd3","cd4","cd5","cd6");
   
9.         $mAryReplace = array(""     ,""     ,""          ,""    ,""     ," - ","." ,"."  ,"."   ," ","ape"  ,"d1" ,"d2" ,"d3" ,"d4" ,"d5" ,"d6");
   
10. 
    
11.         while (false !== ($file = readdir($handle))) {
    
12.                 $file = iconv('big5','UTF-8//TRANSLIT',$file);
    
13.                 $fileTemp = $file;
    
14.                 $fileTemp2 = "";
    
15.                 $fileTemp = strtolower($fileTemp);
    
16.                 $fileTemp = str_replace($mAryMatch, $mAryReplace, $fileTemp);
    
17. 
    
18.                 //$mAryTemp = explode(".", $fileTemp);
    
19.                 //$mAryTemp = split("\.", $fileTemp);
    
20.                 $mAryTemp = preg_split ("/[ ,.]+/", $fileTemp);
    
21. 
    
22.                 for ($mI = 0 ; $mI < count($mAryTemp) ; $mI++) {
    
23. 
    
24.                         // 附檔名前要加點
    
25.                         if ($mI == count($mAryTemp) - 1) {
    
26.                                 $fileTemp2 .= ".";
    
27.                         }
    
28. 
    
29.                         // 附檔名不處理大小寫
    
30.                         // 特殊字不處理大小寫
    
31.                         $mAryLower = array("the", "of", "and");
    
32.                         if ( ($mI == count($mAryTemp) - 1) || (in_array($mAryTemp[$mI], $mAryLower)) ) {
    
33.                                 $fileTemp2 .= $mAryTemp[$mI];
    
34.                         // 遇到 ape 轉為大寫 APE
    
35.                         } else if ($mAryTemp[$mI] == "ape") {
    
36.                                 $fileTemp2 .= strtoupper($mAryTemp[$mI]);
    
37.                         // 其他的都字頭字母大寫
    
38.                         } else {
    
39.                                 $fileTemp2 .= ucfirst($mAryTemp[$mI]);
    
40.                         }
    
41. 
    
42.                         // 還沒結束前要加空白隔開
    
43.                         if ($mI != count($mAryTemp) - 1 && $mI != count($mAryTemp) - 2) {
    
44.                                 $fileTemp2 .= " ";
    
45.                         }
    
46.                 }
    
47. 
    
48.                 if ($file != "." && $file != ".." ) {
    
49.                         $mStr .= "rename \"$file\" \"$fileTemp2\"\r\n";
    
50.                 }
    
51.                 // utf8 環境下無法執行以下兩行指令
    
52.                 //exec("rename \"$file\" \"$fileTemp2\"");
    
53.                 //rename($file, $fileTemp2);
    
54.         }
    
55.         $mStr = iconv('UTF-8','big5//TRANSLIT',$mStr);
    
56.         $mFP = fopen("./filename.bat", "w");
    
57.         fwrite($mFP, $mStr);
    
58. 
    
59.         closedir($handle);
    
60. }
    
61. ?>
    

複製代碼

[ Last edited by Dragoon on 2004-12-14 at 16:34 ]

---

歡迎光臨 PALMisLIFE 討論區 (http://f.pil.tw/)

Powered by Discuz! X2.5