ELIMINAR QUEBRA DE LINHA
pessoal como que eu faço para eliminar as quebras de linhas em uma string?
tenho um campo texto onde as vezes o povo da enter, so que eu preciso eliminar isso
como fazer?
tenho um campo texto onde as vezes o povo da enter, so que eu preciso eliminar isso
como fazer?
Campoa = replace (campob,vbcrlf,[Ô] [Ô])
No caso, troca a quebra por um espaço.
No caso, troca a quebra por um espaço.
steste = replace(steste,vbnewline,[Ô] [Ô])
steste = steste & replace(steste,vbtab, [Ô] [Ô])
steste = steste & replace(steste,vbtab, [Ô] [Ô])
Primeiramente se você não quer que o usuário pressione o ENTER pode tirar o Multi-Line do TextBox ou até mesmo tratar no KeyPress para que quando o ENTER for acionado ele não deixe isso acontecer!
Já para os dados gravados você pode fazer assim
if InStr(1, SeuTexto, VbCr) > 0 Then SeuTexto = Replace(SeuTexto, VbCr, [Ô] [Ô])
if InStr(1, SeuTexto, VbLf) > 0 Then SeuTexto = Replace(SeuTexto, VbLf, [Ô] [Ô])
if InStr(1, SeuTexto, VbCrLf) > 0 Then SeuTexto = Replace(SeuTexto, VbCrLf, [Ô] [Ô])
if InStr(1, SeuTexto, Chr(13)) > 0 Then SeuTexto = Replace(SeuTexto, Chr(13), [Ô] [Ô])
...
Ou
SeuTexto = Replace(Replace(Replace(Replace(SeuTexto, VbCr, [Ô] [Ô]), VbLf, [Ô] [Ô]), VbCrLf, [Ô] [Ô]), VbNewLine, [Ô] [Ô])
Essas são algumas maneiras de fazer isso!
Já para os dados gravados você pode fazer assim
if InStr(1, SeuTexto, VbCr) > 0 Then SeuTexto = Replace(SeuTexto, VbCr, [Ô] [Ô])
if InStr(1, SeuTexto, VbLf) > 0 Then SeuTexto = Replace(SeuTexto, VbLf, [Ô] [Ô])
if InStr(1, SeuTexto, VbCrLf) > 0 Then SeuTexto = Replace(SeuTexto, VbCrLf, [Ô] [Ô])
if InStr(1, SeuTexto, Chr(13)) > 0 Then SeuTexto = Replace(SeuTexto, Chr(13), [Ô] [Ô])
...
Ou
SeuTexto = Replace(Replace(Replace(Replace(SeuTexto, VbCr, [Ô] [Ô]), VbLf, [Ô] [Ô]), VbCrLf, [Ô] [Ô]), VbNewLine, [Ô] [Ô])
Essas são algumas maneiras de fazer isso!
Faça seu login para responder