| ********************************************************************** 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. 
 
 |