Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Modificacion de un archivo de texto (https://www.clubdelphi.com/foros/showthread.php?t=22610)

omarifr 21-06-2005 16:11:25

Modificacion de un archivo de texto
 
Saludos disculpen si no estoy en el Foro correcto, necesito una aplicacion que lea un archivo y modifica cierta linea del cuerpo del archivo. Ejem.

"Este es
el cuerpo
del archivo <--Debo modificar esta linea y cambiarla por una cadena
a modificar"

AssignFile(Fichero,'C:/X Muestra/Layout.txt');
Reset(Fichero);
while Eof(Fichero)=False Do
begin
readln(Fichero,Linea);
Estoy utilizando readln() pero solo me permite leer la cadena del archivo y no puedo modificarla y si uso el rewrite me borra todo el contenido.
¿Como puedo hacer para modificar una sola linea sin tocar el demas texto del archivo?

Agradeceria mucho si ayuda.

roman 21-06-2005 16:28:48

Podrías usar un StringList:

Código Delphi [-]
var
  Archivo: TStringList;

begin
  Archivo := TStringList.Create;
  Archivo.LoadFromFile('C:\X Muestra\Layout.txt');

  {
    Aquí accedes a las líneas del archivo por índice:

    Archivo[0], Archivo[1], Archivo[2],...

    y puedes cambiar cada una por separado
  }

  Archivo.SaveToFile('C:\X Muestra\Layout.txt');
  Archivo.Free;
end;

// Saludos

omarifr 21-06-2005 16:58:25

Muchisimas Gracias es gusto lo que necesitaba.

<Sergio> 26-06-2005 02:26:20

Cita:

Empezado por roman
Podrías usar un StringList:

Código Delphi [-]
 var
   Archivo: TStringList;
 
 begin
   Archivo := TStringList.Create;
   Archivo.LoadFromFile('C:\X Muestra\Layout.txt');
 
   {
     Aquí accedes a las líneas del archivo por índice:
 
     Archivo[0], Archivo[1], Archivo[2],...
 
     y puedes cambiar cada una por separado
   }
 
   Archivo.SaveToFile('C:\X Muestra\Layout.txt');
   Archivo.Free;
 end;

// Saludos

Pues es una de las mejores respuestas que he visto, realmente le has simplificado las cosas. :)


La franja horaria es GMT +2. Ahora son las 21:53:02.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi