reemplazar www.direccion. por un link a la pagina

[Mato]

Hola!!!
Estoy armando un foro y me gustaria reemplazar en el mensaje cuando el usuario escribe www.direccion.com por un link a esa pagina.
La verdad, no tengo ni idea, pense que era como reemplazar algun signo por las smiles pero no, no me sale asi.
A alguien se le ocurre algo?

[Aston]

Hola, he modificado esta función. La he probado y funciona bien:

Código:

'________________________________________________________________
Function ValidURL(cURL)
'Devuelve una URL válida
'¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  ValidURL = cURL
  If InStr(1, cURL, "http://") = 0 Then ValidURL = "http://" & cURL
ValidURL = "<a href='" & ValidURL & "' target='_blank'>" & ValidURL & "</a>"
End Function

Un saludote. ;)

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[Aston]

Perdona, para llamarla sólo tienes que poner:

ValidURL(cURL) o...

ValidURL(&quot;www.laventanita.net&quot;)

Saludos.

<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>

[ElAprendiz]

Ese Aston!!!....Donde estabas amigo..saludos

<center><IMG SRC="http://www.550m.com/usuarios/altolacruz/aprendiz3.gif" ALT="Visitame en AlSurNet.com -- E-Learning E-Commerce Multimedia E-Business--"></center>

[Mato]

Gracias, pero necesito algo asi (hace exacatemente lo mismo que lo tuyo):
Por ejemoplo, tengo una variabla 's' (es el mensaje del usuario) y la hago 'pasar' por determinados replace, como los siguientes:
s = Replace(s, &quot;[/h4]&quot;, &quot;&lt;/h4&gt;&quot;)
s = Replace(s, &quot;):(&quot;, &quot;&lt;img src='smiles/Mad.gif'&gt;&quot;)

y me gustaria que pasara por algo similar y me pongo el link como vos indicaste.
Por ejemplo, el inicio de la direccion seria y el fin
Se me entendio algo?

Gracias!!!!

[Mato]

UrJose, ya habia probado eso. El tema es que queda un espacio vacio, es decir, nada. Porque tendria que escribir que quiero que sea el link, antes de &lt;/a&gt;

[urjose]

Jaja,
claro que habia un mensaje mio antes del de aquí arriba, me di cuenta de mi error y lo borre por que iba a postear otra respuesta. bueno ahi voy con la respuesta.

Puedes hacer lo siguiente:

Código PHP:

   
<%  
Cadena="Esta es la cadena de texto *1http://www.comunidadguru.com*2 como lo ves?"  
Cadena=Split(Cadena," ")  
For i=0 to Ubound(Cadena) Longitud=Len(Cadena(i))-11  
If Instr(Cadena(i),"[url]") Then  
URL=Mid(Cadena(i),6,Longitud)  
'Response.Write URL  
Response.Write "<a href='"&URL&">"&URL&"</a> "  
Else  
Response.Write Cadena(i)&" "  
End If  
Next  
%>  
   

Saludos

[Mato]

Una duda sobre el codigo, urjose.
La variable cadena, tiene que ser solo la direccion, o puede ser todo el texto?

[urjose]

y Ahi te va mejorado para que te respeto los saltos de linea:

Código PHP:

   
<%  
Cadena="Esta es la cadena de texto "&chr(13)&"*1http://www.comunidadguru.com*2"&chr(13)&"como"&chr(13)&" lo ves?"  
Cadena=Replace(Cadena,"[/url]","[/url] ")  
Cadena=Replace(Cadena,chr(13)," "&chr(13)&" ")  
Cadena=Split(Cadena," ")  
For i=0 to Ubound(Cadena)  
Longitud=Len(Cadena(i))-11  
If Instr(Cadena(i),"[url]") Then  
URL=Mid(Cadena(i),6,Longitud)  
'Response.Write URL  
Response.Write "<a href='"&URL&">"&URL&"</a> "  
Else 
Response.Write Replace(Cadena(i),chr(13),"<br>")&" " End If Next  
%>  
 
[/url]  
   

*1=[ url]
*2=

Saludos

[urjose]

La varibale cadena es todo el texto ;) .

Ah otra cosa, en esta zona

Código:

Cadena=Replace(Cadena,"[/url]","[/url] ")
Cadena=Replace(Cadena,chr(13)," "&chr(13)&" ")

En esa zona deben ir todos los replaces que utilices.

Esta probado y funcionando,

Saludos

[Mato]

Gracias UrJose!!!
Le tuve que hacer algunas adaptaciones (algun join y otra cosita por ahi), pero la escencia es lo que posteaste!!!
Me parece que puede ir a las FAQ, o no???

[urjose]

Pues lo puse desde hace un rato, pero si crees que tu código resolvera alguna otra duda pues ponlo aquí, de hecho si te fijas hay un link hacia tu post así que todo lo leeran aquí.

Saludos