Foros Club Delphi - Leer archivo txt letra por letra

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Leer archivo txt letra por letra (https://www.clubdelphi.com/foros/showthread.php?t=52864)

intercubo

02-02-2008 00:49:27

Leer archivo txt letra por letra

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

02-02-2008 00:55:44

Cita:

Empezado por intercubo (Mensaje 262916)

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

02-02-2008 00:56:23

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

02-02-2008 01:11:21

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

06-02-2008 05:48:10

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

06-02-2008 16:25:29

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

11-02-2008 18:46:40

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

11-02-2008 18:51:04

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

Saludos,

felipe88

11-02-2008 20:19:48

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

11-02-2008 22:20:53

Cita:

Empezado por intercubo (Mensaje 264949)

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

12-02-2008 00:30:43

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

12-02-2008 15:55:01

Cita:

Empezado por PepeLolo (Mensaje 265095)

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

12-02-2008 16:22:05

Cita:

Empezado por felipe88 (Mensaje 265210)

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 :o

felipe88

12-02-2008 16:32:00

Cita:

Empezado por cHackAll (Mensaje 265221)

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

:D... no te preocupes cHackAll... a lo que me refiero es que asi me lo imagine yo e igualmente funciona, yo tambien soy novato:o... 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

16-02-2008 21:22:28

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!

La franja horaria es GMT +2. Ahora son las 04:39:12.