********************************************************************** Hope you will not use this script to collect unauthorized email addresses! ********************************************************************** Example: // load page into a string variable Dim( HTML, string ) WebGetFile( "http://www.some_site/some_page.html", "c:\\temp\\temp.htm" ) FileReadAll( "c:\\temp\\temp.htm", HTML ) // find email Dim( pos, number ) Dim( email, string ) InStr( HTML, "mailto:", 1, pos ) If( pos, FOUND, NOT_FOUND ) FOUND: Add pos, 6, pos Mid( HTML, pos, 100000, HTML ) // find next space character or double-quote or whatever // ...change it here if you have a different character in your HTML InStr( HTML, " ", 1, pos ) If( pos, FOUND, NOT_FOUND ) FOUND2: Minus( pos, -1, pos ) Left( HTML, pos, email ) ... now do something with the found email ... NOT_FOUND: ********************************************************************** Hope you will not use this script to collect unauthorized email addresses! ********************************************************************** : If, for exemple, I just want to know an e-mail adresse contained in the file, : I looking for an '@', and then, how can I do to memorize my adresse into a : string variable, : thanks.
|