Manipulando strings

[aninha___10 0]

Olá pessoal

 

Por favor alguém teria uma dica de como posso remover os espaços entre uma string, por exemplo preciso ler e fazer uma verificação na descrição de um produto, contudo na lógica que utilizei os espaços me retornam um erro, preciso removê-los.

 

Obrigada pela ajuda.

[Marcio Soares 0]

Crie uma função:

 

CODE

Public Function TrimALL(ByVal TextIN As String) As String

TrimALL = Trim(TextIN)

While InStr(TrimALL, String(2, " ")) > 0

TrimALL = Replace(TrimALL, String(2, " "), " ")

Wend

End Function

 

E chame a função assim:

 

CODE

Private Sub Command1_Click()

MsgBox TrimALL("Ola ! ! ! Esta função remove todos os espaços de uma string")

End Sub

[Claudio Neto 3]

Olá pessoal

 

Por favor alguém teria uma dica de como posso remover os espaços entre uma string, por exemplo preciso ler e fazer uma verificação na descrição de um produto, contudo na lógica que utilizei os espaços me retornam um erro, preciso removê-los.

 

Obrigada pela ajuda.

 

Como assim? Você quer remover os espaços entre as palavras, é isso?

 

Se for, tenta assim:

 

string = replace(string," ")

 

Se não for isso que quer, não entendi sua necessiada.

 

Abraços...