Changeset 5 for trunk

Timestamp:

Feb 2, 2015, 10:50:53 PM (10 years ago)

Author:

chronos

Message:

• Replace underscore by space in file name.

File:

• trunk/GenPlaylist.pas (modified) (2 diffs)

trunk/GenPlaylist.pas

@@ -61 +61 @@
   Files: TStringList;
   I: Integer;
-  FileName: string;
+  Creator: string;
+  Album: string;
+  Location: string;
+  LocationOriginal: string;
+  Title: string;
+  Part: string;
+  TrackNum: string;
+  Out: Integer;
+  NameRemoved: Boolean;
 begin
   Files := TStringList.Create;
@@ -68 +76 @@
   WriteLn('<trackList>');
   FileSearch(Files, ParamStr(1), ['.mp3', '.ac3', '.flac', '.it', '.m4a', '.wma', '.s3m', '.ogg'], ParamStr(1));
-  for I := 0 to Files.Count - 1 do begin
-    FileName := StringReplace(Files[I], '&', '&amp;', [rfReplaceAll]);
+  for I := 0 to Files.Count - 1 do begin  
+    LocationOriginal := StringReplace(Files[I], '&', '&amp;', [rfReplaceAll]);
+    Location := StringReplace(LocationOriginal, '_', ' ', [rfReplaceAll]);
+    Album := ExtractFileName(ExtractFileDir(Location));
+    NameRemoved := False;
+    
+    // Detect Creator from directory name
+    if Pos(' - ', Album) > 0 then begin
+      Creator := Copy(Album, 1, Pos(' - ', Album) - 1);
+      Delete(Album, 1, Length(Creator) + 3);
+    end else Creator := Album;
+    Title := Copy(ExtractFileName(Location), 1, Length(ExtractFileName(Location)) - Length(ExtractFileExt(Location)));
+    
+    // Remove starting with album name from title
+    Part := Creator + ' - ';
+    if Copy(Title, 1, Length(Part)) = Part then begin
+      Delete(Title, 1, Length(Part));
+      NameRemoved := True;
+    end;
+      
+    // Try to load Creator from name
+    if (Pos(' - ', Title) > 0) and (not NameRemoved) then begin
+      Part := Copy(Title, 1, Pos(' - ', Title) - 1);
+      // Avoid track number which can be first title part
+      if not TryStrToInt(Part, Out) then begin
+        Creator := Part;
+        Delete(Title, 1, Length(Creator) + 3);
+      end;
+    end;
+    // Detect track number from title
+    if Pos(' - ', Title) > 0 then begin
+      TrackNum := Copy(Title, 1, Pos(' - ', Title) - 1);
+      if TryStrToInt(TrackNum, Out) then        
+        Delete(Title, 1, Length(TrackNum) + 3)
+        else TrackNum := '';
+    end else TrackNum := '';
+    
     WriteLn('<track>');
-    WriteLn('<title>' + Copy(ExtractFileName(FileName), 1, Length(ExtractFileName(FileName)) - Length(ExtractFileExt(FileName))) + '</title>');
-    WriteLn('<location>' + FileName + '</location>');
-    WriteLn('<album>' + ExtractFileName(ExtractFileDir(FileName)) + '</album>');
+    WriteLn('<title>' + Title + '</title>');
+    WriteLn('<location>' + LocationOriginal + '</location>');
+    WriteLn('<album>' + Album + '</album>');
+    WriteLn('<creator>' + Creator + '</creator>');
+    WriteLn('<trackNum>' + TrackNum + '</trackNum>');
     WriteLn('</track>');
   end;