>>CLEAR >> >>TEXT TO lcStr NOSHOW >>Sales: sales@whatever.com >>Info: info@whatever.com >>Support: support@whatever.com >>ENDTEXT >> >> >>loMatches = ExtractAddresses(lcStr) >>? loMatches.Count >>FOR EACH loMatch IN loMatches >> ? loMatch.Value >>ENDFOR >>RETURN >> >>FUNCTION ExtractAddresses >>LPARAMETERS tcText >>LOCAL loRegExp, loEmAddrList >>loRegExp = CreateObject("VBScript.RegExp") >>loRegExp.IgnoreCase = .T. >>loRegExp.Global = .T. >>loRegExp.Pattern = '(\w[-._\w]*\w@\w[-._\w]*\w\.\w{2,9})' >>loEmAddrList = loRegExp.Execute(tcText) >>RETURN loEmAddrList >>>>