[trakktour]

السلام عليكم احبابي في الله
ممكن مساعدة في اصلاح هذا الخطأ

كود :

Private Sub Read_trak()



       Try
           Dim rdr As New StringReader(TextBox1.Text)

           Dim lines As String = rdr.ReadLine()

           'Dim Lines As String() = IO.File.ReadAllLines(TextBox1.Text)
           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

       End Try

   End Sub

انا كنت استعمل الكود لقرائة ملف خارجي 

كود :

Dim Lines As String() = IO.File.ReadAllLines("Playlist\trak.m3u")

الان اريده القراءة من textbox

[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 

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

تحياتى لك

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

[trakktour]

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

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

كود :

   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 

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

تحياتى لك

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

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

[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

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

تحياتى لك

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

[trakktour]

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

كود :

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

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

تحياتى لك

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

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

[elgokr]

الشكر لله

تحياتى لك

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