[trakktour]

(12-05-18, 08:38 PM)elgokr كتب :

بالتعديل على كود الاخ [b]mrnooo2000[/b]

قم باستخدام الكود التالى اعلى او اسفل Public Class Form1

كود :

Sub Read_m3u(dgv As DataGridView)
       Dim result As DialogResult = OpenFileDialog1.ShowDialog()
       Dim Lines As String() = IO.File.ReadAllLines(OpenFileDialog1.FileName)
       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.Replace("#EXTINF:-1,", "").Trim
           ElseIf line.StartsWith("http://") Then
               row(1) = line.Trim
               dgv.Rows.Add(row)
           End If
       Next
   End Sub

قم بانشاء كلاً من
1- OpenFileDialog1
2- Button1
3- DataGridView1

ثم قم بالضغط مرتين على Button1 وقم بادراج السطر التالى

كود :

Read_m3u(DataGridView1)

قم بتشغيل المشروع واستمتع

بالتوفيق

شكرا لك اخي الغالي
لو ممكن تغيير DataGridView ب Listview
و حذف EXTINF يعني يبقى الاسم فقط