[farfour]

السلام عليكم يا اصدقاء
ان شاء الله تكونو بخير
ممكن تعديل صغير في هذا الكود 
تغيير listbox2 ب listview

كود :

Me.RichTextBox2.Clear()
       Me.ListBox2.Items.Clear()
       Try
           Dim text As String = Me.ListBox5.SelectedItem
           Dim requestUriString As String = text.ToString()
           Dim checked As Boolean = Me.CheckBox2.Checked
           If checked Then
               Dim random As Random = New Random()
               ' The following expression was wrapped in a checked-expression
               Dim num As Integer = random.[Next](0, Me.ListBox3.Items.Count - 1)
               Dim address As String = Conversions.ToString(Me.ListBox3.Items(num))
               Me.ListBox3.SelectedIndex = num
               Dim httpWebRequest As HttpWebRequest = CType(WebRequest.Create(requestUriString), HttpWebRequest)
               httpWebRequest.Proxy = New WebProxy(address)
               httpWebRequest.Timeout = Conversions.ToInteger(Me.TextBox3.Text)
               httpWebRequest.ReadWriteTimeout = Conversions.ToInteger(Me.TextBox3.Text)
               Dim httpWebResponse As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
               Dim httpWebResponse2 As HttpWebResponse = CType(httpWebRequest.GetResponse(), HttpWebResponse)
               Dim streamReader As StreamReader = New StreamReader(httpWebResponse2.GetResponseStream())
               Dim text2 As String = streamReader.ReadToEnd()
               Me.RichTextBox2.Text = text2
               Me.ListBox2.Items.AddRange(Me.RichTextBox2.Lines)
           Else
               Dim httpWebRequest2 As HttpWebRequest = CType(WebRequest.Create(requestUriString), HttpWebRequest)
               httpWebRequest2.Timeout = Conversions.ToInteger(Me.TextBox3.Text)
               httpWebRequest2.ReadWriteTimeout = Conversions.ToInteger(Me.TextBox3.Text)
               Dim httpWebResponse3 As HttpWebResponse = CType(httpWebRequest2.GetResponse(), HttpWebResponse)
               Dim httpWebResponse4 As HttpWebResponse = CType(httpWebRequest2.GetResponse(), HttpWebResponse)
               Dim streamReader2 As StreamReader = New StreamReader(httpWebResponse4.GetResponseStream())
               Dim text3 As String = streamReader2.ReadToEnd()
               Me.RichTextBox2.Text = text3
               Me.ListBox2.Items.AddRange(Me.RichTextBox2.Lines)
           End If
       Catch arg_1EF_0 As Exception
           ProjectData.SetProjectError(arg_1EF_0)
           ProjectData.ClearProjectError()
       End Try

ليست فيو فيه 2 columns الاول name و الثاني lien
الاول يسحب الاسم و الثاني الرابط


جربت اضافة هذا الكود فظهر لي الاسم ناقص

كود :

       Try
           Dim Lines As String() = RichTextBox2.Text.Split()
           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
           ListView1.Items.AddRange(originalItems.ToArray)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

[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

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

تحياتى لك

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