Imprimir Página - funcion para validar email

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.

Citar

Private 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.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: bomba1990 en 15 Julio 2009, 06:29 am