prohibir ingreso de telefonos

[agaletto]

Hola! Quiero validar dentro de una cadena de texto donde la gente ingresa información de inmuebles que no permite incluir numeros de telefono dentro del texto. Entiendo que deberia buscar dentro del contenido cadenas numericas de mas de 4 o 5 numeros, pero no se me ocurre como.
Gracias.

[gdasoft]

Hola Agaletto,

Tengo que confeccionar un función como la que tu necesitas. Piensa que se tendrá que tratar la cadena con lupa pues un teléfono te lo pueden enviar 666 666 666, 66 666 66 66, 666666666, etc.

Es decir que se tendrá que tratar de varias maneras.

Para la misma funcion que estoy creando también tengo que incluir que la funcion bloquee a parte de los numeros de teléfono, paginas web i emails.

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

No he tenido mucho tiempo para finalizar esta función. Te copio el poco código que he elavorado por si te puede servir de algo.

Un saludo