Newsgroup: it.aiuto
Titolo: Re: Estrarre indirizzi posta elettronica

 To: 
in...@xxx.com
Prova questo e ringrazia El Dorado se funge
ti crosso su it.aiuto  se c'e' da continuare contina li
#NoTrayIcon
    $FF = FileOpen(@ScriptDir &"\E-mail.txt", 2 ) ; 2 = overwrite | 1 = append
 $search = FileFindFirstFile("*.eml")
While 1
    $NN = FileFindNextFile($search)
    If @error Then ExitLoop
 $file = FileOpen( $NN, 0 )
 While 1
  $Line=FileReadLine ( $file )
  if @error = -1 then exitloop
   If StringMid($line,1,3)="To:" And StringInStr($line,"@")>0 Then
    $w=StringInStr($line,"@")
    $p=$w
    $m=$w
   While 1
    $p=$p+1
If StringMid($line,$p,1)=" " Or StringMid($line,$p,1)=">" Or StringMid($line,$p,1)="" Then ExitLoop
   WEnd
     $Dif1=$p-$w
   While 1
    $m=$m-1
If StringMid($line,$m,1)=" " Or StringMid($line,$m,1)="<" Or StringMid($line,$m,1)="" Then ExitLoop
   WEnd
    $Dif2=$w-$m
    $Email=StringMid($line,$w-$Dif2,$Dif1+$Dif2)
     $Email = StringReplace ( $Email, "<"  , "")
     $Email = StringReplace ( $Email, ">"  , "")
     $Email = StringReplace ( $Email, " "  , "")
     $Email = StringReplace ( $Email, Chr(34), "")
    FileWriteLine( $FF, $Email )
    ExitLoop
  EndIf
 WEnd
  FileClose($file)
WEnd
 FileClose($FF)
 Exit
se hai problemi prova a copiarlo da qui   
http://nopaste.gempai.de/101/
--
Fosco

 se hai problemi prova a copiarlo da qui   
http://nopaste.gempai.de/101/
compilato:  cit.
http://lottosea.netsons.org/ExtractGS.zip
ExtractGS.exe...  GS  sta x client di posta.

adesso funziona.
Ho scaricato e compilato in exe con autoscript.
Ti , vi ringrazio.
Un ultima cosa.
In questo linguaggio non c'č un comando per portare
minuscolo delle righe scritte in maiuscolo?
Grazie
Ciao

 minuscolo delle righe scritte in maiuscolo?
Si  .... tutto nel help del programma stesso
C:\Programmi\Autoit3\AutoIt3.chm
$var = StringLower("I Am A String")
MsgBox(0, "String converted to lowercase is:", $var)
--
Fosco

 > minuscolo delle righe scritte in maiuscolo?
esempio forse piu facile da capire
$var = ("TUTTO MAIUSCOLO")
$minuscolo  =StringLower($var)
; la variabile $minuscolo conterra' il convertito
MsgBox(262144, "", $minuscolo)
--
Fosco

 minuscolo delle righe scritte in maiuscolo?
; Esempio forse piu facile da capire
$var = ("TUTTO MAIUSCOLO")
$minuscolo  =StringLower($var)
;la variabile $minuscolo conterra' il convertito
MsgBox(262144, "", $minuscolo)
$file = FileOpen(@TempDir & "\tmp.tmp", 2)
If $file = -1 Then
    MsgBox(0, "Error", "Unable to open file.")
    Exit
EndIf
FileWrite($file, $minuscolo & @CRLF)
FileClose($file)
$o_SW = ObjCreate("WScript.Shell")
$o_SW.run(@TempDir & "\tmp.tmp")

"Fosco" <fa...@fake.invalid> ha scritto nel messaggio 
news:fsqokb$i5l$1...@megan.servidellagleba.it...

ti ringrazio.
Ciao

 FileWrite($file, $minuscolo & @CRLF) ma questo @CRLF cosa vuol  dire? :-)


 ma aprire tutti quelli presenti con estensione *.eml?
si aprirli a video o modificarli ?
se vuoi sempicemente aprirli  OCCCCCCCCCCCIOOOOOO
fai una prova con pochi *.eml
metti questo nella stessa cartella delle *.eml  ed assicurati che ci siano
solo quelle perche apre qualsiasi cosa trova
; Shows the filenames of all files in the current directory.
$search = FileFindFirstFile("*.*")
; Check if the search was successful
If $search = -1 Then
    MsgBox(0, "Error", "No files/directories matched the search pattern")
    Exit
EndIf
While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
   ; MsgBox(4096, "File:", $file)
Run("notepad "& $file )
WEnd
; Close the search handle
FileClose($search)
--
Fosco

ti ringrazio di nuovo, sei stato davvero
gentile.
Ciao

 gentile.
E ma figurati ...  se hai problemi o domande chiedi pure
Comunque qui c'e' anche il forum con parecchi esempi
http://www.autoitscript.com/forum/index.php
--
Fosco

 Run("notepad "& $file )
ahhh qui se vuoi aprirli con qualcosa di diverso dal
notepad basta cambiare il programma
--
Fosco

"Fosco" <fa...@fake.invalid> ha scritto nel messaggio
news:fsr0sa$ogv$1...@megan.servidellagleba.it...

ti ringrazio di nuovo.
Ciao

 8)exit
f/up to  it.aiuto
--
Fosco

funziona al 100%
bravi e grazie
Ciao