Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Leer txt parrafo por parrafo

Started by Pratasvenska , Sep 10 2014 03:50 AM

Please log in to reply

2 replies to this topic

#1 Pratasvenska

Member

Miembros
38 posts

LocationSuecia

Posted 10 September 2014 - 03:50 AM

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!

0

Back to top

#2 Pratasvenska

Member

Miembros
38 posts

LocationSuecia

Posted 10 September 2014 - 04:18 AM

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;