2 replies to this topic

[Pratasvenska]

Buen día!
Sucede que tengo un archivo de texto algo grande (~16MB). Y quiero analizarlo, buscar strings, etc... Cómo puedo algo mas o menos así?

1. Abrir archivo .txt
Repeat
  2. Leer linea o párrafo (hasta encontrar salto de línea).
  3. Guardar párrafo en una string.
  4. Realizar modificaciones.
  5. Guardar string a otro archivo.
Until eof

He intentado con LoadFromFile pero lo problemático es abrir el archivo sin que el programa se cuelgue. Alguna idea?

Saludos y gracias!

[Pratasvenska]

Bueno después de usar google un poco mas (no sé por qué no había dado con ésto):

delphi

procedure TForm1.btn1Click(Sender: TObject);
var
  fHandle : Textfile;
  sBuffer : string;
  begin
    AssignFile(fHandle, 'C:\temp\aaa.txt'); {Assigns the Filename}
    Reset(fHandle); {Opens the file for reading}
    while NOT Eof(fHandle) do begin
          Readln(fHandle, sBuffer); {read the line}
          ShowMessage( sBuffer );
    end;
    Closefile(fHandle); {Closes file}
  end;

Saludos!

[genriquez]

Hola, igual en Delphi puedes usar el TFileStream que es bastante bueno también.

Saludos.