Как в файле можно найти все заданые слово (а точнее одно) и заменить его на другое? (Имеется в виду есть ли какая-нить стандартная фун-ция).

Считываешь файл, заменяешь слово, потом переписываешь файл с новым словом.

Цитата

(Имеется в виду есть ли какая-нить стандартная фун-ция).

Насколько я знаю, тако

Цитата

Насколько я знаю, тако

нет такой функции.

Vex а поточнее

Цитата

Vex а поточнее

Я хотел дописать "такой функции нет", но случайно нажал ентер

ИМХО, вариант NiJazzа оптимальный, можно еще побайтово считывать, если первый байт совпадает с первым байтом эталона, то запомнить позицию, проверять дальше, при каждом следующей проверке, если предидущая прошла успешно инкрементировать счетчик, если достигнут последний символ эталона удалить с позиции, которую ты запомнил i-тое количество байт, затем записать слово, которое требуется для замены с сответствующей позиции

Во блин загнул

Загружаешь файл в TStringList и делаешь StringReplace.

Ну в принципе, можно прочитать файл как одну БООЛЬШУЮ строку. И воспользоваться после этого каким-нибудь из классических алгоритмов. Например, LCS.
Этот способ будет достаточно быстрым.
Хотя врядли такой алгоритм применим для больших фалйов, а для маленьиких эта скорость не будет иметь большого значения. ИМХО

Вот примерчик на StringReplace:

Код

procedure TForm1.Button1Click(Sender: TObject); var  StrList : TStringList; begin  StrList := TStringList.Create;  try    StrList.LoadFromFile('test.txt');    Memo1.Lines.Assign(StrList);    StrList.Text := StringReplace(StrList.Text, '123', '789', [rfReplaceAll]);    Memo2.Lines.Assign(StrList);  finally    FreeAndNil(StrList);  end; end;

Это сообщение отредактировал(а) <Spawn> - 6.1.2004, 21:27

<Spawn> СПАСИБО, СПАСИБО, ща протестим...

Ну и всем походу тоже спасибо