none
Eliminar saltos de linea entre parrafos en un TextBox RRS feed

  • Pregunta

  • Buenos dias a todos,

    Tengo un TextBox con el siguiente texto por ejemplo:

    Receta de Gazpacho:

    -Tomate

    -Vinagre

    Como puedo hacer para quitar los saltos de linea y que me quede de la siguiente manera:

    Receta de Gazpacho:
    -Tomate
    -Vinagre


    Estoy utilizando lo siguiente: cell.Text = Regex.Replace(cell.Text, vbCrLf, "")

    pero me lo deja asi:

    Receta de Gazpacho:-Tomate-Vinagre

    1000 gracias



    sábado, 27 de julio de 2019 8:10

Respuestas

  • Estoy utilizando lo siguiente: cell.Text = Regex.Replace(cell.Text, vbCrLf, "")

    Cámbialo por esto:

    cell.Text = Regex.Replace(cell.Text, vbCrLf & vbCrLf, vbCrLf)

    En otras palabras, lo que estabas haciendo era suprimir todos los saltos de línea, y entonces te quedaba todo el texto seguido en una sola línea. En realidad lo que quieres es cambiar dos saltos de línea seguidos por un único salto de línea.

    sábado, 27 de julio de 2019 14:10
  • Hola Juan ,  prueba con

    Edito: disculpas no había probado el código anterior. En un button..

      Dim Nb As String = ""
    
            Dim st As String()
            st = Split(TextBox18.Text, Environment.NewLine)
            For i As Integer = 0 To st.Count - 1
                If Not st(i) = "" Then
                    Nb += st(i) & Environment.NewLine
                End If
            Next
    
            TextBox18.Text = Nb


    Saludos


    ARA San Juan 44 HEROES     ‗‗‗‗­|||||‗‗‗‗‗


    • Editado Marcelo PF sábado, 27 de julio de 2019 10:14
    • Marcado como respuesta Juan Martinez F domingo, 28 de julio de 2019 4:28
    sábado, 27 de julio de 2019 8:40

Todas las respuestas

  • Hola Juan ,  prueba con

    Edito: disculpas no había probado el código anterior. En un button..

      Dim Nb As String = ""
    
            Dim st As String()
            st = Split(TextBox18.Text, Environment.NewLine)
            For i As Integer = 0 To st.Count - 1
                If Not st(i) = "" Then
                    Nb += st(i) & Environment.NewLine
                End If
            Next
    
            TextBox18.Text = Nb


    Saludos


    ARA San Juan 44 HEROES     ‗‗‗‗­|||||‗‗‗‗‗


    • Editado Marcelo PF sábado, 27 de julio de 2019 10:14
    • Marcado como respuesta Juan Martinez F domingo, 28 de julio de 2019 4:28
    sábado, 27 de julio de 2019 8:40
  • Estoy utilizando lo siguiente: cell.Text = Regex.Replace(cell.Text, vbCrLf, "")

    Cámbialo por esto:

    cell.Text = Regex.Replace(cell.Text, vbCrLf & vbCrLf, vbCrLf)

    En otras palabras, lo que estabas haciendo era suprimir todos los saltos de línea, y entonces te quedaba todo el texto seguido en una sola línea. En realidad lo que quieres es cambiar dos saltos de línea seguidos por un único salto de línea.

    sábado, 27 de julio de 2019 14:10