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

[jojo2006]

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]

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]

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

 

[jojo2006]

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

merci beaucoup pour ces précisions nickel

a+

 

[Hervé]

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

bonjour jojo, josé

une autre syntaxe possible en remplacement de :

Debut = InStr(Ligne, "-") + 2
Longueur = Len(Ligne) - 3 - Debut
Chanson = Mid(Ligne, Debut, Longueur)

Chanson = LTrim(Split(Split(Ligne, "-")(1), ".")(0))

salut 🙂

 

[MichelXld]

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

bonjour à vous

ce lien pourra peut etre t'interesser

https://www.excel-downloads.com/resources/liste-fichiers-mp3.234/


bon apres midi
MichelXld