hello,
Someone has a function to get emails out of a string
I read a website and want to pull the emails out of it. The cTxt (content) can have more than one email.
Is there a function that reads back from a string ?
The At(....) will give the position of the @ sign, but i have to go to the front for the first blanco char, and also go to the back to finaly have
ex. mymail@mydomain.com
local cMail := "slk slkjsd ljd d <!-- e --><a href="mailto:mycta.withmore@gmail.com">mycta.withmore@gmail.com</a><!-- e --> fnsjhkjsh sdhksjdhk"
local c1 := Left( cMail, At( "@", cMail ) )
local c2 := Right( cMail, Len( cMail ) - At( "@", cMail ) )
local c := AllTrim( Substr( cMail, Rat( " ", c1 ), At( " ", c2 ) + ( Len( c1 ) - Rat( " ", c1 ) ) ) )
? cYes this works if the leading and trailing char = space,
But I have the str !!, so I have to fine-tune the result more.
I also get this as result :
href="mailto:info@dbm-essen.be">info@dbm-essen.be</a>
I will have to work with some if/then to finaly get to the email itself.
If mailto: is in the str, then return a substr(to difine)
I think that there will be other str's to come with more options.
PROCEDURE Main
LOCAL cRegEx := "[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}"
LOCAL cText := "Send your request to 'mailto:info@dbm-essen.be>info@dbm-essen.be '" + ;
"for more information"
LOCAL cEmail, nStart, nLen
cEmail := HB_AtX( cRegEx, cText, .F., @nStart, @nLen )
? cEmail
inkey(0)
RETURNGreat, very good
function extractonline()
local aMails:={}
LOCAL cRegEx := "[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}"
LOCAL cEmail, nStart, nLen
Local cText := "Send your request to 'mailto:info@dbm-essen.be>info@dbm-essen.be '" + ;
"for more information or to 'mailto:info@dbm-essen.be>info@dbm-essen.be ' and finaly to <!-- e --><a href="mailto:info@maveco.be">info@maveco.be</a><!-- e -->"
do while at("@",cText) > 0
? cText
cEmail := HB_AtX( cRegEx, cText, .F., @nStart, @nLen )
? cEmail
AADD(aMails,cEmail)
cText = substr(cText,at("@",cText)+1)
enddo
xbrowser(aMails)
return
cEmail := ALLTRIM( cEmailCliente )
cEmailErro := HB_aTokens( cEmail, ";" )