Крутые программёры! Спасайте! До завтра нужна прога... Иначе - смерть
Написать на языке Турбо Паскаль программу, используя тип текстовые файлы. Даны 2 последовательности символов в текстовом файле. Заменить все вхождения первой последовательности на вторую.

За нормально работающую программу готова выделить вознаграждение [Ответ]

поясните пжалста условие
что значит все вхождения??
там много раз встречаюца 2 последовательности? построчно? или одной строкой? [Ответ]

задание самим в душе не сильно понятно...
но можно рассматривать как:
при входе:
перваястрока втораястрока
при выходе:
втораястрока втораястрока [Ответ]

Малинка че за вознаграждение? [Ответ]

A_Lexx, сначала задача! :/ [Ответ]

ну пожаааалуйста, ну кто-нибудь!...
...смерть близится... [Ответ]

Малинка, без оглашения вознаграждения даже думать не буду, как решить. вдруг ты мне чупа-чупс за нее дашь. [Ответ]

Давай точное условие задачи (как тебе препод давал), а то не так следаем все равно пользы не будет. [Ответ]

Сообщение от Малинка:
задание самим в душе не сильно понятно...
но можно рассматривать как:
при входе:
перваястрока втораястрока
при выходе:
втораястрока втораястрока

Смотри код ниже (писал именно для Турбо Паскаля, не для Delphi):

Сообщение от :
Program MyProgram;
var p1, p2, s1, s2, s : String;
f1, f2 : text;
i, j : Integer;
begin
Write('Введите имя входного файла:');
ReadLn(p1);
Write('Введите имя выходного файла:');
ReadLn(p2);
Write('Что заменить:');
ReadLn(s1);
j := Length(s1);
Write('На что заменить:');
ReadLn(s2);
{Полный путь, где будет находиться входной файл}
Assign(f1, 'C:\Temp\string\'+p1+'.txt');
Reset(f1);
{Полный путь, где будет находиться выходной файл}
Assign(f2, 'C:\Temp\string\'+p2+'.txt');
Rewrite(f2);
While Not EoF(f1) Do
Begin
ReadLn(f1, s);
For i := 1 To Length(s) Do
Begin
If Copy(s, i, j) = s1 Then
Begin
Delete(s, i, j);
Insert(s2, s, i);
End;
End;
WriteLn(f2, s);
End;
Close(f1);
Close(f2);
WriteLn('Замена завершена!!!');
WriteLn('Нажмите любую кнопку.');
ReadLn;
end.

В архиве string.rar находится файл формата (.pas) и тестовый текстовый файл (test.txt).

Сообщение от Малинка:
За нормально работающую программу готова выделить вознаграждение

Жду вознаграждения с нетерпением.
Изображения
[Ответ]

Да, наверно очень срочно нужно было [Ответ]

А тут есть помошники по Delphi?
Ищу человека, который возьмется за достаточно сложные задачи [Ответ]

English rose, а поподробнее? (пиши в ЛС) [Ответ]

За вознаграждение [Ответ]

Сообщение от English rose:
достаточно сложные задачи

а поконкретнее? в чем заключается сложность? [Ответ]

English rose, хм., пиши в личку , что нужно..., договоримся [Ответ]

Сообщение от DJ Anarchist:
а поконкретнее? в чем заключается сложность?

Никто за них не берется. Даже программеры. [Ответ]

Операционка на паскале?
кинь пример такой задачи, сюда или в личку, прямо интересно стало... [Ответ]

DJ Anarchist, на php [Ответ]

opengl [Ответ]

English rose, Васю попроси! Он теперь умный!!! Решит любую задачу!!! [Ответ]

English rose, хм.. ,смотри Лс... [Ответ]

Ну давайте уж пример задания в студию не томите
2 Ivan XXX OpenGL что ли никто не знает? Для Delphi же есть OpenGLScene - набор компонент... [Ответ]

Народ нужна прога! Файловый анализатор, желательно русифицированный. [Ответ]

samvlamix, что ты подразумеваешь под словами файловый анализатор? по типам? по атрибутам? эвристический на вирусы? на поиск гос.тайн и мата? [Ответ]

DJ Anarchist, предпологаемый мной файловый анализтор должен выяснить чем были упакованы EXE-файлы на 100%. [Ответ]

http://www.compression.ru/arctest/utils/utils-tr.htm
покопайся здесь и вообще на сайте... хотя насколько мне известно, ни одна из программ находящихся в открытом доступе (в том числе и платные) не даст тебе 100% верный ответ...

P.S. Гугль рулит... [Ответ]

Сообщение от samvlamix:
чем были упакованы EXE-файлы на 100%.

а у тебя уже есть архиватор, ужимающий exe файлы на 100 % ?????

ПОДЕЛИСЬ СКОРЕЕ

ЗЫ я бы на твоём месте уже патент оформил на сие изобретение

[Ответ]

doXtor, не глупи... имелось в виду 100% определение программы-упаковщика, причем речь не об архиваторах, а об упаковщиках исполняемых файлов... [Ответ]