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

Ucitavanje M3U liste u ListView

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

[ Pregleda: 134 | 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 3 meseca
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: 134 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

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