email check

[hatchy]

Hoi

bestaat er een code in vb 6.0 dat als er iemand in een textbox een email adres ingeeft dat dat
gechecked wordt of dat een geldig adres is bv dat er een @ instaat of dat er vanachter .be, ..enz staat
Gaat dat met een Format

 

[That Guy]

Je kunt proberen te gebruiken:

Instr()   'kijk of een bepaald character in een string staat, en op welke plek
mid()   'met een for...next loop om elk character lost te checken


'voorbeeld-code (niet werkend)

dim i as integer
dim cStr as string
for i = 1 to len(text1.text)
 cStr = mid(text1.text, i, 1)
   if cStr = "@"
    echo "De '@' zit op plek " & i
   end if
next i

 

[CoD_NL]

Nee, er bestaat geen code die checkt of een emailadres geldig is. Maar dat hoeft ook niet. Ik heb even iets voor je in elkaar gezet dat doet wat je wilt. (althans, in grote lijnen. Controle zou nog beter kunnen, maar lijkt me overbodig.)

Dim s As String, t() As String, geldig As Boolean
s = "cod@cod.nl"
t = Split(s, "@")
If UBound(t) > 0 Then
   If Left(Right(t(UBound(t)), 4), 1) = "." Or _
      Left(Right(t(UBound(t)), 3), 1) = "." Then
      geldig = True
   End If
End If
MsgBox geldig

 

[That Guy]

een simpele uitbreiding die voorkomt dat er "codcod@.nl" word ingevoerd:

   If Left(Right(t(UBound(t)), 4), 1) = "." _
Xor Left(Right(t(UBound(t)), 3), 1) = "." Then

(in plaats van OR een XOR gebruikt )

 

[hatchy]

thanx ga eens proberen

 

[CoD_NL]

een simpele uitbreiding die voorkomt dat er "codcod@.nl" word ingevoerd:

   If Left(Right(t(UBound(t)), 4), 1) = "." _
Xor Left(Right(t(UBound(t)), 3), 1) = "." Then

(in plaats van OR een XOR gebruikt )

Maar zelfs dan is de functie nog lang niet perfect.

s = "cod@cod..l" -> true
s = "@cod.nl"     -> true

Maar 't zal voor het meeste wel goed genoeg zijn.