Leer archivo txt letra por letra

[intercubo]

hola:


soy nuevo en delphi y quisiera saber como puedo leer un archivo de texto .txt letra por letra en un ciclo.

entre mas explicitos sean mejor, les agradezco mucho!

[juanelo]

Empezado por intercubo

hola:


soy nuevo en delphi y quisiera saber como puedo leer un archivo de texto .txt letra por letra en un ciclo.

entre mas explicitos sean mejor, les agradezco mucho!

Hola Intercubo, te invito a que leas la guia de estilo de club, y porque no muestras el código que ya tienes (porque supongo que ya lo intentaste hacer) y en base a eso te podremos ayudar.
Saludos

[ixMike]

Con un archivo de tipo. Concretamente Char. Sería algo así.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  N: Integer;
  C: Char;
  F: File Of Char;
begin
  AssignFile(F, Edit1.text);
  Reset(F);
  for N:=0 to FileSize(F) - 1 do
    begin
      Seek(F, N);
      Read(F, C);
      Memo1.Text:=Memo1.Text+C;
    end;
  CloseFile(F);
end;

Pero aviso, esto ya lo he hecho, y para archivos considerablemente granes es muy lento. Incluso si haces Memo1.Lines.BeginUpdate antes de empezar, y Memo1.Lines.EndUpdate después de acabar, sigue siendo lento para archivos de varios Megabytes.

Por cierto, intercubo, bienvenido al club. Haz caso de lo que dice juanelo la próxima vez.


Salu2.

[[cHackAll]]

He editado mi post porque no era instructivo.

El anterior código de ixMike funciona a la perfeccioón, sin embargo no es necesario hacer el Seek antes de cada lectura si es que el resultado esperado debe es secuencial y no aleatorio. Las funciones de lectura en la mayoria de los casos (si no es en todos), se encargan de realizar dicha opertación internamente.

Saludos

[intercubo]

hola:

me marca un error I/O 103 en el siguiente codigo:

Código Delphi [-]
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Col: Integer;
  Edo: Integer;
  N: Integer;
  C: Char;
  F: File Of Char;
  x: Integer;
begin
  Col:=0;
  Edo:=1;
  AssignFile(F, Edit1.text);
  Reset(F);
  for N:=0 to FileSize(F) - 1 do
    begin
     Read(F, C);
      for x:=0 to 25 do
        begin
          if C=Matriz[0][x] then
            begin
              Col:=x;
              Edo:=StrToInt(Matriz[Edo][Col]);
            end;
            Memo1.Text:=Memo1.Text+Matriz[Edo][Col];
        end;
  CloseFile(F);
    end;
end;

estuve leyendo que el problema es que no se use el Reset(F) pero yo si lo tengo, de un momento a otro comenzo a fallar no se que hice mal.

gracias!

[ixMike]

Me parece que ese error se produce cuando el archivo no existe. Es decir, el archivo escrito en Edit1.Text tiene que existir. Prueba con esto:

Código Delphi [-]
If not FileExists(Edit1.Text) then
  begin
  ShowMessage('El archivo "'+Edit1.text+'" no existe.');
  Exit;
  end;
AsignFile(F, Edit1.text);
{...}

[intercubo]

el archivo si existe y tiene caracteres, he tratado cambiando el nombre de archivo pero sigue pasando lo mismo. cambio de nombre en edit1.text y en el archivo. y como dije antes si existe y la ruta es correcta.

agradeceria que me dijeran otras opciones porfavor.

mil gracias!

[[Delphius]]

¿En que parte del código te da error?
¿Seguro que es ese el error?

Saludos,

[[felipe88]]

Porque no pruebas creando un StringList en el que cargues tu archivo y de alli intentas asignar a cada linea se texto como un String; que en resumidas cuentas es un vector, con lo que podrias mediante una sentencia for recorrer caracter por caracter del texto...

[[cHackAll]]

Empezado por intercubo

