(06-03-19, 10:04 PM)حاتمي كتب : ارجوك جاوب هذا سؤال لم اجد له اجاب لحد الان جاوبني ارجوك

(06-03-19, 11:28 PM)trakktour كتب :

(06-03-19, 10:04 PM)حاتمي كتب : ارجوك جاوب هذا سؤال لم اجد له اجاب لحد الان جاوبني ارجوك

تفضل هذا ما تحتاجه

كود :

Try
           Dim raw As New WebClient
           Dim raw_pastbin As String = raw.DownloadString("https://pastebin.com/raw/tgfWfGc7")

           Dim hatmi As New List(Of ListViewItem)
           Dim Lines As String() = raw_pastbin.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
                   hatmi.Add(New ListViewItem(row))
               End If
           Next
           ListView1.Items.AddRange(hatmi.ToArray)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

كل ما عليك هو اضافة listview
بتوفيق ان شاء الله