Quebra De Linha

[rafaeltejeda]

Eu postei um tópico aqui outro dia e eu estava com um problema com texto eu armazeno um texto via formulário em um banco de dados access, onde o mesmo é exibido automaticamente em uma pagina asp, o meu problema é que o texto fica assim e eu gostaria de exibir o texto com formatação justificada, e eu precisava quando um usuário digitasse o texto em uma textarea e o mesmo seria exibido com quebra de linha quando o usuario apartasse o enter eu consegui isso com a tag <pré> e por isso da quebra de linha automática certo, ai eu peguei um script que alguém postou aqui no fórum mas não ta dando certo

Este é o texto que aparece na página com a rotina que coloquei no site.

Com formatação errada

“Diz o Senhor: Incurável é tua ferida, maligna tua chaga; não há

; quem conheça teu diagnóstico; uma úlcera tem remédio, mas em ti n&#

227;o produz cicatrização.

Todos os teus amigos te esqueceram, não te pr

ocuram mais; eu te causei uma ferida..., como um castigo cruel: por causa de grande n

0;mero de maldades que te fez endurecer no pecado.

Porque gritas no teu sofrimento? 

01; insanável a tua dor. Eu te tratei com rudeza por causa das tua maldades e por ca

usa do teu endurecimento no pecado. Isto diz o Senhor: Eis que eu...(Jr30,12-18a);farei d

e ti uma muralha de bronze fortificada; combaterão contra ti (tuas provaçõ

es), mas não prevalecerão, porque eu estou contigo para te salvar e te defender

, diz o Senhor”(Jr15,20).

  Olhando para as dificuldades que o profeta Jeremias

passou em sua vida, vimos na Palavra de Deus, que ele teve momentos em que desejou nunca

ter nascido. Mas Jeremias jamais desistiu de lutar.Ele teve a audácia de buscar ao S

enhor em oração e desabafar toda a sua angústia e perplexidade da crueldad

e da situação em que estava vivendo. Em sua frustração e desespero, e

le culpou até mesmo o Senhor por não ficar com ele em tempos difíceis.

E

como Deus respondeu às cobranças de Jeremias? Será que ele repreendeu ou

castigou Jeremias? Não. Ao invés disso , Deus suscitou no coração de

Jeremias, para que se aproximasse ainda mais do Senhor, e continuasse a receber de Deus,

a força que ele estava lhe dando, muito embora, mergulhado em suas dores, não h

avia percebido a presença do Senhor constantemente ao seu lado; e mais, Deus fez com

que Jeremias,  lembrasse da promessa de que o faria “ uma muralha de bronze fortif

icada”, para que seu desespero não o fizesse perder a esperança em Deus.

Porque, assegurou-lhe que sempre estaria junto dele. 

Nós também enfrentamo

s,ou ainda  enfrentaremos, tempos difíceis que nos causam ou causarão desespera

nça em Deus. E quando estas ocasiões surgem, ao invés de lamuriarmos de De

us ou dos outros, seria melhor, semelhante a Jeremias, falar honestamente com o Senhor, s

uplicarmos insistentemente ao Senhor para que mude o curso da situação em que e

stamos vivendo, mesmo se o único modo de poder-nos expressar é por frustraç

;ão e raiva! Lembre-se, Deus é nosso Pai amoroso e sempre está pronto a ou

vir o grito de seus filhos. Lembre-se  também, que Deus tem um coração de

compaixão e misericórdia. Ele sempre está pronto pata atar nossos feriment

os e nos fortalecer. Confie no Senhor; sua misericórdia é imedível, é

exageradamente incompreensível à nossa inteligência humana. Duvidar de qu

e Deus está no controle da sua situação, é subestimar a misericó

rdia de Deus que dura eternamente sobre você.

Vamos orar: ”Obrigado, Pai, por

estas palavras confortadoras, que me animam e me fazem “saber”, não com

preender, porque a ti ninguém consegue compreendê-lo. Mas, que sempre poderei m

e achegar a ti com súplicas em qualquer momento da minha vida, especialmente quando

estou ferido, magoado ou com dores. Ajudai-me a confiar ainda mais em vossa clemênci

a amorosa e misericordiosa.”

E esta é a rotina que peguei aqui no fórum...

Function PularLinha(StrTrata,Quantidade)
StrTrata = CStr(StrTrata)
Quantidade = Cint(Quantidade)
NumLinhas = Len(StrTrata)/Quantidade
Resto = Len(StrTrata) - NumLinhas*Quantidade

For aux=0 to NumLinhas
StrNovo = Mid(StrTrata, aux*Quantidade+1, Quantidade) 
Saida = Saida & StrNovo & "<br>"
Next

StrNovo = Mid(StrTrata, aux*Quantidade+1, Resto) 
Saida = Saida & StrNovo & "<br>"

PularLinha = Saida
End Function

<pre><font face="Tahoma" size="2"><%=PularLinha(rstemp("campo"),89)%></pre></font>

E eu gostaria de mostrar esse texto justificado como já mencionei

Por favor me ajudem estou começando agora e tenho muito que aprender eu sei, com a ajuda de vocês e é assim que a comunidade de programadores funcionam sem erros.

Atenciosamente

Editado: Por favor, utilize as TAGS CODE e QUOTE, para deixar o codigo mais legível!

Editado Agosto 30, 2004 por dark0

[dark0]

Olá

Eu não entendi bem qual a sua duvida, mas seria apenas:

- Mostrar na tela os dados que estao no banco, mas quebrando a linha, quando foi digitado ENTER?

Se é isso, tente assim:

<%=Replace(campo,chr(13),"<br>")%>

Se não for, explica mais o que quer fazer.

PS: Não crie vários tópicos iguais. Crie apenas UM Tópico. Se ninguém respondeu, é porque: Não entendeu sua dúvida, ou Porque Não sabe a resposta. Criar 200 topicos iguais não vai te dar uma solução!

Até mais

[cyberalexxx]

Quanto a essa função que voce pegou, acho melhor voce esquece-la

1 - Apague toda a função

2 - Onde esta:

<pre><font face="Tahoma" size="2"><%=PularLinha(rstemp("campo"),89)%></pre></font>

mude para:

<pre><p align="justify" style="text-indent: 50; margin-left: 5; margin-right: 5"><font face="Tahoma" size="2"><%=rstemp("campo")%></pre></font></p>

Fala ai como é que fica