none
Quebra de texto RRS feed

  • Pergunta

  • Olá pessoal, estou tentando fazer uma quebra de linha, mas não saiu bem... quero que uma variável imprima algo mas quando chegar em um determinado quantidade de caracteres ele quebre o texto, tipo:

     

    variavel= ola tudo bem?

     

    imprimir variavel

    seria:

     

    Ola

    tudo bem?

     

    Quebraria a linha, tava tentando algo do tipo mas não sei, veja:

     

    Code Snippet

    texto = rsMuralRecados("texto") 'Aqui traz o texto do banco de dados
    texto = replace(texto, Chr(20), "
    ") 'Faz a quebra de linha a cada "Enter" no texto

     

    Response.Write(quebraTexto(texto))

     

    Function quebraTexto(texto)
    qtd_max_caracteres = 10'Estipula o tamanho máximo da frase em caracteres
    str_palavras = texto
    sTexto = ""

    Function QuebraTexto()

    If Len(Texto) => Eval(qtd_max_caracteres) Then

    QuebraTexto = Left(Texto, Caracteres) &"
    "& QuebraTexto(Right(Texto,Len(Texto)-Caracteres), Caracteres)

    Else

    QuebraTexto = Texto

    End If

    End Function

     

     

    ou....

     

    Code Snippet

    Function QuebraTexto(Texto, Caracteres)

    If Len(Texto) => Eval(Caracteres) Then

    QuebraTexto = Left(Texto, Caracteres) &"
    "& QuebraTexto(Right(Texto,Len(Texto)-Caracteres), Caracteres)

    Else

    QuebraTexto = Texto

    End If

    End Function

     

     

     

    Como fazer algo assim?

    quinta-feira, 25 de setembro de 2008 21:20

Todas as Respostas