Ok, así que tengo un cuadro de texto que pone elementos de una página web y pega en el cuadro de lista agrega los elementos, pero quiero que cada línea en el cuadro de texto a ser un nuevo elemento en lugar de solamente la suma de todos como uno

heres mi código

    '  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)

3 Comentarios

  1. 2

    Tu pregunta es muy difícil de entender. Creo que la respuesta es dividir el cuadro de texto del texto en un array donde cada elemento es una sola línea y, a continuación, agregar cada uno de estos para el control listbox.

    Probablemente te interese:

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

    ASÍ DE SENCILLO
    ListBox1.Elementos.AddRange(TextBox1.Texto.Split(vbNewLine)) o
    ListBox1.Elementos.AddRange(TextBox1.Texto.Split(vbcrlf)

  3. 1

    trate de usar srRead.readline en lugar de 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

    Lo siento si no he logrado entender su pregunta

Dejar respuesta

Please enter your comment!
Please enter your name here