>lcText = "somebody@something.com abc@sajkfhe.com" > >SET LIBRARY TO regexp.fll >lcPattern = '([a-zA-Z\d][-._\w]*@\w[-._\w]*\w\.\w{2,4})' >DIMENSION laEmAddrList[1] > >lnMatches = regexp(lcText, lcPattern, 2, "laEmAddrList") > >FOR i=1 TO lnMatches > ? laEmAddrList[i] >ENDFOR >>
>>>lcText = "somebody@something.com abc@sajkfhe.com" >>>loRegExp = CreateObject("VBScript.RegExp") >>>loRegExp.Global = .T. >>>loRegExp.Pattern = '([a-zA-Z\d][-._\w]*@\w[-._\w]*\w\.\w{2,4})' >>>loEmAddrList = loRegExp.Execute(lcText) >>> >>>FOR EACH loAddr IN loEmAddrList >>> ? loAddr.Value >>>ENDFOR>>