Création d'une Playlist

' Playlist: constitution d'une playlist m3u pour VLC
DIM f$, fm$, fl$, rep$, s$, sr$, a$, el$
DIM i%, j%, tpr%, nsel%, w0, h0, x%, ll%
DIM Musel$(500)
LABEL Chrep, Retrep, Dir, Sel, Desel, Tousel, Razsel, Mkf

fm$ = "Z:\Dir.tmp": ' ***** fichier de manoeuvre, à ajuster *****
fl$ = "Z:\Playlist.m3u": ' ***** fichier résultat, à ajuster *****

w0 = 640: h0 = 800
ll% = 300
WIDTH 0, w0: HEIGHT 0, h0
CAPTION 0, "CONSTITUTION D'UNE PLAYLIST"
tpr% = 5: BUTTON 5: TOP 5, tpr%: LEFT 5, 10: HEIGHT 5, 25: WIDTH 5, 2*ll%-80
FONT_BOLD 5: FONT_SIZE 5, 12
CAPTION 5, "RÉPERTOIRE": ON_CLICK 5, Chrep
BUTTON 6: TOP 6, tpr%: LEFT 6, 2*ll%-60: HEIGHT 6, 25: WIDTH 6, 80
FONT_BOLD 6: FONT_SIZE 6, 12
CAPTION 6, "OK": ON_CLICK 6, Mkf

LIST 41: TOP 41, tpr%+45: LEFT 41, 10: WIDTH 41, ll%: HEIGHT 41, h0-tpr%-90
FONT_NAME 41, "Arial": FONT_SIZE 41, 10
ON_CLICK 41, Sel

LIST 42: TOP 42, tpr%+45: LEFT 42, ll%+20: WIDTH 42, ll%: HEIGHT 42, h0-tpr%-90
FONT_NAME 42, "Arial": FONT_SIZE 42, 10
ON_CLICK 42, Desel
ALPHA 43: TOP 43, tpr%+25: LEFT 43, ll%+100: WIDTH 43, 160
FONT_BOLD 43: FONT_SIZE 43, 12: CAPTION 43, "Sélect:  0"
ALPHA 45: TOP 45, tpr%+25: LEFT 45, 100: WIDTH 45, 160
FONT_BOLD 45: FONT_SIZE 45, 12: CAPTION 45, "Total: 0"
BUTTON 7: TOP 7, tpr%+27: LEFT 7, ll%-50: WIDTH 7, 60: HEIGHT 7, 17
CAPTION 7, "TOUT": ON_CLICK 7, Tousel
BUTTON 8: TOP 8, tpr%+27: LEFT 8, 2*ll%-40: WIDTH 8, 60: HEIGHT 8, 17
CAPTION 8, "RAZ": ON_CLICK 8, Razsel
nsel% = 0

END

Chrep:
' Choix du répertoire des musiques
OPEN_DIALOG 98
f$ = FILE_NAME$(98)
IF f$ = "_" THEN GOTO Retrep
FOR i% = LEN(f$) TO 1 STEP -1
    IF MID$(f$, i%, 1) = "" THEN EXIT_FOR
NEXT i%
rep$ = LEFT$(f$, i%)
CAPTION 5, "Rép: " + rep$
GOSUB Dir
FILE_LOAD 41, fm$: FILE_DELETE fm$
CAPTION 45, "Total: " + STR$(COUNT(41))
Retrep:
DELETE 98
RETURN

Dir:
' Liste des images du répertoire choisi dans fm$
sr$ = DIR_CURRENT$
DIR_CHANGE rep$
FILE_OPEN_WRITE 1, fm$
f$ = FILE_FIND_FIRST$
WHILE f$ <> "_"
    s$ = UPPER$(RIGHT$(f$, 4))
    IF s$ = ".MP3" OR s$ = ".WMA" THEN FILE_WRITELN 1, f$
    f$ = FILE_FIND_NEXT$
END_WHILE
FILE_FIND_CLOSE
FILE_CLOSE 1
DIR_CHANGE sr$
RETURN

Sel:
x% = ITEM_INDEX(41): ' élément sélectionné
ITEM_ADD 42, ITEM_READ$(41, x%)
nsel% = nsel% + 1: Musel$(nsel%) = rep$ + ITEM_READ$(41, x%)
CAPTION 43, "Sélect:  " + STR$(nsel%)
RETURN

Desel:
x% = ITEM_INDEX(42): a$ = ITEM_READ$(41, x%): ' élément désélectionné
ITEM_DELETE 42, x%
FOR i% = 1 TO nsel%
    IF INSTR(Musel$(i%), a$) > 0 THEN EXIT_FOR
NEXT i%
nsel% = nsel% - 1
FOR j% = nsel% TO i%: ' tassement du tableau
    Musel$(i%) = Musel$(i%+1)
NEXT j%
CAPTION 43, "Sélect:  " + STR$(nsel%)
RETURN

Tousel:
IF COUNT(41) > 0
    FOR i% = 1 TO COUNT(41): ' sélectionner tout
        ITEM_ADD 42, ITEM_READ$(41, i%)
        nsel% = nsel% + 1: Musel$(nsel%) = rep$ + ITEM_READ$(41, i%)
    NEXT i%
END_IF
CAPTION 43, "Sélect:  " + STR$(nsel%)
RETURN

Razsel:
CLEAR 42: nsel% = 0 : ' raz des sélections
RETURN

Mkf:
' Création du fichier m3u (playlist)
' Structure:
' En-tête:  #EXTM3U
' Puis, pour chaque morceau:
' #EXTINF:durée,nom du morceau  (durée, ou -1 si durée implicite)
' Chemin du morceau (relatif ou absolu)
IF nsel% < 1 THEN RETURN
FILE_OPEN_WRITE 1, fl$
    FILE_WRITELN 1, "#EXTM3U"
    FOR i% = 1 TO nsel%
        el$ = Musel$(i%)
        FOR j% = LEN(el$) TO 1 STEP -1
            IF MID$(el$, j%, 1) = "" THEN EXIT_FOR
        NEXT j%
        FILE_WRITELN 1, "#EXTINF:-1," + MID$(el$, j%+1, LEN(el$)-j%)
        FILE_WRITELN 1, el$
    NEXT i%
FILE_CLOSE 1
RETURN

sr$ = DIR_CURRENT$
rep$ = sr$

CAPTION 5, "Rép: " + rep$
gosub Dir
FILE_LOAD 41, fm$: FILE_DELETE fm$
CAPTION 45, "Total: " + STR$(COUNT(41))

fm$ = "Z:\Dir.tmp": ' ***** fichier de manoeuvre, à ajuster *****
fl$ = "Z:\Playlist.m3u": ' ***** fichier résultat, à ajuster *****

fm$ = "Dir.tmp": ' ***** fichier de manoeuvre, à ajuster *****
fl$ = "Playlist.m3u": ' ***** fichier résultat, à ajuster *****