BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Load and Save MS media player playlists", by sdf

two functions that create or read from a WPL file into/outof a type array

Code

;******************************
;Author:          Steven Sulley (AKA SDF (of blitzcoder))
;Date added:     05/Mar/2004
;Notes:               If you have problem with it please Email - steven.sulley1@ntlworld.com OR sdfobc@yahoo.co.uk
;                    Also, come on you've got to credit me at least a little! :¬D
;               sorry about the comments! :¬P
;******************************

Type playlist          ;this will be needed
Field file$               ;the path of the music
End Type

;=========================
;Function for opening WPL playlists
;Args: file$=file to open
;desciption: reads a Windows media player playlist into a type, 'playlist'
;          : just the file names BTW also changes the current directory
;          this is because media player is lazy :-P
;=========================

Function openMPplaylist(file$)
If file<>""
     reading=ReadFile(file$)          ;read the playlist
     For p.playlist=Each playlist     ;del. any current stuff in the mem
          Delete p
     Next
     
     Repeat
          file2$=ReadLine(reading)
          If Instr(file2,"<seq>")     ;if its the start of the music entries
               Repeat
                    file2$=ReadLine(reading)                    ;read the next line
                    If Instr(file2,"<media src=") Then          ;if it is a music path
                         n=Instr(file2,Chr$(34))                    ;get the pos of the first "
                         file3$=Right(file2$,Len(file2$)-n)     
                         n2=Instr(file3$,Chr$(34))               ;and the last "
                         file4$=Left(file3$,n2-1)               ;the result - a clipped path and file name
                         If Instr(file4$,"'") Then file4$=Replace(file4$,"'","'")     ;make it readable to blitz or whatever
                         p.playlist=New playlist                    ;make a new music entry in the mem
                         p\file$=file4$                              ;save the path and file name
                    EndIf
               Until Eof(reading)
          EndIf
     Until Eof(reading)
     CloseFile(reading)                         ;close the file

Repeat                              ;====get path code
          in2=in
          in=Instr(filea,"\",in2+1)
     Until in=0
     eggfile$=Left(filea,in2)
     ChangeDir eggfile               ;====end path code
                                        ;your now ready to load\play them
EndIf
End Function

;===========================
;function for saving a playlist out of a type array, 'playlist'
;===========================
Function saveMPplaylist()
filea$=RequestFile("Save As windows Media Player: Playlist","wpl",1)     ;get the file (B+ code)

Repeat                                        ;====here's where I get the playlist name from
          in2=in                                   
          in=Instr(filea,"\",in2+1)
     Until in=0
     name$=Right(filea,Len(filea$)-in2)     ;====

If filea$<>"" Then
     save=WriteFile(filea$)                    ;create a new file
     WriteLine(save,"<?wpl version="+Chr(34)+"1.0"+Chr(34)+"?>")          ;write in the beginning bit
     WriteLine(save,"<smil>")
     WriteLine(save,"    <head>")
     WriteLine(save,"        <meta name="+Chr(34)+"Generator"+Chr(34)+" content="+Chr(34)+"INSERT PROG NAME HERE"+Chr(34)+"/>")
     WriteLine(save,"        <author/>")                         
     WriteLine(save,"        <title>"+name$+"</title>")     ;see there's that name bit
     WriteLine(save,"    </head>")
     WriteLine(save,"    <body>")
     WriteLine(save,"        <seq>")
     For p.playlist=Each playlist                              ;loop the music
          WriteLine(save,"            <media src="+Chr(34)+p\file$+Chr(34)+"/>")     ;list the entries in the file
     Next                                                            ;end the loop
     WriteLine(save,"        </seq>")     ;finish the file off
     WriteLine(save,"    </body>")
     WriteLine(save,"</smil>")
     CloseFile(save)                              ;close the file
EndIf
End Function

Code software created by Krylar's Kreations