miss_didi
Messages postés3Date d'inscriptionjeudi 7 avril 2005StatutMembreDernière intervention19 avril 2005
-
19 avril 2005 à 15:59
miss_didi
Messages postés3Date d'inscriptionjeudi 7 avril 2005StatutMembreDernière intervention19 avril 2005
-
19 avril 2005 à 18:05
Bonjour,
Je souhaiterai faire une vérification simple de mails, c'est à dire savoir s'il y a un . un _ un - ou bien juste des caractères avant l'@ puis si apres il y a un .fr ou .com.
Est ce possible comment puis je faire?
cboulas
Messages postés2641Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention 8 janvier 201416 19 avril 2005 à 16:11
Salut, en VB6 utilise l'instruction "Instr" pour chercher des caractères ou chaines de caractères.
exemple :
Dim p1 as Integer 'Définit un entier
Dim p2 as Integer 'Définit un entier
Dim sText as String 'Définit une chaine de caractère
sText = [mailto:moi-moi@ici.com moi-moi@ici.com] 'Définition de la chaine de caractère pour sText
p2 = Instr(sText, "@") 'Recherche de l'emplacement du @
p1 = Instr(sText,"-") 'Recherche d'un - dans sText
if p1 = 0 then 'Si p1=0 alors c'est qu'il n'y a pas de -
p1 = Instr(sText,"_") 'Comme il n'y a pas de - on effectue le 2nd test, pour trouver un _
end if
if p1 < p2 and p1 <> 0 then msgbox "Il y a un - ou un _ dans le nom avant @" 'Si l'un ou l'autre à été trouver tu aura un message
Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs
cboulas
Messages postés2641Date d'inscriptionmercredi 2 juin 2004StatutMembreDernière intervention 8 janvier 201416 19 avril 2005 à 16:14
En fait, met plutôt ceci :
Dim p1 as Integer
'Définit un entier
Dim p2 as Integer
'Définit un entier
Dim sText as String
'Définit une chaine de caractère
sText =
[mailto:moi-moi@ici.com moi-moi@ici.com]
'Définition de la chaine de caractère pour sText
p2 = Instr(sText, "@")
'Recherche de l'emplacement du @
p1 = Instr(sText,"-")
'Recherche d'un - dans sText
p1 = p1 + Instr(sText,"_") 'On fait l'addition avec un 2nd test, si l'un ou l'autre est trouver alors p1 ne sera pas égal à 0
if p1 <> 0 then msgbox "Il y a un - ou un _ dans le nom avant @" 'Si p1=0 alors c'est qu'il n'y a pas de - ou de _
ça permet d'amélioré le test
Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs