Código Fonte - O melhor conteúdo para programadores

Este código tem nota

Autor

Gabriel Fróes

membro deste junho de 2006

Enquete

O mercado de publicidade na web chegou no seu limite?

Não, ainda tem muito que crescer
São necessários novos formatos
Não posso opinar
Sim, o modelo atual já está no limite

Home Código Fonte ASP Strings

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

'-----------------------------------------------------
'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

Este código foi útil para você?

Nota	Comentário
10	denunciar tonh0 comentou em 4/9/2012 bom muito bom para usar em url amigaveis quando só permitido ([a-z] \| [0-9] \| [-+])*.
6	denunciar joabhc comentou em 6/8/2012 Otimo Bem Legal Mesmo Aprovado
10	denunciar joabhc comentou em 27/7/2012 bom vlw tava procurando faz tempo
7	denunciar filhook comentou em 26/2/2011 Não funcionou Coloquei na montagem do meu link FormataStringToUrl(rs("titulo_texto")) e não funcionou corretamnte. Deixou a String Minuscula e adicionou os hifens "-" , mas não retirou os acentos das palavras. Alguém pode me ajudar? Obrigado

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação:

Conteúdo

Sobre

Social

Parceiros

PagSeguro - solução para pagamentos online