Hobbies - WinAmp

WinAmp is OLD - but it still works and I still like it.
And I've got quite a few WinAmp playlists on my PC, which I would like to use on my Android phone or in our car.
I'm sure there are solutions to get these playlists to work on my phone, and I could stream from my phone to the car (instead of using an SD card), but that is all a bit of a hassle.
Just copying the files in the playlist to another medium (phone or SD card) would be a lot simpler.
And since doing that manually is tedious - and I'm too lazy to get it to work in a shell script or something like that - I used the Oracle database to make life easier. Overkill, I know, but why not :-)

So the package below is a very simple procedure to split an m3u(8) playlist and generate copy commands for MS-DOS - or Windows command line, if you prefer.
Very basic, but it works - and might be useful for other similar applications as well.

Package

Package
	Name	ted_winamp
	Source	package ted_winamp is function m3u_copy_files_dos ( p_m3u in clob ,p_destination in varchar2 ) return clob; end ted_winamp;

Package Body

Package Body
	Name	ted_winamp
	Source	package body ted_winamp is function m3u_copy_files_dos ( p_m3u in clob ,p_destination in varchar2 ) return clob is /* input: (WinAmp) m3u[8] playlist like this: #EXTM3U #EXTINF:284,Y:\MP3\Artist\Album\Song Title.mp3 Album\Song Title.mp3 [...] output: list of MS-DOS copy commands like this: copy "Y:\MP3\Artist\Album\Song Title.mp3" C:\Temp [...] */ cursor c_lines(p_lf in varchar2) is select substr(f, instr(f, ',') + 1) as f from (select to_char(column_value) as f from table(apex_string.split_clobs(p_m3u, p_lf)) -- ) where f like '#EXTINF:%'; l_lf varchar2(10); l_result clob; begin dbms_lob.createtemporary(l_result, true, dbms_lob.call); if dbms_lob.instr(lob_loc => p_m3u, pattern => chr(13) \|\| chr(10)) > 0 then l_lf := chr(13) \|\| chr(10); elsif dbms_lob.instr(lob_loc => p_m3u, pattern => chr(13)) > 0 then l_lf := chr(13); elsif dbms_lob.instr(lob_loc => p_m3u, pattern => chr(10)) > 0 then l_lf := chr(10); else raise_application_error(-20000, 'No end-of-line character(s) found'); end if; for r_lines in c_lines(p_lf => l_lf) loop dbms_lob.append(dest_lob => l_result, src_lob => 'copy "' \|\| r_lines.f \|\| '" ' \|\| p_destination \|\| chr(13) \|\| chr(10)); end loop; return l_result; end m3u_copy_files_dos; end ted_winamp;

Info

Code

Package

Package Body