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
 

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

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG