comment récupérer le nom de fichier mp3 dans un m3u??

jojo2006

XLDnaute Occasionnel
bonjour,

dans un fichier m3u j'aimerai récuperer le nom du fichier mp3

exemple

#EXTINF:210 - It Aint Me Babe.mp3

j'aimerai recupérer "It Aint Me Babe" seulement, en sachant que le 210 varie donc n'a pas toujours la meme longueur.


Merci à tous
 

jojo2006

XLDnaute Occasionnel
Re : comment récupérer le nom de fichier mp3 dans un m3u??

merci jmps

mais j'ai pas tout compris

Sub M3U()
Dim Ligne As String, Debut As Byte, Longueur As Byte, Chanson As String
Open "c:\monfichier.m3u" For Input As #1 'pourquoi open??
While Not EOF(1) '??
Line Input #1, Ligne '??
If Left(Ligne, 8) = "#EXTINF:" Then
Debut = InStr(Ligne, "-") + 2 'c koi instr?
Longueur = Len(Ligne) - 3 - Debut 'len=longueur?
Chanson = Mid(Ligne, Debut, Longueur) 'c koi mid, milieu?
MsgBox Chanson
End If
Wend
Close
End Sub
 

jojo2006

XLDnaute Occasionnel
Re : comment récupérer le nom de fichier mp3 dans un m3u??

mon code est insérer dans un userform dans excel.
jmps
en fait je demandais des explications de ton code car je n'ai pas tout compris. si tu pouvais détailler stp. merci
 

Hervé

XLDnaute Barbatruc
Re : comment récupérer le nom de fichier mp3 dans un m3u??

bonjour jojo, josé

une autre syntaxe possible en remplacement de :

Code:
Debut = InStr(Ligne, "-") + 2
Longueur = Len(Ligne) - 3 - Debut
Chanson = Mid(Ligne, Debut, Longueur)
Code:
Chanson = LTrim(Split(Split(Ligne, "-")(1), ".")(0))
salut :)
 

Discussions similaires


Haut Bas