19 replies to this topic

[Fleon]

Holas amigos, de nuevo yo, ¿alguno sabe cómo puedo leer una línea específico de un TXT?, por ejemplo, en un txt tengo:

Prueba1
Prueba2
Prueba3
Prueba4

SI quiero leer sólo la línea "Prueba3" y mostrarlo en un TEdit, ¿cómo lo haría?, porque sólo puedo cargar el archivo completo .

Fleon xD

[Delphius]

Hola Fleon,
¿De que modo estás abriendo/leyendo el archivo?

Se podría emplear un TStringList, por ejemplo, y abrirlo con LoadFromFile(). Después mediante su propiedad Strings[] posicionarse en alguna línea determinada y leerla.

Saludos,

[Fleon]

Hola Delphius, pues lo abro/leo de la manera típica:

delphi

var
  SomeTxtFile : TextFile;
  j: integer;
begin
  AssignFile(SomeTxtFile, 'c:\MyTextFile.txt') ;
  Rewrite(SomeTxtFile) ;
  for j := 0 to (-1 + Memo1.Lines.Count) do
    WriteLn(SomeTxtFile, Memo1.Lines[j]) ;
  CloseFile(SomeTxtFile) ;
end;

Aquí estoy cargando todo el contenido en un Memo, pero no es lo que deseo, pregunta, antes de empezar, sé que con esto se resuelve manejando con INI, pero, si le cambio la extensión, ¿igual se maneja como INI?.

Fleon xD

[luk2009]

Saludos fleon, en esta pagina hay muchas indicaciones de como trabajar con cadenas de texto. Esta es la primera parte, pero en el lateral busca las siguientes partes que llegan hasta la 5. Chequeala y ojala te sirva de ayuda.
http://delphiallimit...de-texto-i.html

[egostar]

A ver

No entiendo que quieres hacer, pero si conoces la línea que quieres puedes hacer esto.....

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('C:\Desarrollo\Archivo.txt');
  ShowMessage(Memo1.Lines[2]);
end;

Salud OS

[egostar]

Otra opción es hacer esto:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  SomeTxtFile : TextFile;
  NumLinea: integer;
  Linea: String;
begin
  AssignFile(SomeTxtFile, 'c:\MyTextFile.txt') ;
  Reset(SomeTxtFile) ;
  NumLinea := 0;
  REPEAT
      Readln(SomeTxtFile,Linea);
      Inc(NumLinea);
  UNTIL NumLinea = 3;
  CloseFile(SomeTxtFile) ;
  ShowMessage(Linea);
end;

Salud OS

[egostar]

Otra Opcion

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  SomeTxtFile : TextFile;
  Linea: String;
begin
  AssignFile(SomeTxtFile, 'c:\MyTextFile.txt') ;
  Reset(SomeTxtFile) ;
  REPEAT
      Readln(SomeTxtFile,Linea);
  UNTIL Copy(Linea,1,7) = 'Prueba3';
  CloseFile(SomeTxtFile) ;
  ShowMessage(Linea);
end;

Salud OS

[egostar]

La otra opción es que esperes a que cHackAll y/o escafandra estén por aquí

Salud OS

[Fleon]

WoW, cuantas opciones , gracias Egostar en un rato les comento

Fleon xD

[Wilson]

El siguiente ejemplo utiliza  2 TEdits, uno para digitar el número de línea y otro para capturar el contenido de la línea.

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
Texto : TStringList;
Linea :Integer;
Archivo : String;
begin
Linea := StrToInt(Edit1.Text);
//Archivo := Asigna aquí tu archivo;
Texto := TStringList.Create;
try
Texto.LoadFromFile(Archivo);
if (Linea >=0 )and (Linea <= Texto.Count - 1) then
  Edit2.Text :=   Texto.Strings[Linea]
finally
  Texto.Free
end;
end;

[Wilson]

El ejemplo del post anterior solo te sirve si coneces la posición de la línea en cuestión,  el siguiente ejemplo lo hace utilizando como  referente al propia línea.

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Archivo: String;
  Texto: TStringList;
begin
  // Archivo := Ruta de el archivo
  Texto := TStringList.Create;
  try
    for I := 0 to Texto.Count - 1 do
      if Texto.Strings[I] = 'Prueba3' then
        Edit2.Text := Texto.Strings[I]
  finally
   Texto.Free
  end;
