Ir para conteúdo
Fórum Script Brasil
  • 0

Texto com parágrafo

Guest Dionísio Júnior

Perguntado por Guest Dionísio Júnior,

 Share

Pergunta

Guest Dionísio Júnior

Guest Dionísio Júnior

Postado
Postado

Olá pessoal, estou com uma dúvida.

Como faço para que um texto que está na base de dados seja exibido na página em parágrafos e espaços se tiverem???

A observação é o seguinte: na base de dados o texto se encontra formatado normalmente, com os seus parágrafos e espaços entre eles, mas na hora de exibir na página, os código asp suprime todos os espaços e coloca todo o texto junto. Por exemplo:

O texto normal:

"A maria foi lá na escola.

Lá na escola ela pediu um lanche.

O lanche da Maria veio estragado."

O texto quando é mostrado na página:

"A maria foi lá na escola. Lá na escola ela pediu um lanche. O lanche da Maria veio estragado."

Gostaria que o texto fosse mostrado como no 1º exemplo. O meu código está da seguinte maneira:

<TD width="701" class=TB_Valor><% =pesquisa("detalhes") %></td>

Alguém tem alguma sugestão???

Link para o comentário
Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

  • 0
Guest Dionísio Júnior

Guest Dionísio Júnior

Postado
Postado
você já tento executar um REPLACE do chr(13) (salto de linha) para "<br>" (tag br do html)?

Esso resultado esta em textarea?

Não, o resultado está saindo em uma célula de uma tabela, como mostra o código abaixo:

<table width="997" border="0" cellspacing="0" cellpadding="0">
        <tr>          
          <TD width="75" class=TB_Valor><% =pesquisa("data") %></TD>
      <TD width="106" class=TB_Valor><% =pesquisa("acao") %></TD>
      <TD width="115" class=TB_Valor><% =UCase(pesquisa("responsavel")) %></TD>
      <TD width="701" class=TB_Valor><% =pesquisa("detalhes") %></td>
        </tr>
      </table>

Link para o comentário
Compartilhar em outros sites
  • 0
jothaz

jothaz

Postado
Postado

Cara uma solução bem simples.

porque já não atribui o retorno a um textarea e coloca dentro celula da tabela?

Aco que resolverá esta parada.

você pode alterar os atributos (style) da textarea para não permitir edição e mesmo mudar a aparência da mesma para que não fique parecendo uma textarea.

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Dionísio

Guest Dionísio

Postado
Postado
Cara uma solução bem simples.

porque já não atribui o retorno a um textarea e coloca dentro celula da tabela?

Aco que resolverá esta parada.

você pode alterar os atributos (style) da textarea para não permitir edição e mesmo mudar a aparência da mesma para que não fique parecendo uma textarea.

Ok, Amigo, e como faço pra que o dimensionamento da textarea seja automatico e que não apareça a barra lateral de rolagem???

Link para o comentário
Compartilhar em outros sites
  • 0
jothaz

jothaz

Postado
Postado

Use CSS para isto:

Dê uma olhada aqui: http://www.criarweb.com/artigos/740.php

Achei isto: https://www.scriptbrasil.com.br/forum/lofiv....php/t7732.html

QUOTE  
<style>
.barra{
  scrollbar-face-color: #ffffff; 
  scrollbar-shadow-color: #ffffff; 
  scrollbar-highlight-color: #ffffff; 
  scrollbar-3dlight-color: #ffffff; 
  scrollbar-darkshadow-color: #ffffff; 
  scrollbar-track-color: #ffffff; 
  scrollbar-arrow-color: #ffffff; 
  background-color: #ffffff;
}
</style>

<body>
<textarea class="barra" rows="4" name="comentarios" cols="75" onkeyup="java script:ContaTexto(comentarios, contador,270)"></textarea>

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Dionísio Júnior

Guest Dionísio Júnior

Postado
Postado
Use CSS para isto:

Dê uma olhada aqui: http://www.criarweb.com/artigos/740.php

Achei isto: https://www.scriptbrasil.com.br/forum/lofiv....php/t7732.html

QUOTE  
<style>
.barra{
  scrollbar-face-color: #ffffff; 
  scrollbar-shadow-color: #ffffff; 
  scrollbar-highlight-color: #ffffff; 
  scrollbar-3dlight-color: #ffffff; 
  scrollbar-darkshadow-color: #ffffff; 
  scrollbar-track-color: #ffffff; 
  scrollbar-arrow-color: #ffffff; 
  background-color: #ffffff;
}
</style>

<body>
<textarea class="barra" rows="4" name="comentarios" cols="75" onkeyup="java script:ContaTexto(comentarios, contador,270)"></textarea>
Ok, Amigo, essa é uma boa solução, agora o problema é o seguinte: Como redimensionar automaticamente o textarea quanto ao numero de linhas? Tentei fazer uma função no próprio ASP mas apresenta um erro na hora da execução. A função é a seguinte: 
Private function ContaLinhas(txt)

    Do While not EoF(txt)
       lines = lines + 1
    Loop

    num_linhas = lines

End Function
Aí eu chamo a função da seguinte maneira: 
Dim texto

  texto = pesquisa("comentario")

Response.Write(ContaLinhas(texto))
Response,End()

Aí apresenta o seguinte erro:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'EoF'

/suporte/conta_linhas.asp, line 5

Alguém poderia me dizer o que está errado na função ou se tem outra maneira de contar as linhas de um texto?

Link para o comentário
Compartilhar em outros sites
  • 0
Ted k'

Ted k'

Postado
Postado

mais não é isso que deseja, agora deixa ver se entendi, você quer contar quantas linhas tem em um texto??, você pode contar as quantidades de <br> em uma string e passar esse parâmentro, assim você tem a quantidade de linhas mais fáceis:

<%
stringVar = "asdasda<br>asdasdas<br>asdasdas<br>asdasd<br>"
stringVar = Split(stringVar,"<br>")
response.Write(Ubound(stringVar))
%>

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Dionísio Júnior

Guest Dionísio Júnior

Postado
Postado
mais não é isso que deseja, agora deixa ver se entendi, você quer contar quantas linhas tem em um texto??, você pode contar as quantidades de <br> em uma string e passar esse parâmentro, assim você tem a quantidade de linhas mais fáceis:

<%
stringVar = "asdasda<br>asdasdas<br>asdasdas<br>asdasd<br>"
stringVar = Split(stringVar,"<br>")
response.Write(Ubound(stringVar))
%>
Certo, seria fácil se meu texto tivesse essa tag <br>. Mas o meu texto não tem essa tag. O sistema funciona assim: O usuário insere um texto na textarea. Ai esse texto é gravado na base de dados da forma como o usuário digitou. Só que quando eu pego esse texto da base e jogo na célula da tabela da forma, 
<%=pesquisa("comentario")%>

,

o texto não sai formatado.

Aí o jothaz deu a idéia de colocar em um textarea o resultado. Aí sim, fica beleza, mas não redimesiona automaticamente. Pra redimensionar automaticamente, eu precisaria de saber o numero de linhas que o texto tem. Por isso que preciso dessa função.

Acho que agora deu pra entender!

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Dionísio Júnior

Guest Dionísio Júnior

Postado
Postado

RESOLVIDO!!!!

Segui a dica do jothaz e utilizei o replace.

O código ficou assim: 

Dim texto  
  
  texto = pesquisa("detalhes")
  
  texto = Replace(texto,chr(13),"<br>")

Aí quando mando exibir o texto, já sai com os parágrafos.

valeu galera. Brigadaum!!!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...