Formatação De Links

[Code]

Ois,

Tou melhorando um sistema de chat e quero colocar um sistema de formatação de links, assim quando o usuário introduzir o link, o script o transformaria num link activo com <a href>...

Pelo que sei, precisarei de:

- Localizar http:// na string da mensagem e guardar a posição inicial;

- Localizar o ' ' imediatamente a seguir ao final do link http:// e guardar a posição final;

- Guardar esse pedaço de texto (posição inicial até à final) numa nova variável;

- Formatar a variável de forma a introduzir o link e guardar numa nova variável;

- Substituir na mensagem a variável1 pela variável2.

Gostaria que me dissessem quais as funções a aplicar no 2º e 3º passo.

Penso que está tudo bem explicado, e talvez este tópico sirva para mais utilizadores que queiram formatar os seus links, eu procurei mas não encontrei nenhum tópico com essa função, se existe, peço desculpa pelo tópico repetido.

[DackAle]

você faz tudo isso com INSTR e variaveis =)

Utilize a função INSTR pra achar o http:// e se quiser o www

se não achar (ou seja retornar 0), você pega o endereço (por www.terra.com.br) e poe o http://, é só na base de criar variavel =)

Abraços

[Code]

ois,

O que está mal aqui?

<%
dim posi,posf,link,link2,sChatMsg
sChatMsg="O meu site é o http://www.sobreira.net"
posf = 1
posi = 0
Do while posf < len(sChatMsg)
posi = Instr(posf,sChatMsg,"http://",1)
If posi=0 then posi=len(sChatMsg)-1
posf = Instr(posi,sChatMsg," ",1)
if posi>0 AND posf=0 then posf=len(sChatMsg)
link = Mid(sChatMsg, posi, posf)
link2 = "<a href="&link&">"&link&"</a>"
sChatMsg = Replace(sChatMsg, link, link2)
loop
Response.Write(sChatMsg)
%>

dá

Active Server Pages error 'ASP 0113'

Script timed out

/vsb/string.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

Provavelmente ciclo infinito.

Obrigado.

[Code]

pelos testes que fiz o problema está nas variaveis posi e posf pois se eu as substituir por valores numéricos nas funções InStr e Mid o código passa a funcionar.

Será que tem que ser um valor numérico nas funções?

[Code]

desesperante! arghh parece que vai ficar para o ano.

Deixo aqui o link: http://www.sobreira.net/vsb/string.asp

Bom 2005 a todos!

[Code]

Editei o código, agora não dá o erro de função mal aplicada mas parece existir um ciclo infinito.

[Code]

já corrigi.

Agora está a funcionar.