Abrir, leer y escribir un archivo de texto

[[seoane]]

Empezáramos por ahí. El algoritmo que te puse es muy bonito pero altamente ineficiente para tratar textos tan grandes. Si lo dejas el tiempo suficiente funcionara, pero hay formas mejores de hacerlo.

[zvf]

MUCHAS GRACIAS!!

FUNCIONO DE MARAVILLA!!!

Ya obtuve todos los correos que necesitaba.

Pero aun me queda la duda con el algoritmo de bicho, espero que me pueda decir que esta mal en ese codigo

GRACIAS!!!

[[seoane]]

Prueba con algo como esto, debería ser un poco mas rápido:

Código Delphi [-]
var
  i: integer;
  Str: String;
  Source, Dest: TextFile;
begin
  AssignFile(Source,'C:\Origen.txt');
  {$I-}
    Reset(Source);
  {$I+}
  if IOResult = 0 then
  begin
    AssignFile(Dest,'C:\Destino.txt');
    {$I-}
      Rewrite(Dest);
    {$I+}
    if IOResult = 0 then
    begin
      while not Eof(Source) do
      begin
        Readln(Source,Str);
        i:= Pos('EMAIL',Uppercase(Str));
        if i > 0 then
          Writeln(Dest,Copy(Str,i,MAXINT));
      end;
      CloseFile(Dest);
    end;
    CloseFile(Source);
  end;
end;

[[Bicho]]

Ahora el agonioso eres tú!!

Que es que no duermes seoane?? Que estás en la misma franja horaria que yo

Bueno, como ves seoane ya te ha arreglado el código que te puse.

Saludos

[yusnerqui]

Empezado por seaone

{$I-}
Reset(Source);
{$I+}

No se si mi pregunta es demaciado tonta, pero creo que mas tonto seria quedarme con la duda.
Que hace la directiva {$I-}?

Saludos Yusnerqui

[[Bicho]]

Directamente de la ayuda de Delphi

Empezado por Esa tecla tan maravillosa llamada F1

Type Switch

Syntax {$I+} or {$I-}
{$IOCHECKS ON} or {$IOCHECKS OFF}

Default {$I+}
{$IOCHECKS ON}

Scope Local


Remarks
The $I switch directive enables or disables the automatic code generation that checks the result of a call to an I/O procedure. I/O procedures are described in the Object Pascal Language Guide. See Standard routines and I/O
!alink(idh_op_standardroutinesandio,1,TopicNotFound,main). If an I/O procedure returns a nonzero I/O result when this switch is on, an EInOutError exception is raised (or the program is terminated if exception handling is not enabled). When this switch is off, you must check for I/O errors by calling IOResult.

Saludos

[yusnerqui]

ops, pues muchas gracias, es que tengo un teclado nuevo y no encontraba esa tecla jejeje.

saludos.