Join us on Facebook!
10
Oct

E-Mail Validation

by admin 938 views 0 Comments and 0 Rections

Validating E-Mail Address


In this tutorial I am going to show you how to validate an email address without using RegEx, It is quite easy.
First we should what the email address should contain and where.
Here is the basic format of an email address:


[email protected]


You might have noticed that there must be "@" and "." in an email address and "@" comes after "."


Here is the code that will verify the email address:

Function checkEmail(Email)
	x=Instr(Email,"@")
	If x=0 Or x=1 Then
		checkEmail=False
		Exit Function
	Else
		y=Instr(x,Email,".")
		If y=0 or (y=x+1) Then
			checkEmail=False
			Exit Function
		Else
			If len(Email) = y Then
				checkEmail=False
				Exit Function
			Else
				checkEmail=True
			End If
		End If
	End IF			
End Function

First the function finds "@" in the email address if found then it will check wheather there is something before it if found then it moves on to the next step to find "." which is also important part of an e-mail, If "." is found then it checks wheather something is inbetween "@" and "." if there is nothing then then email is not valid else moves on to the next step where it checks wheather there is something after "." if nothing then email is not valid. If any step fails it will return "False"


See Examples....

More Posts in "Tutorials"

Comments

blog comments powered by Disqus

Feed Subscription

Get daily inboxed with latest news, reviews and tutorials. Signup now it's free :)



Planetmaks on Twitter

Follow PlanetMaks on Facebook

Recent Comments

Powered by Disqus

Tags

32Bit 64Bit 7 Admin Tool Admin Tools Admin-Tool Admin-Tools AdminTool Adobe Adware All-in-One Anti-Spyware Anti-Virus Apple Backup Tools Browser Browsers Changing Default Directory Codec Data Recovery Download Manager Downloads Drive Utilities Driver Drivers Firefox Flash Freeware Google Graphics Internet Tool Internet-Tool Messaging Microsoft Microsoft Tool Micsellonous Monitoring Multimedia Networking News NVidia Office Tool Office-Tool PC Suite Press Release Registry Samsung Security Shareware Software Softwares Tutorials Vista Windows Windows 7 Windows 8