[elgokr]

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

يمكنك الاطلاع والاستفادة من هذه المشاركة

http://vb4arb.com/vb/showthread.php?tid=...#pid122810

ولاحظ على الكود التالى الموجود فى السورس المرفق بالرابط بالاعلى

كود :

       For i As Integer = 0 To Lines.Length - 1
           Dim line As String = Lines(i).ToString.Trim
           If line.StartsWith("#EXTINF") Then
               row(0) = line.Replace("#EXTINF:-1,", "").Trim
           ElseIf line.StartsWith("http://") Then
               row(1) = line.Trim
           End If
       Next

حيث ان هذا الكود ملخص ما تريد

تحياتى لك

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