Este código, provavelmente é um dos mais úteis para o desenvolvedor web.
Esta função inclusive é utilizada neste site CodigoFonte.com.br, pois auxilia a geração das URLs do conteúdo do site.
Por exemplo:
Vamos supor que você tenha a seguinte String.
– “Formatar String para entrar na URL”
utilizando esta função o retorno da função será
– “formatar-string-para-entrar-na-url“.
'-----------------------------------------------------
'Funcao: FormataStringToUrl(ByVal Texto)
'Sinopse: Substitui os caracteres para formar uma
' string que possa ser utilizada na URL
'Parametro: Texto: Texto a ser transformado
'Retorno: String
'Autor: Gabriel Fróes - www.codigofonte.com.br
'-----------------------------------------------------
Function FormataStringToUrl(ByVal Texto)
FormataStringToUrl = Replace(Replace(LCase(Texto), " ", " "), "'", "")
FormataStringToUrl = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(FormataStringToUrl, " ", "-"), "á", "a"), "é", "e"), "í", "i"), "ó", "o"), "ú", "u"), "ã", "a"), "â", "a"), "à", "a"), "ê", "e"), "ô", "o"), "ç", "c"), "/", ""), "'", ""), """", ""), "[", ""), "]", ""), "&", "-"), "#", ""), "+", ""), "{", ""), "}", ""), "ù", "u"), "ò", "o"), ".", ""), "?", ""), "!", ""), ":", ""), "´", ""), "`", ""), "õ", "o"), "", "")
FormataStringToUrl = Replace(Replace(Replace(FormataStringToUrl, "û", "u"), "¢", "c"), "¡", "i")
FormataStringToUrl = Replace(Replace(Replace(FormataStringToUrl, "£", "e"), "¤", ""), "¥", "y")
FormataStringToUrl = Replace(Replace(Replace(FormataStringToUrl, "¦", ""), "ª", "a"), "æ", "ae")
FormataStringToUrl = Replace(Replace(Replace(Replace(FormataStringToUrl, "ë", "e"), "ì", "ì"), "ð", "o"), "Ä", "a")
FormataStringToUrl = Replace(Replace(Replace(Replace(FormataStringToUrl, "ñ", "n"), "ø", "o"), "ý", "y"), " ", " ")
FormataStringToUrl = Replace(Replace(Replace(Replace(FormataStringToUrl, "þ", "p"), "", "e"), "ÿ", "y"), "²", "z")
FormataStringToUrl = Replace(FormataStringToUrl, "%", "")
FormataStringToUrl = Replace(FormataStringToUrl, "---", "-")
End Function
