Como eliminar direccion web de un texto

[menxucp27]

Hola a todos...

Existe alguna función para comprobar si en una cadena de texto hay escrita alguna direccion web???

En mi web tengo un formulario con un textbox donde no esta permitido escribir direcciones web y tenemos que revisar uno por uno todos los envios.... es un poco pesado (sin el poco)

He encontrado esta otra funcion que encuentra mails dentro de un texto y los reemplaza:

function find_email(text)
dim arraytext
arraytext = split(text," ",-1,1)
email_addresses = filter(arraytext, "@", true, vbtextcompare)

for each field in email_addresses
text = replace(text, field, "<b>*correo eliminado*</b>")
next
find_email = text
end function

Gracias a todosssssssssss

[menxucp27]

Acabo de descubrir que esta misma funcion tambien sirve para buscar direcciones web.

Un saludo a todos.

[sjam7]

solo habria que agregarle que en lugar de @ busque http's o www, aunque el problema sera cuando el usuario ponga enlaces sin www o sin http como podria ser blog.creandowebs.com y si tambien buscaras los .com existiria la posibilidad de que sea otra extension.... bueno, las 2 primeras opciones que busques podrian ser suficientes...