Запись в конец строки ? Опции

[unic]

//

Сообщение отредактировано: unic - 11.03.2011 4:51

[Lapp]

никак не соображу каким образом можно записать в конец строки (текстового файла) .
Задачка простая , считать-посчитать , но вот добавить в конец строки смутило.
формат файла :

<букофки> <букофки> <циферки> <сюда записать>

Давай уточним. Ты имеешь текстовый файл, содержащий некоторое количество строк, и хочешь добавить фрагмент в конец некоторой строки (не обязательно последней)?
Если так, то тебе придется перезаписать весь остаток файла, начиная с той строки, которую ты редактируешь. При этом возникнет проблема: если бы будешь писать в тот же файл, то ты будешь затирать то, что еще не прочитал. Поэтому ты либо прочти весь файл в какой-то буфер, либо (на практике лучше) пиши новый файл с другим названием (временный), а по окончании процесса сотри старый файл и переименуй новый.

Например, тебе надо в 10-ю строку дописать 'asdf'. Это можно сделать как-то так:

fn:= 'myfile.txt';
assign(f,fn);
reset(f);
assign(t,'temp.txt');
rewrite(t);
i:= 0;
while not EoF(f) do begin
  readln(f,s);
  Inc(i);
  if i=10 then s:= s+'asdf';
  writeln(t,s)
end;
close(t);
close(f);
erase(f);
rename(t,fn);