SUBSTITUIR O "ENTER" PELO " BR "

USUARIO.EXCLUIDOS 05/12/2006 09:18:33
#188008
Olá pessoal estou querendo colocar um script que antes de gravar as informações substitua o enter dado em uma textarea em um <br>, como posso fazer isso?
USUARIO.EXCLUIDOS 05/12/2006 09:37:17
#188010
Alguem????
MORDOR 05/12/2006 09:39:12
#188011 Resposta escolhida
Você pode gravar o texto como ele vem da textarea e substituir na hora de exibir.

Se for ASP clássico:

Dim texto
texto = Request.Form("textfield")
	
Response.Write(Replace(texto,  vbCrLf, "<br />"))


Se for ASP.NET:

Dim texto As String = TextBox1.Text
Response.Write(texto.Replace(Environment.NewLine, "<br />"))
USUARIO.EXCLUIDOS 05/12/2006 09:41:55
#188013
Mordor não tem como substituir antes de gravar?????
MORDOR 05/12/2006 09:51:35
#188015
é só usar o Replace antes de passar o valor pro Insert.

Dim texto
texto = Request.Form("textfield")
texto = Replace(texto, vbCrLf, "<br />")

Dim texto As String = TextBox1.Text
texto = texto.Replace(Environment.NewLine, "<br />")

Daí é só passar a variável texto na string SQL que você usa pra gravar.
USUARIO.EXCLUIDOS 05/12/2006 10:01:47
#188021
Valeu vou ver se funciona
USUARIO.EXCLUIDOS 05/12/2006 10:45:40
#188030
Não funfou alguém pode me dizer como posso fazer isso em ASP????
USUARIO.EXCLUIDOS 05/12/2006 10:53:48
#188037
Vou explicar melhor quando o usuario estiver digitando algo na text ele tem que pular de linha normalmente mas colocar o <br/>(sem aparecer para o usuario) e gravar no bd depois quando o usuário for ver o que ele escreveu tenho que mostrar só o texto e se o usuário for alterar o texto tenho que mostrar o texto dentro de uma textarea sem os <br/>

Obs:Nunca poderá ser mostrada a tag <br/>, poderá ser feita em JavaScript e ASP
WEBMASTER 05/12/2006 11:07:39
#188040
para gravar:
sTexto = replace(sTexto, vbcrlf, "<BR>")

para editar:
sTexto = replace(sTexto, "<BR>", vbcrlf)
MORDOR 05/12/2006 11:16:45
#188041
O código que te passei funciona, mostra como você está fazendo. Pra exibir no textarea o valor gravado com "<br />" é só fazer o Replace ao contrário substituindo por vbCrLf.
USUARIO.EXCLUIDOS 05/12/2006 11:44:03
#188046
O erro está quando insiro os dados no bd

Set db = Server.CreateObject("ADODB.Connection")
'db.CursorLocation = 3 ' adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\inetpub\wwwroot\br\br.mdb;"
text = Request.form("txt")
text = Replace(text,vbcrlf,"<br/>")
strSQL = "INSERT INTO tb_br (text) VALUES ('" & text & "')"
db.Execute(strSQL)
Página 1 de 2 [20 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar