texto digitado em textarea

[masterboy 0]

Olá pessoal tudo bem?Gostaria de saber como faço pra identificar que tem um link digitado por exemplo no banco de dados e automaticamente ele tranformar o que foi digitado por exemplo www.link.com.br em uma tag de link com target blank, já vi isso em alguns foruns e nesse tb.Se alguém pude me ajudarObrigado

[Patricia 0]

você quer pegar uma url do banco e traze-la em formato de link com target=_blank??se for isso:<a href="<%=Rs("url")%>" target=_blank><%=Rs("url")%></a>

[Salgado 4]

você deve usar o InStr, ele retorna a posição do 1º caractere de sua busca, se for <> 0 significa que a String pesquisada existe dentro da outra, se existir o "www." ou um "http://" você deve pegar o valor da URL, usando LEFT/MID/RIGHT, InSTR novamente (para achar o espaço no final) e substitur ela pelo HTML montadinho.

 

Dificil? Se não entedeu é só postar que tento explicar melhor!

[masterboy 0]

Obrigado Patricia mas não é isso não :-)Salgado é isso mesmo, mas como faço para verificar os caracteres?você tem um código para eu estudar, ou umas dicas hehe.Valeu!

[Salgado 4]

Código para isso não tenho, mas posso lhe explicar a sintaxe do InStr:

O InStr retorna a possição do 1º caractere de uma string dentro de uma outra string, a sintaxe é InStr(String,"Char ou String a encontrar"), usando sua duvida:

Texto = "Visitem esse site www.grupo5.com.br"

Posicao = InStr(Texto,"www")

Response.Write "Posição: "& Posicao &"<BR>"

Response.Write Texto

 

Uma tentativa rápida, sem muitos cuidados, que serão nescessários, mas estou enroladaço aqui no trampo:

Str_Texto = "Visitem esse site www.grupo5.com.br"
Val_Posicao = InStr(Texto,"www")
Str_Parcial = Rigth(Texto,Posicao)
If InStr(Str_Parcial," ") <> 0 Then
Val_Fim_Endereco = InStr(Str_Parcial," ")
Else
Val_Fim_Endereco = Len(Str_Parcial)
End If
Str_Endereco = Left(Str_Parcial,Val_Fim_Endereco)
Str_HTML = "<a href="& Str_Endereco &">"& Str_Endereco "</a>
Str_Texto = Replace(Str_Texto,Str_Endereco,Str_HTML)
Response.Write Str_Texto

[masterboy 0]

Obrigado Salgado, vou testar aquiValeu!

[Salgado 4]

Dá uma clicada nesse Link Testa preenchendo o campo com texto e URLs com "http://" ou "www." ou "ftp://" ou "ftp." se estiver funcionando Ok eu Posto aqui a solução que encontrei.