none
Separar textbox

    Pregunta

  • Tengo un textbox en donde escribo cierto párrafo pero el limite de caracteres que puede tener es de 78, lo que quiero es separar en líneas al llegar a los 78 caracteres pero sin cortar las palabras

    Ejemplo:

    Hola mi nombre es S/amuel (suponiendo que en la / hay 78 caracteres) que no ponga en la siguiente línea "amuel" sino que ponga la palabra completa "Samuel"

    Gracias por la ayuda.

    jueves, 23 de febrero de 2017 7:28

Respuestas

  • Puedes separar el contenido del textbox en palabras mediante un split y luego generar las lineas. Algo como esto:

    Dim Palabras As String() = TextBox1.Text.Split(" ")
    Dim Palabra as String = ""
    Dim Contador as Integer = 0
    
    Dim Linea as String = ""
    
    For each Palabra in Palabras
        Linea = Linea & Palabra & " "
    
        Contador += Palabra.Length
    
        If Contador >= 78 Then
            ' Se ha completado una linea
            Msgbox (Linea)
            Linea = ""
        End if
    
    Next



    Saludos, Javier J

    jueves, 23 de febrero de 2017 7:49

Todas las respuestas

  • Puedes separar el contenido del textbox en palabras mediante un split y luego generar las lineas. Algo como esto:

    Dim Palabras As String() = TextBox1.Text.Split(" ")
    Dim Palabra as String = ""
    Dim Contador as Integer = 0
    
    Dim Linea as String = ""
    
    For each Palabra in Palabras
        Linea = Linea & Palabra & " "
    
        Contador += Palabra.Length
    
        If Contador >= 78 Then
            ' Se ha completado una linea
            Msgbox (Linea)
            Linea = ""
        End if
    
    Next



    Saludos, Javier J

    jueves, 23 de febrero de 2017 7:49
  • Muchas gracias por la ayuda, me ha funcionado de manera perfecta lo he ajustado a mis necesidades, excelente.
    • Editado sdomccxxv domingo, 26 de febrero de 2017 6:27
    domingo, 26 de febrero de 2017 6:27