Discussion :

[ghohm]

Salut à tous,

j'ais fait une procédure me permettant de vérifier la validité d'une adresse mail, à l'aide d'une fonction trouver ici même grâce à la fonction recherche. Cette fonction a été créée par Leray.

La fonction de Leray :

Private Function Verifie_Email(adresse As String) As Boolean
Dim at As Integer
Dim point As Integer
Verifie_Email = False
at = InStr(adresse, "@")
If at < 2 Then Exit Function
point = InStr(at, adresse, ".")
If point < at + 2 Then Exit Function
Verifie_Email = True
End Function

Ma procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub VerifMail(adresse As String, feuil As Form)
 
Dim at As Integer
Dim point As Integer
 
at = InStr(adresse, "@")
 
If at < 2 Then
    rep = MsgBox("Adresse mail incorrecte", vbCritical + vbOKCancel, "Attention")
        If rep = 1 Then feuil.txtMail.SetFocus
    Exit Sub
End If
 
point = InStr(at, adresse, ".")
 
If (point < (at + 2)) Then
    rep = MsgBox("Adresse mail incorrecte", vbCritical + vbOKCancel, "Attention")
        If rep = 1 Then feuil.txtMail.SetFocus
    Exit Sub
End If
 
End Sub

Pourriez-vous m'aider à l'optimiser ?

Gôm

[HPJ]

Comment veux-tu l'optimiser :
Elle ne doit pas être si lente que çà...

[ghohm]

Comment veux-tu l'optimiser :
Elle ne doit pas être si lente que çà...

autant pour moi ... lorsque j'ais dit "optimiser" je voulais dire "optimale" càd que ma procédure ne doit pas être infaillible, il est peut-être possible que certaines adresses mails ne passent pas ou que au contraire des adresses fausses passent


Plus simplement je voulais avoir votre avis sur la fiabilité de ma procédure.

Merci Gôm

[manube]

Salut,
A ta place je me tournerais plutot vers les expressions regulieres, ca te permettrais de verifier quels sont les caractères qui compsent l'adresse et d'éviter les caractères speciaux du style ]('# and Co qui pour l'instant peuvent passer dans ta fonction.

[ghohm]

merci mais j'avais déjà chercher de ce côté là précédement et l'on m'avait dit que ce n'était pas possible en visual basic 6 mais uniquement en .NET ???

Gôm

PS : je recherche le post en question ...

[edit]http://www.developpez.net/forums/vie...=968307#968307[/edit]

[manube]

En cherchant de mon cote, j'ai vu que certains utilisent l'objet Regex fourni par VBScript.
Par contre je n'ai pas trouvé la bonne référence (à priori soit "Microsoft VBscript" soit "'Microsoft VBScript Regular Expressions 5.5" j'ai rencontré les 2)
Donc si tu y as acces de ton coté, peut etre que ca te permettra d'utiliser les expressions regulières.
Bon courage.
Manu

[ghohm]

Merci manube je vais faire des recherches de ce côté.


Je posterais pour vous tenir au courant.


Gôm

[manube]

Je viens de faire cette fonction qui (a priori) marche pas trop mal:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Public Function IsValidURL(url As String) As Boolean
    Dim regEx As regExp
    Set regEx = New regExp
    regEx.Pattern = "http://[a-zA-Z0-9\-_]*\.[a-zA-Z0-9\-_]*.[a-zA-Z]{2,4}[/[a-zA-Z0-9\-_\.]*"
    IsValidURL = regEx.Test(url)
End Function

J'ai finalement trouvé la bonne reference apres avoir reinstallé VB 6 dc c'est bien 'Microsoft VBScript Regular Expressions 5.5"
Voila je te laisse t'amuser avec.
J'ai trouvé cette adresse qui explique un peu comment ca marche :
http://www.juicystudio.com/tutorial/vb/regexp.asp

[manube]

Pour tes email ca serait plutot ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Public Function IsValidEmail(email As String) As Boolean
    Dim regEx As regExp
    Set regEx = New regExp
    regEx.Pattern = "^\w+([\.-]?\w+)*@\w+([\.-]?\w+)*(\.\w{2,})+$"
    IsValidEmail = regEx.Test(email)
End Function

[ghohm]

MERCI manube c'est parfait !

Effectivement je venais de trouver un post y fesant référence !

Là je suis partit sur les Drag and Drop mais je vais voir ça dès ce soir !

C'est super sympa de ta part, j'espère que ça servira à d'autres !

@+ Gôm

[ghohm]

J'ai finalement trouvé la bonne reference apres avoir reinstallé VB 6 dc c'est bien 'Microsoft VBScript Regular Expressions 5.5"

Je ne trouve plus ce composant dans la liste des composants de VB6 ... j'ai uniquement changé de PC, et sur cette autre PC j'ai exactement le même système d'exploitation (XP Pro) et la même version de VB (Visual Studio Edition Entreprise 6)

Le pire c'est que je viens de m'apercevoir que c'est la même config

Merci de m'aider

Gôm

[startout]

C'est clair que ce bout de code est trés interessant.
En tout cas, moi je le garde

[ghohm]

Je ne trouve plus ce composant dans la liste des composants de VB6 ...

MERCI aragornis

Gôm