Karuta’s ASP & M$ SQLserver

Dicas, códigos e outras coisinhas de meus estudos para não esquecer…

Tirar Acentuação em ASP

Posted by karuta em novembro 8, 2008

Function TiraAcento(ByVal Palavra)
        cacento = “àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ^~´`'”
        sacento = “aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN”
        texto = “”
        If Palavra <> “” Then
            For x = 1 To Len(Palavra)
                letra = Mid(Palavra, x, 1)
                pos_acento = InStr(cacento, letra)
                If pos_acento > 0 Then
                    letra = Mid(sacento, pos_acento, 1)
                End If
                texto = texto & letra
            Next
            TiraAcento = texto
        End If
    End Function

————————————————————————————
chamando a função

CODEresponse.write(TiraAcento(“fórum Imasters.Programação é tudo”))

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

 
%d blogueiros gostam disto: