Nu am nevoie de nici un ban, uite aici codul: program Extract; {$APPTYPE CONSOLE} uses SysUtils; var FileIn,FileOut: TextFile; S,Email,Password,Domain: String; begin if ParamCount >= 2 then begin if FileExists(ParamStr(1)) then begin AssignFile(FileIn, ParamStr(1)); Reset(FileIn); end else WriteLn('The file' + ParamStr(1) + 'does not exist, please create it'); if FileExists(ParamStr(2)) then begin AssignFile(FileOut, Paramstr(2)); ReWrite(FileOut); end else begin FileCreate(ParamStr(2)); AssignFile(FileOut, Paramstr(2)); end; while not Eof(FileIn) do begin ReadLn(FileIn, S); Email := Copy(S, 1, Pos(':', S) - 1); Password := Copy(S, Pos(':', S) + 1, Length(S) - Pos(':', S)); Domain := Copy(Email, Pos('@', Email) + 1, Length(Email) - Pos('@', Email)); WriteLn(FileOut, 'smtp.' + Domain + ':' + Email + ':' + Password); end; CloseFile(FileIn); CloseFile(FileOut); WriteLn('Done'); end else Write('Example: file.exe input.txt output.txt'); end. Ps: Cand rulezi executabilul nu uita sa folosesti comanda cd ca sa te duci in acel director altfel va spune ca fisierul input.txt nu exista.....se poate corecta usor bugul asta dar cred ca asta poti face si tu!