السلام عليكم احبابي في الله
ممكن مساعدة في اصلاح هذا الخطأ
انا كنت استعمل الكود لقرائة ملف خارجي
الان اريده القراءة من textbox
ممكن مساعدة في اصلاح هذا الخطأ
كود :
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")