|
Вопрос # 1 784/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
И еще один вопрос подскажите пожалуйста как можно в текстовом файле оставить нужные куски текста? Допустим есть текстовый файл с содежимым:
не нужный текст
Саша 47 ....
какой-то текст
НатаШа 56....
дальше не нужный текст
Саша 78....
какой-то текст
НатаШа 71.....
нужно чтобы осталось
Саша 47 ....
какой-то текст
НатаШа 56....
Саша 78....
какой-то текст
НатаШа 71.....
т.е. нужно чтобы остались только нужные куски. Саша и Наташа в одной строке не попадаются. Пожалуйста пример... Очень надо. Спасибо.
 |
Вопрос задал: Lamer :) (статус: Посетитель)
Вопрос отправлен: 27 июля 2008, 11:34
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Шичко Игорь
Здравствуйте, Lamer :)!
Общий принцип мне видится так (если я правильно понял задачу):
Построчно скопировать файл либо в объект MEMO, либо в строковый массив.
Далее построчно проанализировать полученные данные при помощи функции Pos(Substr: string; S: string): Integer; // поиск позиции вхождения строки в ддругую строку. Если "ненужный текст" находится в текущей строке, то эту строку удалить.
После завершения прохождения цикла переписать исходный файл построчно из скорректированного объекта MEMO или обновленного строкового массива.
Для более подробного описания необходимо уточнение условия задачи. Если есть вопросы пишите в личную зону.
 |
Ответ отправил: Шичко Игорь (статус: 9-ый класс)
Время отправки: 30 июля 2008, 08:08
|
Ответ #2. Отвечает эксперт: Мережников Андрей
Здравствуйте, Lamer :)!
Использование Мемо необходимо только если надо показать результат. Лучше использовать TStringList и читать файл не построчно, а загрузить его целиком с помощью LoadFromFile. Далее в цикле перебираются строки и проверяются на соответствие условию. После окончания обработки записывается в файл с помощью SaveToFile
 |
Ответ отправил: Мережников Андрей (статус: Абитуриент)
Время отправки: 31 июля 2008, 11:26
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 27 июля 2008, 15:19; участников в обсуждении: 1.
|
Аксион (статус: 4-ый класс), 27 июля 2008, 15:19 [#1]:
Если чесно.......совершенно не понятно какой текст считается нужным, а какой нет.....
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
