16/03/2006, 15:54
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Maipu, Chile
Mensajes: 3.706
Antigüedad: 23 años, 3 meses Puntos: 2 | |
yo habia hecho algo asi
Código:
Function error_texto(texto)
arreglo=split(texto)
for i=lbound(arreglo) to ubound(arreglo)
if arreglo(i)<chr(48) or (arreglo(i) >chr(57) and arreglo(i)<chr(65)) or (arreglo(i)>chr(90) and arreglo(i) <chr(97)) or arreglo(i)>chr(122) then
error_texto=1
end if
next
End Function
probare ese tambien |