ตรวจสอบว่าอีเมลถูกต้องหรือไม่

-

'ตรวจสอบว่าอีเมลถูกต้องหรือไม่

ฟังก์ชั่น isvalidemail (อีเมล)

ชื่อสลัวชื่อฉัน c

isvalidemail = true

ชื่อ = แยก (อีเมล "@")

ถ้า ubound (ชื่อ) <> 1 แล้ว

isValidemail = false

ฟังก์ชั่นออก

สิ้นสุดถ้า

สำหรับแต่ละชื่อในชื่อ

ถ้า len (ชื่อ) <= 0 แล้ว

isValidemail = false

ฟังก์ชั่นออก

สิ้นสุดถ้า

สำหรับ i = 1 ถึง len (ชื่อ)

c = lcase (กลาง (ชื่อ, i, 1))

ถ้า instr ("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 และไม่ใช่ isnumeric (c)

isValidemail = false

ฟังก์ชั่นออก

สิ้นสุดถ้า

ต่อไป

ถ้าซ้าย (ชื่อ, 1) = "."

isValidemail = false

ฟังก์ชั่นออก

สิ้นสุดถ้า

ต่อไป

ถ้า instr (ชื่อ (1), ".") <= 0 แล้ว

isValidemail = false

ฟังก์ชั่นออก

สิ้นสุดถ้า

i = len (ชื่อ (1)) -instrrev (ชื่อ (1), ".")

ถ้าฉัน <> 2 และฉัน <> 3 แล้ว

isValidemail = false

ฟังก์ชั่นออก

สิ้นสุดถ้า

ถ้า instr (อีเมล, ".. ")> 0 แล้ว

isvalidemail = false

สิ้นสุดถ้า

ฟังก์ชันสิ้นสุด

-