Bloquear cadena ("http://","www")

[gdasoft]

Buenas tardes,

Tengo un foro en el cual hay usuarios que en el mensaje además de exponer sus preguntas y respuestas también ponen direcciónes URL, como puedo hacer un tratamiento de estas cadenas para detectar que tienen una URL y remplazarla por un texto que yo elija.

Ej:

Usuario escribe:

Hola que tal? miren esta página es muy bonita http://www.forosdelweb.com

Despues del tratamiento de la cadena se mostraria

Hola que tal? miren esta página es muy bonita [contenido bloqueado]


El problema que tengo es que al tratar la cadena con la funcion que tengo hago un replace de todo el texto y solo quiero remplazar la URL si la pasan.

Gracias en adelante.

[phillipecw]

Para ello tendrías que utilizar la función "Left". Algo así:

Código ASP:

<%
If (Left(URL, 7) = "http://") OR (Left(URL,4) = "www.") Then
   ...
End If
%>
 

Más información al respecto: http://www.w3schools.com/vbscript/func_left.asp

[gdasoft]

Hola phillipecw,

Ante todo gracias por contestar, el metodo que me propones es la idea principal que yo tenia, pero como comente en el mensaje principal eso modifica todo el texto y no solo una cadena de un texto entero.

Usuario escribe:

Hola que tal? miren esta página es muy bonita http://www.forosdelweb.com

Despues del tratamiento de la cadena se mostraria

Hola que tal? miren esta página es muy bonita [contenido bloqueado]

[dicuenca77]

Esto que te pongo funciona:

Código ASP:

<%
 
Response.Write filtra_URL("Mi Web es http://www.miweb.com y mi web alternativa es www.miweb2.com. Tambien pueden visitar www.miweb3.com")
 
 
Function filtra_URL(byval str)
Dim comienzo, strurl
 
do While (instr(str,"http://")>0) or (instr(str,"www.")>0)
strurl=""
'Calculamos la pos. del comienzo de la URL
comienzo=instr(str,"http://")
 if comienzo=0 then
  comienzo=instr(str,"www.")
 End if
 
'Construimos la URL detectada
Do while (mid(str, comienzo, 1)<>" ") and (comienzo<>len(str)+1)
strurl=strurl+mid(str, comienzo, 1)
comienzo=comienzo+1
Loop 
'y la reemplazamos en la cadena original
str=replace(str,strurl,"[contenido bloqueado]")
'vamos a por la siguiente en caso que exista
Loop
 
filtra_URL=str
 
End Function
 
 
%>
 

El resultado del response.write llamando a la función Function filtra_URL produce:

Mi Web es [contenido bloqueado] y mi web alternativa es [contenido bloqueado] Tambien pueden visitar [contenido bloqueado]

Espero que te sirva.

Un saludo.

[gdasoft]

Hola dicuenca77,

Tu función es perfecta para lo que andaba buscando, si te he de ser sincero empeze a construirla yo mismo con un while y recorriendo las posiciones, etc.

Pero con tu aportación me he ahorrado ese trabajo.

Muchísimas gracias.

Así pues tema SOLUCIONADO!

[dicuenca77]

Me alegro que te sirva!

Dio la casualidad que tenía que programar algo parecido a lo que necesitabas y ya lo hice yo en su día. Sólo te la adapté un poco.

Saludos!

[phillipecw]

Gracias por compartir la función, dicuenca77.

Parece que leí mal la pregunta inicial, ya que lo que comenté anteriormente no servía de nada...