end;

[Fleon]

He probado todos y me han funcionado de perlas, Egostar, he optado por tu última opción, te pregunto, tengo el siguiente code:

delphi

var
  File: TextFile;
  Linea: String;
begin
  AssignFile(File, FileName);
  Reset(File);
  repeat
    ReadLn(File,Linea);
  Until Copy(Linea,1,5) = 'BAND0';
  CloseFile(File);
  Edit1.Text := Copy(Linea,7,Length(Linea));

Me funciona bien, pero, ¿cómo cargaría 10 líneas diferentes en 10 edits de un sólo tiro?

[Fleon]

Hola de nuevo, Wilson, intenté hacerlo con tu code, y lo hice así:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  Texto: TStringList;
  i: Integer;
begin
  Texto := TStringList.Create;
  Texto.LoadFromFile('C:\Prueba.txt);
  for i := 0 to Texto.Count -1 do begin
    if Texto.Strings[i] = 'Prueba3' then
      Memo2.Lines.Add(Copy(Texto.Strings[i],9,Length(Texto.Strings[i])));
  end;
Texto.Free;
end;

Y no me mostró nada

[Wilson]

Asi me funciona correctamente

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Archivo: String;
  Texto: TStringList;
begin
 Archivo := 'D:\PP.TXT';// ruta del archivo
  Texto := TStringList.Create;
  try
  Texto.LoadFromFile(Archivo);
    for I := 0 to Texto.Count - 1 do
      if Texto.Strings[I] = 'Prueba3' then
      Memo1.Lines.Add(Texto.Strings[I])
  finally
   Texto.Free
  end;
end;

[Fleon]

Hola Wilson, lo acabo de hacer exactamente como lo pones, claro, cambiandole algunos valores, pero no me furula, hasta lo intenté de esta manera:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  Archivo: String;
  Texto: TStringList;
begin
 Archivo := 'C:\Prueba.txt';// ruta del archivo
  Texto := TStringList.Create;
  try
  Texto.LoadFromFile(Archivo);
    for I := 0 to Texto.Count - 1 do
      if AnsiContainsStr('Prueba3', Texto.Strings[I]) then
      Memo1.Lines.Add(Texto.Strings[I])
  finally
   Texto.Free
  end;
end;

Y tampoco me funciona , ¿estaré haciendo algo mal?.

[Fleon]

De nuevo yo, pos sí estaba haciendo algo mal :$, no ponía el valor completo de la línea , pero de todos modos, ¿porqué el último code que coloqué no furula?.

[Wilson]

¿cómo cargaría 10 líneas diferentes en 10 edits de un sólo tiro?

El siguiente ejemplo carga las primeras 10 líneas de un archivo de texto en 10  TEdits

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  Edits: array [0 .. 9] of TEdit;
  I: Integer;
  Archivo: String;
  Texto: TStringList;
begin
  Edits[0] := Edit1;
  Edits[1] := Edit2;
  Edits[2] := Edit3;
  Edits[3] := Edit4;
  Edits[4] := Edit5;
  Edits[5] := Edit6;
  Edits[6] := Edit7;
  Edits[7] := Edit8;
  Edits[8] := Edit9;
  Edits[9] := Edit10;
  Archivo := 'D:\PP.TXT';//Ruta del archivo
  Texto := TStringList.Create;
  try
    Texto.LoadFromFile(Archivo);
    for I := 0 to Length(Edits)-1 do
          Edits[i].Text := Texto.Strings[I]
  finally
  Texto.Free
  end;
end;

[Wilson]

De nuevo yo, pos sí estaba haciendo algo mal , no ponía el valor completo de la línea , pero de todos modos, ¿porqué el último code que coloqué no furula?.

El orden de los  parámetros de AnsiContainsStr  está invertido.

[egostar]

Y que es lo que quieres colocar en los 10 Edits ????

Salud OS

[Fleon]

El orden de los  parámetros de AnsiContainsStr  está invertido.

tremendo, ahora sí furula , gracias amigo, con el último code tuyo y esto ya tengo material suficiente, muchas gracias a todos.

Fleon xD