[trakktour]

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

وعليكم السلام ورحمة الله وبركاته

فقط كل ما عليك استخدام الكود بهذا الشكل

كود :

   Private Sub Read_trak()
       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

وكل ما عليك ان تجعل الـ TextBox1 مفعل به الـ Multiline

وكل ما عليك وضع محتوى الملف داخلا لـ TextBox1 

وسيعمل الكود معك بدون اى مشكلة

تحياتى لك

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

للاسف لم يعمل اخي 
هذا هو المشروع ألقي نظرة عليه