none
slug com asp RRS feed

  • Pergunta

  • Ola, como é possível transformar uma frase comum num slug sem caracteres com acento e hifens ao invés de espaço?
    terça-feira, 27 de setembro de 2011 03:23

Respostas

  • algo como isso??

     

    Function RemoveAcentos(ByVal Texto)

        Dim ComAcentos

        Dim SemAcentos

        Dim Resultado

    Dim Cont

        'Conjunto de Caracteres com acentos

        ComAcentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇ纪,.; !?/"

        'Conjunto de Caracteres sem acentos

        SemAcentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCcoa----"

        Cont = 0

        Resultado = Texto

        if Texto <> null then

    Do While Cont < Len(ComAcentos)

    Cont = Cont + 1

    Resultado = Replace(Resultado, Mid(ComAcentos, Cont, 1), Mid(SemAcentos, Cont, 1))

    Loop

    end if

        RemoveAcentos = Resultado

    End Function

    sexta-feira, 30 de setembro de 2011 16:40