XL 2010 Résolu: Extraction lignes à partir de fichier .m3u

kingfadhel

XLDnaute Impliqué
Bonsoir,
je souhaite extraire les lignes à partir d'un fichier liste m3u
le fichier commence par #EXTM3U
et chaque ligne à extraire commence par #EXTINF
et je voudrais que chaque ligne se copie dans une ligne à part.
 

Fichiers joints

Roblochon

XLDnaute Accro
Bonjour,

Avec le fichier 777.m3u dans le même répertoire que le classeur:
VB:
Sub ExtraireM3u()
    Dim Contenu() As String, final() As String
    Dim i As Integer, j As Integer
    Dim f: f = FreeFile()
    Open ThisWorkbook.Path & "\777.m3u" For Input As #f
    Contenu = Split(Input(LOF(f), f), vbLf)
    Close #f
    For i = 0 To UBound(Contenu)
        If Left(Contenu(i), 7) = "#EXTINF" Then
            j = j + 1
            ReDim Preserve final(1 To j)
            final(j) = Contenu(i)
        End If
    Next
    If j > 0 Then Sheets("Feuil1").Range("A1").Resize(j) = final
End Sub
Ou installer le complément power query et faire une requête

Bonne journée
 
Dernière édition:

Roblochon

XLDnaute Accro
Re,

Oui, je vais vous faire travailler un peu.

Remplacez la ligne qui écrit les valeurs dans la feuille par celle-ci:
VB:
If j > 0 Then Sheets("Feuil1").Range("A1").Resize(j) = Application.Transpose(final)
Bonne journée
 

kingfadhel

XLDnaute Impliqué
Re,

Oui, je vais vous faire travailler un peu.

Remplacez la ligne qui écrit les valeurs dans la feuille par celle-ci:
VB:
If j > 0 Then Sheets("Feuil1").Range("A1").Resize(j) = Application.Transpose(final)
Bonne journée

Merci, c'est presque parfais, reste que la chaîne à extraire n'est pas complète.

Extraction actuelle du type :
#EXTINF:-1,Arabe | Abu Dhabi Drama

Extraction souhaitée:
#EXTINF:-1,Arabe | Abu Dhabi Dramahttp://quisqueyatv.live:25461/live/ecuaplay/TIk0JZ8rNi/13790.m3u8

ça fini par m3u8 dans ce cas. donc les lignes à extraire sont délimitées par: #EXTINF: et .m3u8

Merci
 

Fichiers joints

Roblochon

XLDnaute Accro
Bonjour,

J'ai répondu à la demande telle qu'exprimé en post #1.
La prochaine fois essayez de donner tous les éléments dès la première demande.
De plus qu'avez-vous tenté pour corriger?

Cordialement
 

Jacky67

XLDnaute Accro
Bonsoir,
je souhaite extraire les lignes à partir d'un fichier liste m3u
le fichier commence par #EXTM3U
et chaque ligne à extraire commence par #EXTINF
et je voudrais que chaque ligne se copie dans une ligne à part.
Bonjour à tous
Si la structure est toujours la même..
Dans l'exemple, 777.m3u dans le même répertoire que ce classeur:
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas