[trakktour]

(13-05-18, 02:35 AM)elgokr كتب :

(13-05-18, 01:26 AM)trakktour كتب : شكرا لك اخي الغالي
لو ممكن تغيير DataGridView ب Listview
و حذف EXTINF يعني يبقى الاسم فقط

ولا يهمك اخى الكريم
تفضل الكود الخاص بـ Listview

كود :

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

كود الزر الخاص بـ button

كود :

Read_m3u()

تذكر عند انشاء Listview

قم بانشاء عدد 2 Columns

وليكن اسم الاول [اسم القناه] واسم الاخر [رابط القناه]

بخصوص EXTINF 

هذا الشكل عند تطبيق الكود

وقم بالتجربة وسيعمل معك

تمنياتى لك التوفيق

شكرا لك اخي العزيز الله ينورك
كل شيء تمام