none
Apagar linhas em branco de um Texbox Multiline RRS feed

  • Pergunta

  • Preciso apagar linhas em branco de um texbox multine.

    Fiz um Form que gera código html de acordo com uns campos preenchido no mesmo.

    porém existe a opção de deixar eles em branco, assim o código os ignora e vai para o próximo.

    o problema é que está ficando no textbox as linhas em branco. onde era para ter os dados (se tivessem sido preenchidos)

    tem alguma rotina para apagar essas linhas?

    Desde já agradeço.


    dida

    quinta-feira, 18 de março de 2021 19:25

Respostas

  • pra quem precisar achei essa rotina


    Function LineTrim(ByVal sText As String) As String
        '-- add pre Lf and post Cr
        sText = vbLf & sText & vbCr '<--- unusual characters added
        '-- remove all spaces at the end of lines
        Do While InStr(sText, " " & vbCr)
            sText = Replace(sText, " " & vbCr, vbCr)
        Loop
        '-- remove all multiple CrLf's
        sText = Replace(sText, vbLf & vbCr, "") '<--- westconn1's smart line
        '-- remove first and last added characters
        LineTrim = Mid$(sText, 2, Len(sText) - 2)
    End Function

    pra usar 

    textbox1.Text = LineTrim(textbox1.Text)


    dida

    • Marcado como Resposta Dioni Anselmo sábado, 20 de março de 2021 13:50
    sábado, 20 de março de 2021 13:50