[Resolvido] Problema com Replace

[Gelado 0]

Estou com um pequeno problema com 'Replace'

criei essa função para substituir uma quebra de linha pra uma tag <br> só que a cada clique 'Cadastrar' aparece mais um <br>.

 

	Function Paragrafo(sTexto)
	Paragrafo = Replace(sTexto, chr(13), "<br>")
	End Function

Como posso fazer pra não acontecer isso?

ja tentei:

 

	Function Paragrafo(sTexto)
		Paragrafo = Replace(sTexto, chr(13), "<br>")
		Paragrafo = Replace(sTexto, "<br><br>", "<br>")
	End Function

mas ai, ele para toda a Função.

Me ajudem!

 

Obrigado

[Ted k' 126]

e o porque de quando clicar no cadastrar mais uma vez? não entendi essa parte, nao teria que fazer uma verificação antes para ver se ele ja foi cadastrado ou não?

[Gelado 0]

e o porque de quando clicar no cadastrar mais uma vez? não entendi essa parte, nao teria que fazer uma verificação antes para ver se ele ja foi cadastrado ou não?

 

é a atualização, veja o codigo.

 

<%
	if Session("UsuarioCodigo") = "" or Session("UsuarioNome") = "" Then response.redirect "logout.asp"
	
	Call OpenDB(Conexao,"rpci.mdb")
	
Dim varid, vartipo, vartitulo, varsubtitulo, vardescricao, vartexto, varimagem, varbtipo, varbtitulo
Dim varbsubtitulo, varbdescricao, varbtexto, varbimagem, varctipo, varctitulo, varcsubtitulo
Dim varcdescricao, varctexto, varcimagem, vardtipo, vardtitulo, vardsubtitulo, varddescricao, vardtexto
Dim vardimagem, TotalRegistros, varmostrar, varchaves
Dim vareid, varetipo, varetitulo, varesubtitulo, varedescricao, varetexto, vareimagem, var, texto

'**************************************************
' funçao de gravar
'**************************************************
	Function Paragrafo(sTexto)
		Paragrafo = Replace(sTexto, chr(13), "<br>")
		Paragrafo = Replace(sTexto, "<br>", "<br>")
	End Function
	
	Function TiraString(sTexto)
		TiraString = Replace(sTexto,"'","")
		TiraString = Replace(sTexto,"#","")
		TiraString = Replace(sTexto,"&","")
		TiraString = Replace(sTexto,"*","")
		TiraString = Replace(sTexto,"¨","")
		TiraString = Replace(sTexto,"%","")
		TiraString = Replace(sTexto,"$","")
		TiraString = Replace(sTexto,"chr(34)","")
	End Function
	
	if Request.QueryString("action") = "gravar" then 

	vardescricao		= Paragrafo(Request.Form("descricao"))
	vartexto			= Paragrafo(Request.Form("texto"))
	varchaves			= TiraString(Request.Form("chaves"))
	varmostrar			= TiraString(Request.Form("mostrar"))
	vartipo				= TiraString(Request.Form("tipo"))
	vartitulo			= TiraString(Request.Form("titulo"))
	varsubtitulo		= TiraString(Request.Form("subtitulo"))
	varimagem			= TiraString(Request.Form("imagem"))
	
	if vartitulo = "" Then response.redirect "erro.asp?Erro=O titulo deve ser informados."
	
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * From tbcursos Where aid=" & cint(request.querystring("codigo")) &  "",Conexao,1,2
		 if rs.eof then rs.AddNew

		  rs("chaves")			= varchaves
		  rs("mostrar")			= varmostrar		  
		  rs("atipo")			= vartipo
		  rs("atitulo")			= vartitulo
		  rs("asubtitulo")		= varsubtitulo
		  rs("adescricao")		= vardescricao
		  rs("atexto")			= vartexto
		  if trim(varimagem)<>""then
		  rs("aimagem")			= varimagem
		  end if	
		  rs.Update
		  rs("btipo")			= varbtipo
		  rs("btitulo")			= varbtitulo
		  rs("bsubtitulo")		= varbsubtitulo
		  rs("bdescricao")		= varbdescricao
		  rs("btexto")			= varbtexto
		  if trim(varbimagem)<>""then
		  rs("bimagem")			= varbimagem
		  end if	
		  rs.Update
		  rs("ctipo")			= varctipo
		  rs("ctitulo")			= varctitulo
		  rs("csubtitulo")		= varcsubtitulo
		  rs("cdescricao")		= varcdescricao
		  rs("ctexto")			= varctexto
		  if trim(varcimagem)<>""then
		  rs("cimagem")			= varcimagem
		  end if	
		  rs.Update
		  rs("dtipo")			= vardtipo
		  rs("dtitulo")			= vardtitulo
		  rs("dsubtitulo")		= vardsubtitulo
		  rs("ddescricao")		= varddescricao
		  rs("dtexto")			= vardtexto
		  if trim(vardimagem)<>""then
		  rs("dimagem")			= vardimagem
		  end if	
		  rs.Update
		  rs("etipo")			= varetipo
		  rs("etitulo")			= varetitulo
		  rs("esubtitulo")		= varesubtitulo
		  rs("edescricao")		= varedescricao
		  rs("etexto")			= varetexto
		  if trim(vareimagem)<>""then
		  rs("eimagem")			= vareimagem
		  end if	
		  rs.Update
		
		 if cint(request.querystring("codigo")) = 0 then	
			 rs.MoveLast	
		 end if	
		 
		 response.redirect "curso.asp?action=editar&codigo=" & rs("aid") &  "&msg=Cadastro realizado com sucesso" & "&mst=Opcao escolhida: " & rs("mostrar")
		 rs.Close
		 Set rs = Nothing  
		 
	
	End if


'**************************************************
' funçao de editar
'**************************************************
	if request.querystring("action") = "editar" then
	
set ss = createobject("adodb.recordset")
ss.open "select * from tbcursos where aid=" & cint(request.querystring("codigo")) & "",conexao,1,2
	if not ss.eof then

	varid			= ss("aid")
	vartipo			= ss("atipo")
	vartitulo		= ss("atitulo")
	varsubtitulo	= ss("asubtitulo")
	vardescricao	= ss("adescricao")
	vartexto		= ss("atexto")
	varimagem		= ss("aimagem")
	varbtipo		= ss("btipo")
	varbtitulo		= ss("btitulo")
	varbsubtitulo	= ss("bsubtitulo")
	varbdescricao	= ss("bdescricao")
	varbtexto		= ss("btexto")
	varbimagem		= ss("bimagem")
	varctipo		= ss("ctipo")
	varctitulo		= ss("ctitulo")
	varcsubtitulo	= ss("csubtitulo")
	varcdescricao	= ss("cdescricao")
	varctexto		= ss("ctexto")
	varcimagem		= ss("cimagem")
	vardtipo		= ss("dtipo")
	vardtitulo		= ss("dtitulo")
	vardsubtitulo	= ss("dsubtitulo")
	varddescricao	= ss("ddescricao")
	vardtexto		= ss("dtexto")
	vardimagem		= ss("dimagem")
	varmostrar		= ss("mostrar")
	varchaves		= ss("chaves")
	varetipo		= ss("etipo")
	varetitulo		= ss("etitulo")
	varesubtitulo	= ss("esubtitulo")
	varedescricao	= ss("edescricao")
	varetexto		= ss("etexto")
	vareimagem		= ss("eimagem")

	end if
	ss.close
	set ss = nothing
	response.write replace(texto, vbcrlf,"<br>")



	end if

'**************************************************
' funçao de deletar
'**************************************************
	if request.querystring("action") = "excluir" then
		conexao.execute "delete from tbcursos where aid=" & cint(request.querystring("codigo")) & ""
		response.redirect request.servervariables("script_name") & "?action=consulta"
	end if
	
%>

e o "nao teria que fazer uma verificação antes para ver se ele ja foi cadastrado" - não sei como fazer, sou novo na area.. esses codigos que fiz foi com base em foruns..

[xanburzum 169]

Tb naun entendi !?!?! o replace esta correto...

 

Paragrafo = Replace(sTexto, chr(13), "<br>")

ou você pode tentar o

 

Paragrafo = Replace(sTexto, VbCrLf, "<br>")

[Mário Monteiro 179]

Conforme o aviso existente no fórum de origem deste post, não é permitida a postagem de dúvidas nesta área, motivo pelo qual este tópico será

 

movido para o fórum principal deste assunto.

 

Tópico Movido

 

Origem: Laboratório de scripts (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Destino:

 

ASP

[Patrique 0]

Tente assim

 

Function Paragrafo(sTexto)
        Paragrafo = Replace(sTexto, vbcrlf, "<br>")
End Function

[Mário Monteiro 179]

tópicos mesclados

[Gelado 0]

o 'replace' está correto.

o problema é depois do cadastro, mostra na mesma 'form' mostra o que está cadastrado e quando faço alguma atualização / correção no texto sempre acrescenta mais um <br>

 

entenderam? :D

[Gelado 0]

problema resolvido

 

parara gravar eu coloquei

Paragrafo = Replace(sTexto, chr(13), "<br>")

e na textarea eu coloquei

<textarea name="texto"  class="txtBoxP" cols="55" rows="15"><%vartexto = response.write(Replace(vartexto, "<br>",""))%></textarea>

assim, ele tira o <br> quando mostra e põe de novo na hora de gravar

espero que tenham entendido http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Obrigado