Subj : CopyM3U
To   : All
From : Nick Andre
Date : Mon Sep 28 2020 05:53:34

(*         COPYM3U 1.0 Copyright (c) Nick J. Andre, Ltd. Freeware.        *)
(*                                                                        *)
(* CopyM3U creates a script/batch file that copies the files listed in    *)
(* the specified .M3U or .WPL file to a directory of your choice. Should  *)
(* be able to be compiled on any Pascal compiler and should also be easy  *)
(* to modify for Linux/non-Windows environments.                          *)

program copym3u;
uses dos;

var i,o:text;s:string[255];x:integer;
begin
  writeln('CopyM3U 1.0 Copyright (c) by Nick J. Andre, Ltd. Freeware.');
  writeln;
  if paramstr(2)>'' then
   begin
    assign(i,paramstr(1));reset(i);assign(o,'copym3u.cmd');rewrite(o);
    if ioresult=0 then
     begin
      while not eof(i) do
       begin
        readln(i,s);
        x:=pos('<media src="',s);
        if x>0 then
         begin
          s:=copy(s,x+11,length(s));s:=copy(s,1,length(s)-2);
         end
         else
         begin
          x:=pos('<',s);if x>0 then s:='';x:=pos('>',s);if x>0 then s:='';
         end;
        if (s<>'') and (s[1]<>'#') then
         writeln(o,'copy '+s+' '+paramstr(2));
       end;
      close(i);close(o);
     end
     else
      writeln('Error opening '+paramstr(1));
   end
   else
    writeln('Usage: copym3u [source .M3U or .WPL file] [destination]');
end.

Nick

--- Renegade vY2Ka2
 * Origin: Joey, do you like movies about gladiators? (618:500/24)

.