DEIXAR APENAS CARACTERES E NUMEROS NA STRING

ALCIRTEODORO 25/10/2013 12:24:07
#430394
Como deixar em uma string apenas letras normais (sem acentuação e sem ç) e números removendo todos os demais caracteres?
MARCELO.TREZE 25/10/2013 12:45:14
#430395
pesquisa aqui no site por retirar acentos
ALCIRTEODORO 25/10/2013 13:15:53
#430396
Já pesquisei e não encontrei. Não desejo remover apenas os acentos quero deixar na string apenas letras, números e remover todos os demais caracteres conforme escrevi acima.
MARCELO.TREZE 25/10/2013 14:25:38
#430398
colega veja só na primeira pesquisa que eu fiz

http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=8300
GANDA.NICK 25/10/2013 17:43:51
#430403 Resposta escolhida
se você quiser remover o acento e a letra também use uma destas abaixo:

Private Sub Command1_Click()

    Dim s As String: s = [Ô]áAbraço234ã[Ô]
    Dim sNova As String
    Dim i As Integer

    For i = 1 To Len(s)
        If (Asc(UCase(Mid$(s, i, 1))) >= 65 And Asc(UCase(Mid$(s, i, 1))) <= 90) Or _
           (Asc(Mid$(s, i, 1)) >= 48 And Asc(Mid$(s, i, 1)) <= 57) Then
            sNova = sNova & Mid$(s, i, 1)
        End If

    Next    [ô]i
    MsgBox sNova


    sNova = Empty
    s = [Ô]áAbraço234ão+[ô]é9[Ô]
    For i = 1 To Len(s)
        If InStr([Ô]abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789[Ô], Mid$(s, i, 1)) > 0 Then
            sNova = sNova & Mid$(s, i, 1)
        End If
    Next    [ô]i
    MsgBox sNova

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar