Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Ucitavanje M3U liste u ListView

[es] :: .NET :: .NET Desktop razvoj :: Ucitavanje M3U liste u ListView

[ Pregleda: 745 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

perentov

Član broj: 342227
Poruke: 1
*.dynamic.mtsdoo.com.



Profil

icon Ucitavanje M3U liste u ListView22.02.2020. u 13:15 - pre 28 meseci
Pozdrav

Pravim sebi mali TV player pa sam zaglavio sa ucitavanjem liste.
Po internetu nigde ne mogu da nadjem neki "tv player source code" pa da iskoristim po nesto :)
Ovo sto imam skinuto sa interneta nije lose ali radi samo pola posla - ako neko moze da pomogne ...

Code:
Sub Read_m3u()
        Dim result As DialogResult = OpenFileDialog1.ShowDialog()
        Dim Lines As String() = IO.File.ReadAllLines(OpenFileDialog1.FileName)
        Dim dt As New DataTable
        Dim row(1) As String

        For i As Integer = 0 To Lines.Length - 1
            Dim line As String = Lines(i).ToString.Trim
            If line.StartsWith("#EXTINF") Then

???############ row(0) = line.Replace("#EXTINF:-1", "").Trim - ovo nije dobro !!!
???############ row(0) = "Prikazi samo posle zadnjeg zareza u redu" (ime kanala) ???

            ElseIf line.StartsWith("http://") Then
                row(1) = line.Trim
                Dim a As ListViewItem
                a = ListView1.Items.Add(row(0))
                a.SubItems.Add(row(1))
            End If
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Read_m3u()
End Sub



Unapred zahvaljujem :)
 
Odgovor na temu

[es] :: .NET :: .NET Desktop razvoj :: Ucitavanje M3U liste u ListView

[ Pregleda: 745 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.