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

[kingfadhel]

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.

 

[Hasco]

Bonjour,

Avec le fichier 777.m3u dans le même répertoire que le classeur:

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

 

[kingfadhel]

Bonjour,
Merci pour la réponse,
La macro récupère les données mais sont toutes identiques à la première ligne.

 

[Hasco]

Re,

Oui, je vais vous faire travailler un peu.

Remplacez la ligne qui écrit les valeurs dans la feuille par celle-ci:

If j > 0 Then Sheets("Feuil1").Range("A1").Resize(j) = Application.Transpose(final)

Bonne journée

 

[kingfadhel]

Re,

Oui, je vais vous faire travailler un peu.

Remplacez la ligne qui écrit les valeurs dans la feuille par celle-ci:

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

 

[Hasco]

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]

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:

 

[kingfadhel]

Bonsoir,
@Jacky67 c'est exactement ça.

Merci.