COMO RETIRAR ESPACOS ENTRE TEXTO DE UM TEXTB

DANLEONHART 15/01/2011 18:50:49
#362373
Pessoal,
Como faço para retirar os espaços contidos entre os textos digitados em uma TextBox ?
Tipo: se na TextBox for digitado [Ô]Marcos Silva[Ô] seja apresentado: [Ô]MarcosSilva[Ô]...

Eu lí sobre isto mas não lembro
RODRIGOFERRO 15/01/2011 18:54:19
#362374
Crie uma função:
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:
Private Sub Command1_Click()
MsgBox TrimALL([Ô]Hello ! ! ! This function removes all extra spaces from strings[Ô])
End Sub

Fonte: http://www.vbweb.com.br/dicas_visual.asp?Codigo=899
CARLOSBINO 15/01/2011 20:04:44
#362382 Resposta escolhida 
Public Sub Exclui_Espaços()
    Dim Valor(1) As String, b, u As Integer
    Valor(0) = txtValor.Text
    b = Len(Valor(0))
    For u = 1 To b
        If Mid(Valor(0), u, 1) <> [Ô] [Ô] Then Valor(1) = Valor(1) & Mid(Valor(0), u, 1)
    Next u
    txtResultado.Text = Valor(1)
End Sub

Veja o arquivo em anexo.
Tópico encerrado , respostas não são mais permitidas
Voltar