Categorias

Formatar String para entrar na URL

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