funcion para validar email

Iniciado por bomba1990, 15 Julio 2009, 06:29 AM

0 Miembros y 1 Visitante están viendo este tema.

bomba1990

hola soy nuevo en esto de la programacion y se me ocurrio hacer un programa que sacara mails de un archivo de texto los validara si los mail eran verdaderos y despues los guardara a los validos en un archivo de texto.  (no se si lo puedo publicar todo) pero aqui va una de las funciones que valida los mail a ver que tal esta y a ver qeu consejo me dan.

CitarPrivate Function comprobar_mail(email As String) As Boolean
Dim ilen, i, pos1, pos2 As Integer
Dim caracter, signo, ter


email = fix_correo(email)
ilen = Len(email)
pos1 = 0
pos2 = 0
comprobar_mail = False

If email = vbNullString Then
    Exit Function
    End If
   
    For i = 1 To ilen
        caracter = Mid(email, i, 1)
     
        If caracter = "@" Then
            pos1 = i
            End If
           
        If caracter = "." Then
            pos2 = i
            End If
        If caracter = "=" Then
            Exit Function
            End If
        If caracter = "&" Then
            Exit Function
            End If
        If caracter = "$" Then
            Exit Function
            End If
        If caracter = Chr(13) Then
            Exit Function
            End If
       
        If pos1 > pos2 And pos2 > 0 Then
            Exit Function
            End If
                   
        If i = (ilen - 1) And pos1 = 0 Then
            Exit Function
            End If
       
        If i = (ilen - 1) And pos2 = 0 Then
            Exit Function
            End If
       
           
           
        If i = ilen And pos1 > 0 And pos2 > 0 Then
            comprobar_mail = True
            End If
           
    Next i
 
End Function
en el progrma habria un command button y un cuadro de texto solamente.
"Cuando le di de comer a los pobres me llamaron santo, pero cuando pregunte porque los pobres eran pobres me dijeron comunista"

http://sosinformatico.blogspot.com/
http://www.publisnet.com.ve

cobein

Si queres y te interesa, mira este source http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=66763&lngWId=1 me parece que es lo mas fiel al standard.
http://www.advancevb.com.ar
Más Argentino que el morcipan
Aguante el Uvita tinto, Tigre, Ford y seba123neo
Karcrack es un capo.

seba123neo

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson