[trakktour]

(12-05-18, 10:05 AM)mrnooo2000 كتب : هذا ملف قنوات IPTV   m3u
يمكن قراءته كملف تكست


اعتقد هذا الكود سيفى بالغرض

كود :

   Sub Read_m3u(txtfile As String, dgv As DataGridView)
       Dim Lines As String() = IO.File.ReadAllLines("tv.m3u")
       Dim dt As New DataTable
       dgv.Columns.Clear()
       dgv.ColumnCount = 2
       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.Split(",")(1).Trim
               row(0) = line.Replace("#EXTINF:-1,", "").Trim
           ElseIf line.StartsWith("http://") Then
               row(1) = line.Trim
               dgv.Rows.Add(row)
           End If
       Next
   End Sub

شكرا لك اخي
ممكن بأداة OpenFileDialog
و حذف #EXTINF:0,
يعني الاسم فقط يظهر