Changeset 4

Timestamp:

Jan 17, 2015, 5:06:09 PM (9 years ago)

Author:

chronos

Message:

• Added: Support to generate XSPF playlist format with cleaner title and album extracted from file names.

File:

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

trunk/GenPlaylist.pas

@@ -2 +2 @@
 
 uses
-  SysUtils;
+  SysUtils, Classes;
   
 type
@@ -17 +17 @@
 end;
   
-procedure FileSearch(const PathName: string; ExtList: array of string; BasePath : string) ;
+procedure FileSearch(Files: TStringList; const PathName: string; ExtList: array of string; BasePath : string) ;
 var 
   Rec: TSearchRec;
@@ -31 +31 @@
       if Rec.Name = '..' then continue
       else if Rec.Name = '.' then continue
-      else if (Rec.Attr and faDirectory) > 0 then FileSearch(Path + Rec.Name, ExtList, BasePAth)
+      else if (Rec.Attr and faDirectory) > 0 then FileSearch(Files, Path + Rec.Name, ExtList, BasePAth)
       else if InStrArray(LowerCase(ExtractFileExt(Rec.Name)), ExtList) then begin
         //WriteLn('File: ' + Rec.Name);
         ItemFileName := ParamStr(2) + Copy(Path + Rec.Name, Length(BasePath) + 2, High(Integer));
         //ItemFileName := StringReplace(ItemFileName, ' ', '%20', [rfReplaceAll]);
-        WriteLn(ItemFileName);
+        Files.Add(ItemFileName);
       end;
     until FindNext(Rec) <> 0;
@@ -44 +44 @@
 end;
 
+procedure GenerateM3U;
+var
+  Files: TStringList;
+  I: Integer;
 begin
+  Files := TStringList.Create;
   WriteLn('#EXTM3U');
-  FileSearch(ParamStr(1), ['.mp3', '.ac3', '.flac', '.it', '.m4a', '.wma', '.s3m', '.ogg'], ParamStr(1));
+  FileSearch(Files, ParamStr(1), ['.mp3', '.ac3', '.flac', '.it', '.m4a', '.wma', '.s3m', '.ogg'], ParamStr(1));
+  for I := 0 to Files.Count - 1 do
+    WriteLn(Files[I]);
+  Files.Free;
+end;
+
+procedure GenerateXSPF;
+var
+  Files: TStringList;
+  I: Integer;
+  FileName: string;
+begin
+  Files := TStringList.Create;
+  WriteLn('<?xml version="1.0" encoding="UTF-8"?>');
+  WriteLn('<playlist version="1" xmlns="http://xspf.org/ns/0/">');
+  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]);
+    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('</track>');
+  end;
+  WriteLn('</trackList>');
+  WriteLn('</playlist>');
+  Files.Free;
+end;
+
+begin
+  GenerateXSPF;
 end.