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:

Código Delphi [-]
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:

Código Delphi [-]
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:

Código Delphi [-]
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

[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.