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 Impliqué
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 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
 

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 Impliqué
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

Discussions similaires


Haut Bas