RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Еще один этюдик на рексе?


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : shiz0rat
To : All
Subj : Еще один этюдик на рексе?

Как бы мне такую задачку написать, побыстрее да попроще: замена одной строки в текстовом файле на другую? Алгоритм выглядит примерно так:

ЕСЛИ Файл(PROGRAM1.INI) Содержит(string1), ТО ЗаменитьЕеНа(string2);

ИНАЧЕ ЕСЛИ Файл(PROGRAM1.INI) Содержит(string2), ТО ЗаменитьЕеНа(string1);
КОНЕЦ;

ИНАЧЕ ВыводНаЭкран("Absolutely incredible error #666"); ВЫХОД(КодНаличияОшибки);
КОНЕЦ;

ЗАПУСК (PROGRAM1.EXE);

ВЫХОД(КодОтсутствияОшибки);

КОНЕЦ.

Очень надо. Заранее благодарю.

Fri 10 Dec 2004 07:37 Links (0.99pre13; OS/2 1 i386; 100x40)




Programmed by Dmitri Maximovich, Dmitry I. Platonoff, Eugen Kuleshov.
25.09.99 (c) 1999, RU/2. All rights reserved.
Rewritten by Dmitry Ban. All rights ignored.