Création play liste m3u

Soyez le premier à donner votre avis sur cette source.

Vue 19 816 fois - Téléchargée 826 fois

Description

C'est un petit code sans prétentions qui permet de créer un fichier m3u et de le lire directement avec Windows media player.
Il y a quelques chemins d'accés qui sont spécifiques à mon PC, il suffit de le changer directement dans le code. (il n'y a à le faire qu'a un ou deux endroits).

Voilà, on voit comment écrire dans un fichier, plus quelques astuces sur les listes, pour n'afficher que l'essentiel tout en conservant l'ensemble des informations.

Source / Exemple :


'**************************************************
'     GESTION DES BOUTONS
'**************************************************
Dim sauvegarde As Boolean

Private Sub ajoute_Click()
On Error GoTo errhandler:
  sauvegarde = False
  List1.AddItem File1.FileName
  Listtravail.AddItem Dir1.path + "\" + File1.FileName
  List1.ListIndex = List1.ListCount - 1
errhandler:
End Sub

Private Sub creer_Click()
  saveData
  
  Dim text$
  text = "C:\Program Files\Windows Media Player\wmplayer.exe d:\fichier.m3u"
  Shell text, vbNormalFocus
End Sub

Private Sub repertoire_Click()
  Dim i%
  For i = 0 To File1.ListCount - 1
    File1.ListIndex = i
    List1.AddItem File1.FileName
    Listtravail.AddItem Dir1.path + "\" + File1.FileName
  Next i
  sauvegarde = False
  File1.ListIndex = 0
End Sub

Private Sub vider_Click()
  Do While List1.ListCount <> 0
    List1.RemoveItem 0
    Listtravail.RemoveItem 0
  Loop
  sauvegarde = False
End Sub

Private Sub retire_Click()
On Error GoTo errhandler:
  sauvegarde = False
  Listtravail.RemoveItem List1.ListIndex
  List1.RemoveItem List1.ListIndex
errhandler:
End Sub

Private Sub sauve_Click()
  saveData
End Sub

'**************************************************
'     GESTION DES fenetres
'**************************************************

Private Sub Dir1_Change()
  File1.path = Dir1.path
End Sub

Private Sub Drive1_Change()
  Dir1.path = Drive1.Drive
End Sub

Private Sub File1_DblClick()
  ajoute_Click
End Sub

Private Sub List1_DblClick()
  retire_Click
End Sub

Private Sub Form_Load()
On Error GoTo errhandler
  sauvegarde = True 'la liste est celle sauvegardé
  Drive1.Drive = "d:\"
  Dir1.path = "d:\musiques"
  ouvrir
errhandler:
End Sub

'************************************
'       PROCEDURES
'************************************

Public Sub saveData()

  ' demande à l'utilsateur du lieu d'enregistrement
  path = "d:\fichier.m3u"
  sauvegarde = True
  ' il a t'y donné qqch ?
  If path <> "" Then
    ' voui !
    creation path
    Else
    If path <> "NO" Then _
      MsgBox "Impossible d'enregistrer le fichier au format " _
             & filtre, vbCritical + vbOKOnly
    End If
End Sub

Public Sub creation(ByVal path$)
  Dim f%, i%
  f = FreeFile
  Open path For Output As #f
    For i = 0 To Listtravail.ListCount - 1
      Print #f, Listtravail.List(i)
    Next i
  Close #f
End Sub

Public Sub ouvrir()
  Dim ligne$, f%
  On Error GoTo errhandler:
  f = FreeFile
  Open "d:\fichier.m3u" For Input As #f
  Do While Not EOF(f)
    Line Input #f, ligne
    traiter ligne
  Loop
  
errhandler:
  Close #f
End Sub

Public Sub traiter(ByVal ligne As String)
Dim pos As Integer, temp As Integer
On Error GoTo fin:
  pos = 0
  Listtravail.AddItem ligne
  temp = InStr(pos + 1, ligne, "\")
  Do While temp <> 0
    pos = InStr(pos + 1, ligne, "\")
    temp = InStr(pos + 1, ligne, "\")
  Loop
  List1.AddItem Mid(ligne, pos + 1, Len(ligne) - pos)
  Exit Sub
fin:
  MsgBox Err.Description
End Sub

Conclusion :


RAS

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.