transformar String em Link!

[explore 3]

Ai pessoal to com uma duvida boba!!

 

Quero q quando a pessoa digitar algo no campo elese transforma em link!

 

vou explicar melhor!

 

no caso ele só podera transformar em link se o usuario digitar o "www" ou o "http://" estou fazendo a seguinte logica!!!!!!

 

ASP

[*]var = request("texto")

 

[*]if var = "http://" then

 

[*]var = replace(var, "http://","<a href=http://")

 

[*]var = var&">"&var&"</a>"

 

[*]elseif var = "www" then

 

[*]var = replace(var, "www","<a href=http://www")

 

[*]var = var&">"&var&"</a>"

 

[*]else

 

[*]var = var

 

[*]end if

 

[*]Response.write(var)

Não sei se isso ta certo mais foi a logica que tive!

de vez de ele transformar em link quando tem http:// ou www, ele naum transforma ele fica como texto!

 

Valeu!

[Salgado 4]

Nesse link tem uma função criada por um usuário que faz isso: AQUI Ó

 

Ou então faça o sequinte: quebre seu texto em um array usando o " "(espaço) como separador e varra verificando se existe "http://" ou "WWW." se tiver você edita, com replace ou acrescentando as Tags corretas, para que fique como Link e depois você une novamente o texto, usando JOIN.

[Tigger 0]

Fala ae cara do VB!!acho que esta faltando alguma coisa...como nao tenho nada para fazerestarei dando uma olhadinha nessa sua logica...beleza;)

[Tigger 0]

vamos deixar com quem sabe..heheheh :( !!!

[explore 3]

hahahha Valeu Tigger!!!!!

 

 

ai Salgado seu Link me ajudo bastante!

 

eu fiz um esquema aqui e funfo!

ta ai minha logica:

 

ASP

[*]

 

[*]

 

[*]<%

 

[*]

 

[*]dim x

 

[*]Redim x(1)

 

[*]var = request("texto")

 

[*]if Left(var,7) = "http://" then

 

[*]'var = replace(var, "http://","<a href=http://")

 

[*]x(0) = "<a href=" & var & " target=_blank>" & var & "</a>"

 

[*]Response.write(x(0))

 

[*]elseif Left(var,3) = "www" then

 

[*]'var = replace(var, "www","<a href=http://www")

 

[*]x(1) = "<a href=http://" & var & " target=_blank>" & var & "</a>"

 

[*]Response.write(x(1))

 

[*]else

 

[*]var = Cstr(var)

 

[*]Response.write(var)

 

[*]end if

 

[*]

 

[*]%>

 

[*]

 

Ai Tigger se quizer ta ai!

Falo!!!!!!!!!

[explore 3]

Já tava esquecendo!!!!!!Valeu Salgado!!!!!!!!

[Mário Monteiro 179]

cheguei atrasado mas só explicando o que tava faltando no codigo inicial era corrigir as linhas de comparaçãoif var = "http://" thenelseif var = "www" thenpois você perguntava se a var era igual mas devia pegurntar se eles continham ou começam por isso como no exemplo colocado pelo salgado...

[explore 3]

è isso mesmo Mario!!!!!!Ai usei o Left e funfo!!!!!!Valeu!

[Mário Monteiro 179]

è isso mesmo Mario!!!!!!

 

Ai usei o Left e funfo!!!!!!

 

 

Valeu!

que bom entao.... http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif