Cómo acceder al contenido de un archivo de texto

[kiolx]

Hola, he estado mirando varios temas del foro y he conseguido una parte de mi propósito, en concreto lo que llevo es la parte primera, descargar un archivo de una web, pero de la segunda parte no he encontrado nada de informacion, y es que quiero poder abrir un .txt, guardar esa informacion en una string y después compararla con otra string.

Gracias.

[dec]

Hola,

Aún habrá más formas, además de que no esté todo dicho, pero, vamos:


uses
SysUtils;

const
EXAMPLE_FILE_NAME = 'example.txt';
STRING_TO_COMPARE = 'Content of example.txt';
STRING_EQUALS_MSG = 'Ok, the string are the same';
STRING_DIFFER_MSG = 'No, differents strings here';

// Una posible forma leer el archivo y accedera su contenido

procedure TForm1.Button1Click(Sender: TObject);
var
fs: TFileStream;
ss: TStringStream;
begin
fs := TFileStream.Create(
ExtractFilePath(ParamStr(0))+EXAMPLE_FILE_NAME,
fmOpenRead
);
ss := TStringStream.Create(EmptyStr);
try
ss.CopyFrom(fs, fs.Size);
if(ss.DataString = STRING_TO_COMPARE)then
ShowMessage(STRING_EQUALS_MSG)
else
ShowMessage(STRING_DIFFER_MSG);
finally
fs.Free();
ss.Free();
end;
end;

// Otra posible forma leer el archivo y accedera su contenido

procedure TForm1.Button2Click(Sender: TObject);
var
s: string;
tf: TextFile;
begin
AssignFile(tf, ExtractFilePath(
ParamStr(0))+EXAMPLE_FILE_NAME);
Reset(tf);
while not Eof(tf) do
ReadLn(tf, s);
CloseFile(tf);
if(s = STRING_TO_COMPARE)then
ShowMessage(STRING_EQUALS_MSG)
else
ShowMessage(STRING_DIFFER_MSG);
end;

// Otra posible forma leer el archivo y accedera su contenido

procedure TForm1.Button3Click(Sender: TObject);
var
sl: TStringList;
begin
sl := TStringList.Create();
try
sl.LoadFromFile(ExtractFilePath(
ParamStr(0))+EXAMPLE_FILE_NAME);
if(Trim(sl.Text) = STRING_TO_COMPARE)then
ShowMessage(STRING_EQUALS_MSG)
else
ShowMessage(STRING_DIFFER_MSG);
finally
sl.Free();
end;
end;

[MAXIUM]

Tengo una duda, quiero leer un archivo de texto plano muy grande (190MB) se supone que debiera usar TStringStream, pero creo que no soporta la lectura línea alínea que es lo que necesito, por lo que tendria que volver al clasico ReadLn.

Alguna forma optima de hacer esto o como crear un buffer para que la PC no colapce en el ¿proceso?

[sitrico]

La forma Simple y tradicional:


procedure TForm1.LeerTxt(FileName: String);
Var
f : TextFile;
s : String;
begin
memo1.lines.clear; // el memo para poder hacer algo con los strings
AssignFile(f,fileName);
Reset(f);
While not eof(f) do
Begin
ReadLn(f,s);
Memo1.Lines.Add(s);
Application.ProcessMessages; // para que no se cuelgue la aplicación
End;
end;

Falta el manejo de errores per es la únicamanera que conozco para leer un archivo línea a línea. Tengo entendido que los stream leen todo el archivo como un bloque.

[MAXIUM]

El archivo contiene un total de 2.034.190 lineas, pero solo me lee las primeras 79.558 :(

[sitrico]

¿ como lees el archivo ? los Stream usan buffers de 64K (creo)

[MAXIUM]

Los leo tal cual tu código, pero si en vez de eso uso Loadfrom en em memo, carga bien, pero yo necesito leer linea a linea.

[sitrico]

Prueba leer por bloques:

procedure TForm1.Leer(Fn: TFileName);
Const
eol = #10;
var
F: file;
NumRead,i, BufPos:LongWord;
Buf,lin: array[1..1024] of Char;
// Si ajustas el 1024 a la long máxima de la línea de texto mejora mucho el rendimiento ;-)
s : String;
begin
memo1.Lines.Clear;
AssignFile(F, FN);
Reset(F, 1);
BufPos := 0;
repeat
BlockRead(F, Buf, SizeOf(Buf), NumRead);
FillChar(Lin,SizeOf(lin),#0);
i := 0;
While Buf[i] <> eol do
Begin
lin[i] := Buf[i];
Inc(i);
End;
s := String(Lin);
Inc(BufPos,i);
memo1.Lines.Add(s);
Seek(f,BufPos);
until (NumRead = 0);
end;

Aunque no tengo archivos grandes para probar...

[cHackAll]

Hola (http://www.clubdelphi.com/foros/showthread.php?t=53125)

[MAXIUM]

Strico, funciono de maravillas, solo te falto esto "CloseFile(F, FN);" ;) . Destacar que el consumo de RAM es proporcional al archivo a cargar y x2 mientras realiza el proceso.

[cHackAll], tambien gracias, aunque no es lo que necesitaba nunca esta demás tener esos códigos a mano.