[Resolvido] espaços em url amigável com asp

[lote14 0]

Fala pessoal é o seguinte:

 

Fiz uma url amigável com isapi que está imprimindo assim: " http://www.gabarite.com.br/video/44-legislacao-especifica-seap-rj- ", com esse hífen no final.

 

Estou usando esta função para formatar a url:

 

Function FormataUrl(ByVal Texto)
       FormataUrl = Replace(Replace(LCase(Texto), "  ", " "), "\'", "")
       FormataUrl = 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(FormataUrl, " ", "-"), "á", "a"), "é", "e"), "í", "i"), "ó", "o"), "ú", "u"), "ã", "a"), "â", "a"), "à", "a"), "ê", "e"), "ô", "o"), "ç", "c"), "/", ""), "'", ""), """", ""), "[", ""), "]", ""), "&", "-"), "#", ""), "+", ""), "{", ""), "}", ""), "ù", "u"), "ò", "o"), ".", ""), "?", ""), "!", ""), ":", ""), "´", ""), "`", ""), "õ", "o"), "\", "")
       FormataUrl = Replace(Replace(Replace(FormataUrl, "û", "u"), "¢", "c"), "¡", "i")
       FormataUrl = Replace(Replace(Replace(FormataUrl, "£", "e"), "¤", ""), "¥", "y")
       FormataUrl = Replace(Replace(Replace(FormataUrl, "¦", ""), "ª", "a"), "æ", "ae")
       FormataUrl = Replace(Replace(Replace(Replace(FormataUrl, "ë", "e"), "ì", "ì"), "ð", "o"), "Ä", "a")
       FormataUrl = Replace(Replace(Replace(Replace(FormataUrl, "ñ", "n"), "ø", "o"), "ý", "y"), "  ", " ")
       FormataUrl = Replace(Replace(Replace(Replace(FormataUrl, "þ", "p"), "€", "e"), "ÿ", "y"), "²", "z")
       FormataUrl = Replace(FormataUrl, "%", "")
       FormataUrl = Replace(FormataUrl, "---", "-")
End Function

 

Este espaço acontece porque quando o usuário vai criar um texto no formulário ele sem querer adiciona espaço no fim do texto, ai a função vai trocando o "" por "-", e se tiver um espaço no fim da url ele troca por "-".

 

Alguém sabe como retirar este espaço/hífen no fim da url(string).

[andersonleme 1]

é só usar a função Trim()

 

Function FormataUrl(ByVal Texto)
       FormataUrl = Replace(Replace(LCase(Texto), "  ", " "), "\'", "")
       FormataUrl = 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(FormataUrl, " ", "-"), "á", "a"), "é", "e"), "í", "i"), "ó", "o"), "ú", "u"), "ã", "a"), "â", "a"), "à", "a"), "ê", "e"), "ô", "o"), "ç", "c"), "/", ""), "'", ""), """", ""), "[", ""), "]", ""), "&", "-"), "#", ""), "+", ""), "{", ""), "}", ""), "ù", "u"), "ò", "o"), ".", ""), "?", ""), "!", ""), ":", ""), "´", ""), "`", ""), "õ", "o"), "\", "")
       FormataUrl = Replace(Replace(Replace(FormataUrl, "û", "u"), "¢", "c"), "¡", "i")
       FormataUrl = Replace(Replace(Replace(FormataUrl, "£", "e"), "¤", ""), "¥", "y")
       FormataUrl = Replace(Replace(Replace(FormataUrl, "¦", ""), "ª", "a"), "æ", "ae")
       FormataUrl = Replace(Replace(Replace(Replace(FormataUrl, "ë", "e"), "ì", "ì"), "ð", "o"), "Ä", "a")
       FormataUrl = Replace(Replace(Replace(Replace(FormataUrl, "ñ", "n"), "ø", "o"), "ý", "y"), "  ", " ")
       FormataUrl = Replace(Replace(Replace(Replace(FormataUrl, "þ", "p"), "€", "e"), "ÿ", "y"), "²", "z")
       FormataUrl = Replace(FormataUrl, "%", "")
       FormataUrl = Replace(FormataUrl, "---", "-")
       FormataUrl = Trim(FormataUrl)
End Function

[lote14 0]

Não funciona pois quando chega neste ponto:

 

FormataUrl = Replace(FormataUrl, "---", "-")

 

Os espaços já foram substituídos pelo "-" hífen, entendeu?

 

Gostaria de tirar o hífen só do fim da string:

 

minha-url-amigavel-

 

queria assim:

 

minha-url-amigavel

[Gilberto Jr 26]

tenta

FormatUrl = replace(right(FormataUrl,1),"-","")

att;

[Mário Monteiro 179]

estes hifens excedentes só ficarão no fim mesmo?

 

Se for

 

WHILE RIGTH(FormataUrl,1) = "-"
  FormataUrl = LEFT(FormataUrl, LEN(FormataUrl) - 1)
WEND 

[Gilberto Jr 26]

bom, eu acho que deu certo, dei uma verificada no site que ele passou e as url não aparece com "-" no final.

[Mário Monteiro 179]

que bom que resolveu

[lote14 0]

Oi pessoal desculpem não ter retornado, mas são tantos posts e dúvidas que até me perdi neste. rsrsr...

 

bom, eu acho que deu certo, dei uma verificada no site que ele passou e as url não aparece com "-" no final.

 

Resolvi mesmo com a solução do Gilberto, valeu pessoal...