[trakktour]

(28-10-18, 11:40 PM)elgokr كتب :

تفضل كود الفورم كاملاً

كود :

Public Class Form1
   Dim originalItems As New List(Of ListViewItem)

   Private Sub Read_m3u()
       Try
           Dim Lines As String() = TextBox1.Text.Split(vbNewLine)
           Dim row(1) As String
           For Each line As String In Lines
               If line.Trim.StartsWith("#EXTINF") Then
                   row(0) = line.Split(",")(1)

               ElseIf line.Trim.StartsWith("http://") Then
                   row(1) = line.Trim
                   originalItems.Add(New ListViewItem(row))
               End If
           Next
           Me.ListView1.Items.AddRange(originalItems.ToArray)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Read_m3u()
   End Sub
End Class

فقط استبدل الكود بالفورم كاملاً وقوم بتشغيل المشورع وسيعمل معك

تحياتى لك

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

شكرا لك يا غالي الله يحفظك
شغااال روعة