Текстовое поле для элементов списка vb.net

Question

Хорошо, поэтому у меня есть текстовое поле, которое получает элементы с веб-сайта и вставляет их в него, затем в поле со списком добавляются элементы, но я хочу, чтобы каждая строка в текстовом поле была новым элементом, вместо этого он просто добавляет все как один

вот мой код

    '  Procedure:
    Dim Str As System.IO.Stream
    Dim srRead As System.IO.StreamReader
    Try
        ' make a Web request
        Dim req As System.Net.WebRequest = System.Net.WebRequest.Create("http://76.31.248.130/videos.txt")
        Dim resp As System.Net.WebResponse = req.GetResponse
        Str = resp.GetResponseStream
        srRead = New System.IO.StreamReader(Str)
        ' read all the text 
        TextBox2.Text = srRead.ReadToEnd
    Catch ex As Exception
        TextBox2.Text = "Unable to download content"
    Finally
        '  Close Stream and StreamReader when done
        srRead.Close()
        Str.Close()
    End Try
    ' Assign string to reference.
    Dim value1 As String = TextBox2.Text


    ' Replace word with another word.
    Dim value2 As String = value1.Replace("<br>", vbNewLine)
    TextBox2.Text = value2
    ListBox1.Items.Add(TextBox2.Text)

Answer 1

Ваш вопрос очень сложен для понимания. Я думаю, что ответ состоит в том, чтобы разделить текст текстового поля на массив, где каждый элемент представляет собой одну строку, а затем добавить каждый из них в список.

Вы, вероятно, хотите:

ListBox1.Items.AddRange(TextBox2.Text.Split(vbNewLine))

Answer 2

попробуйте использовать srRead.readline вместо srRead.readtoend

Dim a As String
Try
        Do
            a = srRead.ReadLine
            If a <> Nothing Then
                ListBox1.Items.Add(a)
            End If
        Loop Until a Is Nothing
    Catch
    End Try

Извините, если я не понял вашего вопроса

Answer 3

ЕСТЬ ПРОСТО КАК ListBox1.Items.AddRange (TextBox1.Text.Split (vbNewLine)) или ListBox1.Items.AddRange (TextBox1.Text.Split (vbcrlf)