Вставка текста в файл

[corsar1991]

Всем доброго времени суток,у меня есть файл в котором нужно заменить текст который находится между двумя определенными словами на текст из edita '<color=#ADFF64>здесь есть какой то текст,его удалить и написать текст из edit</color>',все что я смог сделать это открыть нужный файл и найти нужное слово,но что дальше делать не приложу ума,в инете к сожалению не нашел решения,по этому пишу сюда,взирание спасибо

var
ss:string
f: textfile;
begin
AssignFile(f,'C:\1\ServerInfo.json' );
reset(f);
while not eof(f) do
begin
readln(f,ss);
if pos('<color=#ADFF64>',ss)<>0 then
end;
CloseFile(f);
end;

[Аватар]

Читаешь построчно - одновременно и пиши в другой. Нашел нужное место - в другой записал вставку и продолжай до конца читать и писать. Потом удали исходный и переименуй тот другой. Или прочитай все в память и обратно пиши в тот же файл, в нужном месте вставка. Ну а вообще в делфи другие, более удобные средства для этого есть. TStringList например

[corsar1991]

Сообщение от Аватар

Читаешь построчно - одновременно и пиши в другой. Нашел нужное место - в другой записал вставку и продолжай до конца читать и писать. Потом удали исходный и переименуй тот другой. Или прочитай все в память и обратно пиши в тот же файл, в нужном месте вставка. Ну а вообще в делфи другие, более удобные средства для этого есть. TStringList например

можно с примером?)

[Аватар]

Ну вот, для небольших файлов сойдет. Для json кстати родной компонент есть, лучше им, наверно, а может и нет, давно не пользовал

  xList:=TStringList.Create;
  xList.LoadFromFile('d:\MyText.txt');
  s1:='Вставить после этого';
  i1:=Pos(s1,xList.Text);
  if i1>0 then begin
    i2:=PosEx('Вставить до этого',xList.Text,i1+Length(s1));
    if i2>0 then xList.Text:=Copy(xList.Text,1,i1+Length(s1)-1)+'абра-кадабра'+
                             Copy(xList.Text,i2,Length(xList.Text));
  end;
  xList.SaveToFile('d:\MyText.txt');
  xList.Free;

[corsar1991]

Сообщение от Аватар

Ну вот, для небольших файлов сойдет. Для json кстати родной компонент есть, лучше им, наверно, а может и нет, давно не пользовал

  xList:=TStringList.Create;
  xList.LoadFromFile('d:\MyText.txt');
  s1:='Вставить после этого';
  i1:=Pos(s1,xList.Text);
  if i1>0 then begin
    i2:=PosEx('Вставить до этого',xList.Text,i1+Length(s1));
    if i2>0 then xList.Text:=Copy(xList.Text,1,i1+Length(s1)-1)+'абра-кадабра'+
                             Copy(xList.Text,i2,Length(xList.Text));
  end;
  xList.SaveToFile('d:\MyText.txt');
  xList.Free;

Спасибо огромное,получилось!!!!