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

J

jojo2006

XLDnaute Occasionnel

• 25 Septembre 2006

• #2

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

 

Vote positif 0 Vote négatif

J

jojo2006

XLDnaute Occasionnel

• 25 Septembre 2006

• #3

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

 

Vote positif 0 Vote négatif

J

jojo2006

XLDnaute Occasionnel

• 25 Septembre 2006

• #4

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

merci beaucoup pour ces précisions nickel

a+

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 25 Septembre 2006

• #5

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 25 Septembre 2006

• #6

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

 

Vote positif 0 Vote négatif