Scribd Logo
Carregar

Bem-vindo(a) ao Scribd!

  • 74 visualizações

    Remove Acentos

    Enviado por

    EdsonBernardo
    Esta função verifica cada caractere de uma string e substitui caracteres acentuados e especiais por suas versões sem acentos de acordo com duas variáveis de código. A função primeiro define variáveis de código para caracteres acentuados e suas correspondências sem acento, em seguida verifica cada caractere da string passada e substitui por sua correspondência no segundo código se houver uma correspondência. A função retorna a string sem acentos.

    Direitos autorais:

    © All Rights Reserved
    Baixe no formato TXT, PDF, TXT ou leia online no Scribd

    Remove Acentos

    Enviado por

    EdsonBernardo
    74 visualizações1 página
    Esta função verifica cada caractere de uma string e substitui caracteres acentuados e especiais por suas versões sem acentos de acordo com duas variáveis de código. A função primeiro define variáveis de código para caracteres acentuados e suas correspondências sem acento, em seguida verifica cada caractere da string passada e substitui por sua correspondência no segundo código se houver uma correspondência. A função retorna a string sem acentos.

    Descrição original:

    macro

    Direitos autorais

    © © All Rights Reserved

    Formatos disponíveis

    TXT, PDF, TXT ou leia online no Scribd

    Você considera este documento útil?

    Este conteúdo é inapropriado?

    Esta função verifica cada caractere de uma string e substitui caracteres acentuados e especiais por suas versões sem acentos de acordo com duas variáveis de código. A função primeiro define variáveis de código para caracteres acentuados e suas correspondências sem acento, em seguida verifica cada caractere da string passada e substitui por sua correspondência no segundo código se houver uma correspondência. A função retorna a string sem acentos.

    Direitos autorais:

    © All Rights Reserved
    Baixe no formato TXT, PDF, TXT ou leia online no Scribd
    Fazer download em txt, pdf ou txt
    74 visualizações1 página

    Remove Acentos

    Enviado por

    EdsonBernardo
    Esta função verifica cada caractere de uma string e substitui caracteres acentuados e especiais por suas versões sem acentos de acordo com duas variáveis de código. A função primeiro define variáveis de código para caracteres acentuados e suas correspondências sem acento, em seguida verifica cada caractere da string passada e substitui por sua correspondência no segundo código se houver uma correspondência. A função retorna a string sem acentos.

    Direitos autorais:

    © All Rights Reserved
    Baixe no formato TXT, PDF, TXT ou leia online no Scribd
    Fazer download em txt, pdf ou txt
    Você está na página 1de 1

    Function Acento(caract)

    'Acentos e caracteres especiais que sero buscados na string


    'Voc pode definir outros caracteres nessa varivel, mas
    ' precisar tambm colocar a letra correspondente em codiB
    codiA = ""
    'Letras correspondentes para substituio
    codiB = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
    'Armazena em temp a string recebida
    temp = caract
    'Loop que ir de andar a string letra a letra
    For i = 1 To Len(temp)
    'InStr buscar se a letra indice i de temp pertence a
    ' codiA e se existir retornar a posio dela
    p = InStr(codiA, Mid(temp, i, 1))
    'Substitui a letra de indice i em codiA pela sua
    ' correspondente em codiB
    If p > 0 Then Mid(temp, i, 1) = Mid(codiB, p, 1)
    Next
    'Retorna a nova string
    Acento = temp
    End Function

    Você também pode gostar