FUNCAO PARA RETIRAR CARACTERES ESPECIAIS

ABDON 09/09/2009 09:37:52
#322367
Bom dia,
preciso fazer um função para retirar carateres especiais de uma caixa de texto,
tais como, ( ),*,/,-,+,etc...
se aguem souber ajuda ae!

vlw
TECLA 09/09/2009 09:48:08
#322368 Resposta escolhida
Função para remover os caracteres
Public Function RemoverCaracter(Valor As String) As String
Dim Remover As String, i As Byte, Temp As String
Remover = [Ô]()*/-+[Ô]
Temp = Valor
For i = 1 To Len(Valor)
    Temp = Replace(Temp, Mid(Remover, i, 1), [Ô][Ô])
Next
RemoverCaracter = Temp
End Function


Chamada à função
Text1 = RemoverCaracter(Text1)
ABDON 09/09/2009 12:50:01
#322394
Tecla esta dando erro em uma função chamada Replace

Temp = Replace(Temp, Mid(Remover, i, 1), [Ô][Ô])

A versão do VB que uso é a 5.0.
MARCELO.TREZE 09/09/2009 14:48:12
#322405
no código do colega só troque isto

For i = 1 To Len(Valor)

por

For i = 1 To Len(Remover)
ROBIU 10/09/2009 10:47:16
#322474
Deu trabalho mais encarei o desafio e criei um Replace na [Ô]marra[Ô] para você. 

Function CarRemove(Texto As String, Caracteres As String) As String
    Dim Ic As Integer, It As Integer, Inicio As Integer, Pos As Integer, Caracter As String
    
    For Ic = 1 To Len(Caracteres)
        Caracter = Mid(Caracteres, Ic, 1)
        Pos = 1
        Inicio = 1
        If InStr(Inicio, Texto, Caracter) > 0 Then
            For It = 1 To Len(Texto)
                Pos = InStr(Inicio, Texto, Caracter)
                CarRemove = Mid(Texto, 1, Pos - 1) & Mid(Texto, Pos + 1)
                Inicio = Pos
                List1.AddItem CarRemove & [Ô]|[Ô] & Pos & Caracter
            Next It
            Texto = CarRemove
        Ic = Ic - 1
        Else
            CarRemove = Texto
        End If
    Next Ic
End Function


Para chamar:

Text1.Text = CarRemove(Text1.Text, [Ô]+#/@*/[Ô])


Teste:

MsgBox CarRemove([Ô]R+*o#b*******@@@@@@@@@@@#############er/to+[Ô], [Ô]$@¨%&*/+#[Ô])
Tópico encerrado , respostas não são mais permitidas
Voltar