Ver Mensaje Individual
  #9 (permalink)  
Antiguo 27/07/2002, 12:53
Avatar de urjose
urjose
 
Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 23 años
Puntos: 1
Re: reemplazar www.direccion. por un link a la pagina

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

Última edición por urjose; 12/01/2003 a las 16:59