Cita:
Empezado por Neftali
¿Puedes poner el código que utilizas?
Creo que lo más sencillo es utilizar un TStrings; Cargar el fichero, reemplazar y volver a escribir, si el ficheros relativamente pequeño.
|
Código Delphi
[-]
procedure modificar (s:string);
var
f:TextFile;
c:char;
cad:string;
cadena: PAnsiChar; e:boolean;
begin
cadena:='Cadena_a_buscar';
Assign (f,s);
Reset (f);
while not Eof(f) do
begin
Readln (f,cad);
if AnsiContainsStr(cad, cadena) then
begin
writeln (cadena + ' esta contenido en ' + cad);
cad:= StringReplace (cad, cadena, 'Aquesto',[rfReplaceAll]);
writeln (cad);
end;
cad := EmptyStr;
end;
close(f);
end;
Aqui tienes el procedimiento, aqui lo que hago es leer del fichero, modificar la cadena. Podria escribir la cadena modificada en el fichero, pero entonces tendria las dos lineas (original y modificada) en el fichero, cosa que no quiero.
Muachas gracias.