[Resolvido] tratar enter

[desisto 0]

estou usando uma fnc daqui do forum mesmo pra tratat os enters e evitar:

 

tx[enter][enter][enter]tx ->sem tratar

 

tx[enter]tx -> apos tratar

 

 

 

 

texto = Replace(texto,chr(10),"<br />", 1, -1, 1)

while InStr(1, texto, "<br /><br /><br />", vbTextCompare) > 0

texto  = Replace(texto,"<br /><br />","<br />", 1, -1, 1)

wend

 

 

 

mas agora preciso limpar o enter pós texto

 

tx[enter][enter][enter]

 

preciso remover o enter que 'sobra'

 

como poderia adaptar esta fnc?

[Mário Monteiro 179]

Não pode verificar com a funcão RIGHT se termina com seu enter e substituir se precisar?

[desisto 0]

pode terminar em <br /><br /> ou <br />

 

você diz pra fazer if right, 6 ou 12  = br ou br+br...?

 

isso ate resolve o problema, mas pode dar uma lentidão no envio de um form com texto grande

 

 

 

 

se eu não tratar os [enter] no inicio, vou ter uma variavel com chr(10), o trim retiraria isso?

[Mário Monteiro 179]

Não

 

TRIM so remove espaços

 

Não importa se termina com um ou mil brs basta verificar se termina com br em um laço e ir removendo

[desisto 0]

acabei de testar, achei que o trim pudesse interpretar o chr sem tratamento como espaço seria otimo

 

o medo é de um formulario grande perder desempenho

[Mário Monteiro 179]

mas isso dependerá muito da entrada que tiver, pode ser muitos enters para voce tratar

 

seu desempenho será de fato comprometido em caso de muitos

[desisto 0]

vai ter que ser então com right mesmo

[Mário Monteiro 179]

Ok então

 

Quando finalizar avise e se precisar de algo também

 

Abraços

[desisto 0]

beleza, qq 9dade eu retorno, mas por enquanto será a função com right mesmo

 

[]s