[ perentov @ 22.02.2020. 13:15 ] @
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 :) |