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
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 :)