SoloCodigo

Programación General => Power Builder => Mensaje iniciado por: alexis17 en Domingo 20 de Abril de 2008, 05:19

Título: Validar Correo
Publicado por: alexis17 en Domingo 20 de Abril de 2008, 05:19

buenas noches tengo otra consulta

quiero validar un correo que no meta mas de un @ o mas de un . punto

esta viendo esta validacion  me funciona pero solo valida qeu coloque el @ y el punto

long ll_pos, ll_pos2
        
         ll_pos = 0
         ll_pos2 = 0

         ll_pos = POS(dw_datos_proveedores.object.e_mail[1], "@")

      ll_pos2 = POS(dw_datos_proveedores.object.e_mail[1], ".",ll_pos)
         
         
         IF (ll_pos < 2 OR ll_pos2 < 1) OR (ll_pos2 <  ll_pos) THEN
           messagebox("error", "error")
            RETURN
         END IF

tambien tenia otra duda en esta linea
 ll_pos2 = POS(dw_datos_proveedores.object.e_mail[1], ".",ll_pos)

hay dicen que si no encuentra el . entonces empiza en la posicion que de vuelve el ll_pos  entonces retornara 0
verdad?

Título: Re: Validar Correo
Publicado por: F_Tanori en Domingo 20 de Abril de 2008, 07:29

Valida tambien la longitud completa del correo, creo que tiene que ser mayora 5, la funcion Len te sirve para eso


Saludos