lecteur MP3 aléatoire

dim F%, c%, s%     :Label JOU

width 0,500  :height 0,50  :left 0,screen_x-520  :top 0,20  :border_small 0
Caption 0,"Lecture aléatoire de fichier MP3"  :font_bold 0  :on_click 0,JOU
dlist 1   :sound 2   :timer 3
if file_exists("_ListeMP3.txt")=0 then message "Manque Liste MP3" :terminate
file_load 1,"_ListeMP3.txt"
c%=count(1)
gosub JOU
end

JOU:
  cls   :F%=int(rnd(c%))
  if odd(F%)=0 then F%=F%-1
  if file_exists(item_read$(1,F%))=0 then print "Manque fichier: "+item_read$(1,F%) :end
  print left$(item_read$(1,F%),len(item_read$(1,F%))-4)
  print_locate 450,0  :print item_read$(1,F%+1)
  file_load 2,item_read$(1,F%)  :play 2
  s%=(val(left$(item_read$(1,F%+1),2))*60)+val(right$(item_read$(1,F%+1),2))
  timer_interval 3,s%*1000
  on_timer 3,JOU
  return

EXECUTE_WAIT ...\ffmpeg.exe -i Monfichier.mp3 2>&1 | grep Duration | clip

DIM f$,a$
f$ = "Z:\Allegro.mp3": ' ... à adapter...
DureeMp3(f$)
a$ = CLIPBOARD_STRING_PASTE$: PRINT a$
END

SUB DureeMp3(f$)
' durée du fichier mp3 f$, rendue dans le presse-papier sous la forme hh:mm:ss
DIM_LOCAL q$,scr$
q$ = CHR$(34)
scr$ = "C:\TEMP\Duree.vbs"
FILE_OPEN_WRITE 9,scr$
FILE_WRITELN 9, "FileName = wscript.arguments (0)"
FILE_WRITELN 9, "with CreateObject("+q$+"Scripting.FileSystemObject"+q$+").GetFile(FileName)"
FILE_WRITELN 9, "    Foldername = .ParentFolder"
FILE_WRITELN 9, "    FileName   = .Name"
FILE_WRITELN 9, "End With"
FILE_WRITELN 9, "with CreateObject("+q$+"Shell.Application"+q$+").Namespace(Foldername)"
FILE_WRITELN 9, "        wsh.echo .GetDetailsOf(.Parsename(FileName), 27)"
FILE_WRITELN 9, "end with"
FILE_CLOSE 9
EXECUTE_WAIT "cmd.exe /c cscript.exe "+scr$+" "+q$+f$+q$+" | clip"
FILE_DELETE scr$
END_SUB

dim a$, b%, c%, d$, m%, s%, t$     :Label JOU

width 0,500  :height 0,50  :left 0,screen_x-520  :top 0,20  :border_small 0
Caption 0,"Lecture aléatoire de fichiers MP3"  :font_bold 0  :on_click 0,JOU
dlist 1   :sound 2   :timer 3
a$=file_find_first$
while a$<>"_"
  if upper$(right$(a$,3))="MP3" then item_add 1,a$
  a$=file_find_next$
end_while
file_find_close
c%=count(1)
if c%<2 then message "Le répertoire actif doit contenir au minimum 2 fichiers MP3." :terminate
gosub JOU
end

JOU:
  cls   :b%=int(rnd(c%))+1
  if b%=m% then gosub JOU
  m%=b%
  d$=item_read$(1,b%)
  DUREE(d$)
  t$=trim$(right$(clipboard_string_paste$,7))
  print left$(item_read$(1,b%),len(item_read$(1,b%))-4)
  print_locate 450,0  :print t$
  file_load 2,item_read$(1,b%)  :play 2
  s%=(val(left$(t$,2))*60)+val(right$(t$,2))
  timer_interval 3,s%*1000
  on_timer 3,JOU
  return
  
sub DUREE(d$) :' Merci JL35
  dim_local q$    : q$=chr$(34)
  file_open_write 1,"Duree.vbs"
  file_writeln 1,"FileName = wscript.arguments (0)"
  file_writeln 1,"with CreateObject("+q$+"Scripting.FileSystemObject"+q$+").GetFile(FileName)"
  file_writeln 1,"  Foldername = .ParentFolder"
  file_writeln 1,"  FileName  = .Name"
  file_writeln 1,"End With"
  file_writeln 1,"with CreateObject("+q$+"Shell.Application"+q$+").Namespace(Foldername)"
  file_writeln 1,"  wsh.echo .GetDetailsOf(.Parsename(FileName), 27)" :' mettre 21 pour Win XP au lieu de 27
  file_writeln 1,"end with"
  file_close 1
  execute_wait "cmd.exe /c cscript.exe Duree.vbs "+q$+d$+q$+" | clip"
  file_delete "Duree.vbs"
end_sub