Appli de creation de fichier m3u

Soyez le premier à donner votre avis sur cette source.

Vue 11 007 fois - Téléchargée 455 fois

Description

Bonjour

Voila j'en avais marre d'etre obligé a chaque fois de demarrer WMP pour créer une playlist
donc voici une tite appli qui crée les playlists

donnez votre avis merci

Source / Exemple :


Imports System.IO
Public Class Form1
    Dim file() As String
    Private Sub btn_open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_open.Click
        OpenFileDialog1.ShowDialog()
    End Sub
    Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        'récuperation des differents fichiers selectionné
        Dim i As Integer
        file = OpenFileDialog1.FileNames
        While i < file.Length
            i = i + 1
            list_files.Items.Add(file(i - 1))
        End While
    End Sub

    Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        Close()
    End Sub

    Private Sub AProposToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AProposToolStripMenuItem.Click
        Form2.Show()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'type de fichier autorisé
        OpenFileDialog1.Filter = "Fichiers Audio (*.mp3,*.wma,*.ogg,*.aac)|*.mp3;*.wma;*.ogg;*.aac"
        SaveFileDialog1.Filter = "Fichiers Playlist (*.m3u)|*.m3u"
    End Sub

    Private Sub SauvegarderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SauvegarderToolStripMenuItem.Click
        'ouverture du savefiledialog
        SaveFileDialog1.FileName = tb_name.Text
        If SaveFileDialog1.ShowDialog(Me) = DialogResult.OK Then

            Dim sw As StreamWriter = New StreamWriter(SaveFileDialog1.OpenFile)
            sw.WriteLine("#EXTM3U")
            Try
                Dim i As Integer = 0
                While i < list_files.Items.Count
                    sw.WriteLine("#EXTINF:" + list_files.Items(i))
                    sw.WriteLine(file(i))
                    System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
                End While
            Finally
                If Not (sw Is Nothing) Then
                    sw.Close()
                End If
            End Try

        End If
    End Sub

    Private Sub NouvellePlaylistToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NouvellePlaylistToolStripMenuItem.Click
        tb_name.Clear()
        list_files.Items.Clear()
    End Sub

    Private Sub btn_save_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_save.Click
        SaveFileDialog1.FileName = tb_name.Text
        If SaveFileDialog1.ShowDialog(Me) = DialogResult.OK Then

            Dim sw As StreamWriter = New StreamWriter(SaveFileDialog1.OpenFile)
            sw.WriteLine("#EXTM3U")
            Try
                Dim i As Integer = 0
                While i < list_files.Items.Count
                    sw.WriteLine("#EXTINF:" + list_files.Items(i))
                    sw.WriteLine(file(i))
                    System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
                End While
            Finally
                If Not (sw Is Nothing) Then
                    sw.Close()
                End If
            End Try

        End If
    End Sub
End Class

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
lundi 31 décembre 2007
Statut
Membre
Dernière intervention
31 décembre 2007

completement idiot ce code, si vous passés votre fichier audio a quelqu'un ou changez d'emplacement le dossier, le repertoire change.
quand vous creez une playlist il ne faut pas le repertoire.
il suffit que le fichier m3u créé soit dans le repertoire de vos chansons et dans ce cas meyttez juste les nom des chansons sans oublier l'extention (comme ca meme si vous deplacez vos dossiers audio votre liste reste valide).
ex:

titre1.mp3
titre2.mp3
titre3.mp3

cela suffit largement a un fichier m3u, je ne comprend pas pourquoi vous vous compliquez la vie ;-)
Messages postés
918
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
27 octobre 2008
10
J'ai enfin trouvé (enfin, en fait , vu !!) comment noté ta source ..;
donc un 7/10 pour toi
Messages postés
918
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
27 octobre 2008
10
Et aussi un truc qui serait sympa, c'est de pouvoir enregistrer les chemin d'accès aux fichiers en absolu ou en relatif à la playlist
Messages postés
12
Date d'inscription
mercredi 7 novembre 2007
Statut
Membre
Dernière intervention
2 septembre 2010

oui je suis d'accord avec toi
je me suis quan meme renseigné sur se qu'etait ces chiffre et et se sont les temps des chansons en seconde j'aurai pu le faire mais j'ai trouvé sa plutot inutile.
apres j'ai encore plein d'amelioration a faire dessus comme la possibilité de supprimer deschansons de la playlist ou la modification d'une playlist !

merci pour ton avis
Messages postés
918
Date d'inscription
vendredi 3 août 2007
Statut
Membre
Dernière intervention
27 octobre 2008
10
ton code n'est pas mal mais il a, à mon avis, un gros défaut !
Les fichiers M3U généré ne correspondent pas à la norme établie pour les playlists.
si je génère une playlist avec ta source, j'obtiens par exemple ceci :
#EXTM3U
#EXTINF:F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\01-Highway Star.mp3
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\01-Highway Star.mp3
#EXTINF:F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\02-Smoke On The Water.mp3
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\02-Smoke On The Water.mp3
#EXTINF:F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\03-Child In Time.mp3
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\03-Child In Time.mp3
#EXTINF:F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\04-The Mule.mp3
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\04-The Mule.mp3
#EXTINF:F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\05-Strange Kind Of Woman.mp3
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\05-Strange Kind Of Woman.mp3
#EXTINF:F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\06-Lazy.mp3
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\06-Lazy.mp3
#EXTINF:F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\07-Space Truckin'.mp3
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\07-Space Truckin'.mp3

... Alors que, par exemple, l'utilitaire Tag&Rename me génère :

#EXTM3U
#EXTINF:403,Deep Purple - Highway Star
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\01-Highway Star.mp3
#EXTINF:737,Deep Purple - Smoke On The Water
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\02-Smoke On The Water.mp3
#EXTINF:456,Deep Purple - Child In Time
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\03-Child In Time.mp3
#EXTINF:568,Deep Purple - The Mule
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\04-The Mule.mp3
#EXTINF:592,Deep Purple - Strange Kind Of Woman
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\05-Strange Kind Of Woman.mp3
#EXTINF:627,Deep Purple - Lazy
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\06-Lazy.mp3
#EXTINF:1194,Deep Purple - Space Truckin'
F:\Ripp\Audio\Deep Purple\Made In Japan\Disk 1\07-Space Truckin'.mp3

Alors, d'accord, tu vas me répondre que cela n'empèche pas l'utilisation de ta playlist dans un lecteur média, mais bon !

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.