Code: Select all
Method IsValidEmail(strIn As String) As Logic
//#s Check if email string is valid DvK 16-10-2014
//#l Translated from C# from http://msdn.microsoft.com/en-us/library/vstudio/01escwtf%28v=vs.100%29.aspx
strIn:=alltrim(strIn)
Self:lInvalid:=False
If (STRING.IsNullOrEmpty(strIn))
Return False
Endif
strIn := System.Text.RegularExpressions.Regex.Replace(strIn, "(@)(.+)$", System.Text.RegularExpressions.MatchEvaluator{ Self, @DomainMapper() })
If (Self:lInvalid)
Return False
Endif
Return System.Text.RegularExpressions.Regex.IsMatch(strIn, "^(?("+chr(34)+")("+chr(34)+"[^"+chr(34)+"]+?"+chr(34)+"@)|(([0-9a-z]((.(?!.))|[-!#$%&"+chr(39)+"*+/=?^`{}|~w])*)(?<=[0-9a-z])@))(?([)([(d{1,3}.){3}d{1,3}])|(([0-9a-z][-w]*[0-9a-z]*.)+[a-z0-9]{2,17}))$", System.Text.RegularExpressions.RegexOptions.IgnoreCase)
Private Method DomainMapper(match As System.Text.RegularExpressions.Match) As String
//#s Used by IsValidEmail DvK 16-10-2014
Local idn As System.Globalization.IdnMapping
Local domainName As String
idn := System.Globalization.IdnMapping{}
domainName := match:Groups:Item[2]:Value
Try
domainName := idn:GetAscii(domainName)
Catch e As System.ArgumentException
Local cMessage:=e:Message As String
Self:lInvalid := True
End Try
Return STRING.Concat(match:Groups:Item[1]:Value, domainName)
Indeed! I added it now.robert post=25362 userid=253 wrote: I think the DomainMapper() function is missing from your example.
Code: Select all
FUNCTION IsValidEMail (cString AS STRING ) AS LOGIC
LOCAL cTestString := "abcdefghijklmnopqrstuvwxyz0123456789.!@#$%&*+-/=?^_'{}|~`" AS STRING
LOCAL nCnt AS DWORD
LOCAL nLen AS DWORD
LOCAL nPos AS DWORD
LOCAL cDomain AS STRING
cString := Lower (AllTrim(cString))
nLen := SLen (cString)
// allowed chars ?
FOR nCnt := 1 UPTO nLen
IF At2 (SubStr3 (cString,nCnt,1), cTestString) = 0
RETURN FALSE
ENDIF
NEXT nCnt
// @ only one allowed
nCnt := Occurs ("@", cTestString)
IF nCnt = 0 .or. nCnt > 1
RETURN FALSE
ENDIF
// Domain
nPos := At2 ("@", cString)
cDomain := SubStr2 (cString, nPos+1)
// Dot at the end error
IF SubStr3 (cString, nLen, 1 ) = "."
RETURN FALSE
ENDIF
// dot at first in domain error
IF SubStr3 (cDomain, 1, 1 ) = "."
RETURN FALSE
ENDIF
// . only one allowed
nCnt := Occurs (".", cDomain)
IF nCnt = 0 .or. nCnt > 1
RETURN FALSE
ENDIF
// space not allowed
IF At2 (" ", cDomain) > 0
RETURN FALSE
ENDIF
// evt. ping the domain
RETURN TRUE
Probably, the 99%.Horst post=25397 userid=315 wrote: Thanks for your example. I saw also some like that in c# , but i wanna have a solution closer to Clipper style.
Your example will be more exactly then my one i think (unicode annd äöü) but your calling so many resources to check just a email adress.
So i wrote a simpler code and i think and hope that will work for 99% normal email adresses.
[/code]
