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>Thanks Sergey! What does the loRegExp.Global = .T. setting do?
>>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>