...agradeceria que me dijeran otras opciones...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var hFile: Cardinal; Value: Char;
begin
 hFile := _lopen(PChar(Edit1.Text), OF_READ);
 if hFile = -1 then Exit; // No se pudo abrir el archivo
 while LongBool(_lread(hFile, @Value, 1)) do
  Memo1.Text := Memo1.Text + Value;
 CloseHandle(hFile);
end;

[PepeLolo]

Otro ejemplo totalmente funcional.

Código Delphi [-]
unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm2 = class(TForm)
    Efile: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
Var cStrings :TStrings;
    nLeng, i :Integer;
    cLetra :Char;
begin
  cStrings := TStrings.Create;
  try
    cStrings.LoadFromFile(Efile.text);
    nLeng := Length(cStrings.Text);
    for I := 0 to nLeng do
     begin
        cLetra := cStrings.Text[i];   // Leer letra a letra o mejor dicho carácter a carácter
        // lo que quieras hacer con dicha letra
     end;
  finally
     cStrings.free;
  end;
end;
end.

un saludo

[[felipe88]]

Empezado por PepeLolo

Otro ejemplo totalmente funcional.

Código Delphi [-]
unit Unit2;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm2 = class(TForm)
    Efile: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
Var cStrings :TStrings;
    nLeng, i :Integer;
    cLetra :Char;
begin
  cStrings := TStrings.Create;
  try
    cStrings.LoadFromFile(Efile.text);
    nLeng := Length(cStrings.Text);
    for I := 0 to nLeng do
     begin
        cLetra := cStrings.Text[i];   // Leer letra a letra o mejor dicho carácter a carácter
        // lo que quieras hacer con dicha letra
     end;
  finally
     cStrings.free;
  end;
end;
end.

un saludo

A algo asi me referia... el ejemplo de PepeLolo es totalmente funcional...

[[cHackAll]]

Empezado por felipe88

A algo asi me referia... el ejemplo de PepeLolo es totalmente funcional...

Vaya... debo repasar esto del Delphi que creo que no es lo mio

[[felipe88]]

Empezado por cHackAll

Vaya... debo repasar esto del Delphi que creo que no es lo mio

... no te preocupes cHackAll... a lo que me refiero es que asi me lo imagine yo e igualmente funciona, yo tambien soy novato... Pero definitivamente tu tienes una idea simple y concreta... tampoco pienso entrar en polemica por cual sea el mejor algoritmo, eso es decision de quien lo usara...

[intercubo]

Hola:
aki ando de nuevo, lo que pasa ahora esque quiero que cuando suceda un cierto evento el ciclo for no se incremente, y asi vuelva a leer el ultimo caracter que leyo.

hay alguna funcion para hacer eso, que desde cierto punto del ciclo for, por ejemplo desde dentro de un If le puedas mandar una orden al ciclo para que repita el ultimo giro, y no incremente la variable?

Código Delphi [-]
for N:=0 to FileSize(F) -1  do
    begin
      Seek(F, N);
      Read(F, C);
       for x:=0 to 2 do
        begin
      if C=Letras[x] then
              Col:=1;
        end;
        for x:=0 to 9 do
        begin
          if C=InttoStr(Numeros[x]) then
              Col:=3;
        end;
      for x:=0 to 25 do
        begin
          if C=columnas[x] then
            begin
              Col:=x;

            end;
        end;

              if Edo>=0 then
                Begin
                  Edo:=Matriz[Edo][Col];
                  Memo1.Text:=Memo1.Text+C;
                  Edit2.Text:=Edit2.Text+InttoStr(Edo);
                  Edit3.Text:=Edit3.Text+InttoStr(Col);
                  Lexema:=Lexema+C;
                End
              Else
                Begin
                  Edo:=0;
                  AQUI QUIERO QUE SE REGRESE Y NO INCREMENTE A N, PARA QUE PUEDA LEER EL ULTIMO CARACTER QUE LEYO
                end;
  CloseFile(F);
end;

gracias!