Função para Link

[-_KIKO_- 0]

1º pessoal alguem tem uma função asp que gera Link?!?!tipo se o cara digitar www.meusite.com.br ele ja coloca link nesse "texto" ? transformando em <a href="www.meusite.com.br">www.meusite.com.br</a> ?? ? ?2º cade o glossario vbscript da pagina inicial do imasters? | :mellow:

[Salgado 4]

Cara, eu tinha uma função assim, não lembro se portei aqui ou em outro fórum, vou ter que procurar aqui no PC.

[-_KIKO_- 0]

valeu salgado, to esperando! (Y)

[Salgado 4]

Cara, não encontrei e acho que o fórum onde havia postado saiu do ar.

 

A idéia era quebrar todo o texto numa Matriz e varrê-la procurando por "http://" ou "www." e caso encontrasse acrescentaria o "<a href=" e o fechamento na posição da Matriz. Acho que com isso já consegue montar sua Function, não?

[-_KIKO_- 0]

Salgagoeu fiz a paradaMatriz = Split(Comentario, " ")For x = LBound(Matriz) to Ubound(Matriz)response.write instr(matriz(x),"www.") If instr(matriz(x),"www.") <> 0 then Matriz(x) = "<a href=http://" & matriz(x) & ">" & Matriz(x) & "</a>" end if' Matriz(x) = QuebraTexto(Matriz(x),70)Nextcomentario = Join(Matriz, " ")response.write comentario o problema é que quando eu uso ENTER na textarea, ele nao pega...ele faz uma enrrolação total no codigo, acredito que seja por causa que ele só gera os numeradores (0),(1)..etc quando se da BARRA DE ESPAÇO e qdo da enter tinha q ser a mesma coisa ne?sabe aprimorar pra mim?de resto ta funfando sim...(se for td digitado na mesma linha sem enter)

[Salgado 4]

Uma solução simples e viável, substitua (com REPLACE) seu Enter (vbcrlf) por " "+vbcrlf (espaço + enter), isso fará existir o separador no momento do SPLIT.

[-_KIKO_- 0]

valeu salgado!

bem dessa mesmo!

 

Para quem quiser

 

Function makeurl(text)text = replace(text,vbcrlf,vbcrlf & " ")Matriz = Split(text, " ")For x = LBound(Matriz) to Ubound(Matriz)If instr(matriz(x),"www.") <> 0 thenMatriz(x) = "<a href=http://" & matriz(x) & ">" & Matriz(x) & "</a>"ElseIf instr(matriz(x),"http://") <> 0 thenMatriz(x) = "<a href=" & matriz(x) & ">" & Matriz(x) & "</a>"end if Matriz(x) = QuebraTexto(Matriz(x),70)Nextmakeurl = Join(Matriz, " ")End Function

[Salgado 4]

Só inverte as condições do IF e do ELSEIF. É melhor verificar 1º se tem o "HTTP://".

[-_KIKO_- 0]

Verdade eu acabei de passar por esse problema..

mas se invertesse ia dar zica tbm

 

agora ta tesão!

 

Function QuebraTexto(Texto, Caracteres)	If Len(Texto) => Eval(Caracteres) Then		QuebraTexto = Left(Texto, Caracteres) &" "& QuebraTexto(Right(Texto,Len(Texto)-Caracteres), Caracteres)	Else		QuebraTexto = Texto	End IfEnd FunctionFunction makeurl(text)text = replace(text,vbcrlf," <br> ")Matriz = Split(text, " ")For x = LBound(Matriz) to Ubound(Matriz)If instr(matriz(x),"www.") <> 0 and instr(matriz(x),"http://") = 0 thenMatriz(x) = "<a target=_blank href=http://" & matriz(x) & ">" & Matriz(x) & "</a>"ElseIf instr(matriz(x),"http://") <> 0 thenMatriz(x) = "<a target=_blank href=" & matriz(x) & ">" & Matriz(x) & "</a>"end if Matriz(x) = QuebraTexto(Matriz(x),110)Nextmakeurl = Join(Matriz, " ")End Function

Trocei o Vbcrlf pelo <BR> de uma vez, eu ia tratar isso depois mesmo de qualquer jeito!

 

Essa função QUEBRATEXTO acho que eu peguei aki no Forum mesmo

ela nao dexa "estorar" o layout da pagina! (Y)

mto util