[Resolvido] replace em campo texto

[desisto 0]

estou usando o replace normal - campo  = Replace(campoForml, Chr(13), "<br />")

 

mas preciso trocar quando for mais de 1 'enter'

 

tipo assim: campo  = Replace(campoForml, "<br /><br />", "<br />")

 

 

 

 

so que isso nao esta funcionando

 

qual a melhor forma para cadastrar apenas 1 <br /> no lugar de varios <br /><br />

[xanburzum 169]

Replace(texto, VbCrLf, "<br>")

[desisto 0]

nao mudou nada

 

aaaa<br /><br />ssss<br /><br /><br /><br /><br /><br />ddd

 

 

 

 

como disse

 

é pra trocar<br /><br /><br /><br />

 

por <br />

 

nao quero exibir inumeras quebras de linha

[xanburzum 169]

por <br />

 

acabei de testar

Replace(texto, VbCrLf, "<br>") e funciona nomral tanto o

Replace(texto, Chr(13), "<br />")

[desisto 0]

nao adianta

 

se eu fizer - Replace(texto, "A", "x") => jacare = jXcXre

 

se eu tiver - Replace(texto, Chr(13), "<br />"), terei 4 <br /> no lugar do Chr(13)

 

e isso nao adianta pro caso

 

ex

 

eu [enter]

tenho[enter][enter][enter]

a força

 

 

 

no BD vai cadastrar

 

eu <br />

tenho<br /><br /><br />

a força

 

 

 

 

 

 

como eu preciso

 

trocar as repetições de <br> por apenas 1 <br>

 

eu <br />

tenho<br />

a força

[xanburzum 169]

e se tenatr a combinacaun de Chr(13) + Chr(10)

[desisto 0]

Replace(texto, Chr(13)&Chr(10), "<br>")

 

assim?

[xanburzum 169]

ou tb tente o

Replace(campoForml, Chr(13), "<p></p>")

[desisto 0]

deu nao

[xanburzum 169]

para efeito de teste , tente passar outro valor para a variavel e faça o replace

Replace(texto, Chr(13), "<br>")

[jrcardozo 4]

acho que você quer troecar vários 'enter', no final do texto por 1. é isso?

[Igor Soto 0]

nao adianta

 

se eu fizer - Replace(texto, "A", "x") => jacare = jXcXre

 

se eu tiver - Replace(texto, Chr(13), "<br />"), terei 4 <br /> no lugar do Chr(13)

 

e isso nao adianta pro caso

 

ex

 

eu [enter]

tenho[enter][enter][enter]

a força

 

 

 

no BD vai cadastrar

 

eu <br />

tenho<br /><br /><br />

a força

 

 

 

 

 

 

como eu preciso

 

trocar as repetições de <br> por apenas 1 <br>

 

eu <br />

tenho<br />

a força

Faz o replace:

 

Replace(texto, Chr(13), "<br />")

 

vai ficar com 3 BRs né? da mais replace nos 3 BRs:

 

MinhaString = Replace(texto, Chr(13), "<br />")

MinhaString = Replace(MinhaString , "<br /><br /><br />", "<br />")

 

certo?

[desisto 0]

isso mesmo jonathandj

 

so que nao importa se é no fim do texto ou no meio, quero trocar x[enter] por apenas 1[enter]

 

 

 

 

Igor Soto

 

se o texto tiver 4 enter nao vai funcionar, vai trocar apenas 3 e 1 vai continuar

 

MinhaString = Replace(MinhaString , "<br /><br /><br />", "<br />")

 

 

 

 

[]s

[jrcardozo 4]

fiz na corrida, dá pra ser bem melhor, mas vai a ideia. se souber expressao regular fica menor ainda

<%
valor = "<br /><br />Este é meu<br /><br /><br /><br><bR /><br />Texto<br /><BR><Br /><br />E o fim<br /><br /><br />"

Function uniqueBr(valor)
	Dim parte
	Dim parteAnterior
	Dim i
	Dim saida
	Dim arrayBr
	valor			= Replace(valor, "<br>", "<br />", 1, -1, vbTextCompare)
	valor			= Replace(valor, "<br />", "<br />", 1, -1, vbTextCompare)
	arrayBr		= Split(valor, "<br />", -1, vbTextCompare)
	For i = 0 To Ubound(arrayBr)
		parte = arrayBr(i)	
		If parteAnterior <> parte Then	
			saida = saida & parte & "<br />"
		End If	
		parteAnterior = arrayBr(i)
	Next
	saida = Replace(saida, "<br /><br />", "<br />", 1, -1, vbTextCompare)
	If Right(saida, 6) = "<br />" Then
		saida = Mid(saida, 1, Len(saida) - 6)
	End If
	uniqueBr = saida
End Function

Response.Write uniqueBr(valor)

%>

[desisto 0]

imaginei que so fosse conseguir com funcao 

 

valeu, vou testar

 

mas nao sou bom com expressao regular, vou depender de você de novo :)

[Mário Monteiro 179]

mas voce detectava os brs seguidos?

 

se sim bastaria um loop while com o replace

 

WHILE INSTR(CAMPO,"<br /><br />",1) > 0
   REPLACE(CAMPO,"<br /><br />","<br />")
WEND

[desisto 0]

ja testei assim REPLACE(CAMPO,"<br /><br />","<br />"), e se tiver 3 br ele deixa 1

[douglasdamame 0]

ja testei assim REPLACE(CAMPO,"<br /><br />","<br />"), e se tiver 3 br ele deixa 1

 

 

Fala ae Desisto.... o que você não pode fazer é desistir kakakaka

 

 

Verifica esta gambiarra que te envio abaixo kakakaka... acho que funciona... já fiz alguns testes e deu certo, dando até 10 "Enters" ele tirou os <BR>:

 

<%

if request("acao")="verifica" then

texto = request("texto")

 

texto = Replace(texto, VbCrLf, "<br>")

texto = Replace(texto, "<br><br><br><br>", "<br>")

texto = Replace(texto, "<br><br><br>", "<br>")

texto = Replace(texto, "<br><br>", "<br>")

response.Write("<strong>Texto Enviado:</strong><br>")

response.Write(texto)

 

end if

%>

 

<form action="?acao=verifica" method="post">

<textarea name="texto" cols="50" rows="5" id="texto"></textarea>

<input name="" type="submit" value="enviar">

</form>

 

 

 

Faça os testes e depois informa se deu certo!! kakakaka

 

 

OBS: A função do Jonathan funciona perfeitamente... o que eu fiz foi uma gambiarra

 

Flw

[desisto 0]

valeu douglasdamame, desisti nao hehehehe

 

acho que a funcao do jonathandj serve melhor pro caso

 

usar replace da forma tradicional nao esta funcionando

 

 

 

 

mas valeu a todos

[xanburzum 169]

fazendo por regular expression, você terá mais produtividade