[Resolvido] replace em campo texto

[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

 

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

 

não é para deixar apenas um independente de quantos br estiverem juntos?

 

por isso sugeri o uso lo laço

[desisto 0]

nao tinha prestado atencao

 

vou rodar o cod. daqui a pouco e depois posto

[Mário Monteiro 179]

ok dessito no aguardo mas acredito que resolva

[desisto 0]

testei agora e deu erro

 

Tipos incompatíveis: 'valor'

 

WHILE INSTR(valor,"<br /><br />",1) > 0

[jrcardozo 4]

Uma pequena alteração no código do mário

campo = "teste<br /><br /><br>asasa"	
campo = Replace(campo,"<br>","<br />", 1, -1, 1)
While InStr(1, campo, "<br /><br />", vbTextCompare) > 0
	campo = Replace(campo,"<br /><br />","<br />", 1, -1, 1)
Wend
Response.Write campo

[desisto 0]

funcionou 100%

 

 

 

 

valeu  jonathandj

 

valeu Mário

[Mário Monteiro 179]

que bom que resolveu