FiveTech Support Forums

exist with fwh/xharbour a function to control if the string past is really a email ?
type see if there is the @ on a string ...

thank but on cRegExpression what I must insert ?

or
I made a substr to have the second part of mail because I search a smtp server on my archive
sample

silvio.falconi@gmail.com - SubStr( cMailMittente, at(@, cMailMittente) ) - @gmail.com

I could see the first chr is a @ ...just an idea ....

I found on xharbour reference this sample :
// The example tests if a text string contains an eMail address.
// The search is case insensitive although the RegEx defines
// character classes only with upper case letters.

PROCEDURE Main
LOCAL cRegEx := "[A-Z0-9._%-]+@[A-Z0-9.-]+.[A-Z]{2,4}"
LOCAL cText := "Send your request to info@xharbour.com " + ;
"for more information"

  IF HB_RegExMatch( cRegEx, cText, .F. )
     ? "Text contains eMail address"
  ELSE
     ? "Text contains no eMail address"
  ENDIF

RETURN