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

ITS简单如此 ListBox1.Items.AddRange（TextBox1.Text.Split（vbNewLine））oR ListBox1.Items.AddRange（TextBox1.Text.Split（vbcrlf）

Answer 3

尝试使用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

很抱歉，如果我不理解你的问题

文本框文本到列表框项目vb.net

3 个答案: