Retirar quebra de Linha

[Alex-jpa 0]

Galera

 

Estou com uma dificuldade em não conseguir tirar uma quebra de linha que vem do banco de dados MYSQL (memo) que o usuário ao usar o cadastro do sistema digitou o texto no textBox multiline.

 

Eu usei o seguinte comando para recuperar esse texto evitando que o texto saia quebrado, só que não estou conseguindo.

 

EX:

 

O texto cadastrado foi

 

Valor 1 R$ 4,00

Valor 2 R$ 6,00

 

eu queria dessa forma

 

Valor 1 R$ 4,00- Valor 2 R$ 6,00

 

 

O código que estou tentando colocar só que não consigo é esse:

Mid(rsValor("obsCobranca"), InStr(rsValor("obsCobranca"), vbCrLf) + 1, Len(rsValor("obsCobranca")))

 

 

 

Alguém pode me ajudar?

 

 

grato

 

Alex

[luiz humberto 0]

Utilize a função Split e como delimitador o VbCrlf.

[Graymalkin 0]

Ou use Replace() para substituir o vbCrLf pelo "-".Abraços,Graymalkin