VPF::Работа с текстом в тектовом файле

MsdLamer

Дата 27.7.2008, 11:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 27.7.2008

Репутация: нет
Всего: нет

И еще один вопрос подскажите пожалуйста как можно в текстовом файле оставить нужные куски текста? Допустим есть текстовый файл с содежимым:
не нужный текст
не нужный текст
не нужный текст и.т.д.
Саша 47 ....
какой-то текст
НатаШа 56....
не нужный текст и.т.д.
Саша 78....
какой-то текст
НатаШа 71.....

нужно чтобы осталось

Саша 47 ....
какой-то текст
НатаШа 56....
Саша 78....
какой-то текст
НатаШа 71.....
т.е. нужно чтобы остались только нужные куски. Саша и Наташа в одной строке не попадаются. Подскажите пожалуйста с примером. Очень нужно, хочу разобраться. Спасибо.

Christoph

Дата 27.7.2008, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 667
Регистрация: 23.1.2008
Где: Харьков

Репутация: 5
Всего: 11

Что то похожее есть http://forum.codenet.ru/showthread.php?t=2...%F4%E0%E9%EB%E5

--------------------

Данкинг

Дата 27.7.2008, 12:04 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Делай парсинг файла вручную и оставляй, что тебе надо. smile

--------------------

There's nothing left but silent epitaphs.

Arigato

Дата 27.7.2008, 18:38 (ссылка)

(нет голосов)

Загрузка ...

Программист

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 27.7.2008
Где: Россия

Репутация: нет
Всего: нет

Читаешь файл построчно. Если встречается слово "Саша" начинаешь сохранять строки (например, в другой файл). Если встречается слово "Наташа", прекращаешь сохранять.
Получается простенький конечный автомат.
Пример (пишу сходу, не проверено):

Код

var F1, F2: TextFile;
    S: string;
   WriteStatus: Boolean;
begin
  WriteStatus = False;
  {$I-}
  AssignFile (F1, 'input.txt');
  Reset (F1);
  AssignFile (F2, 'output.txt');
  Rewrite (F2);
  while not EOF (F1) do
  begin
    ReadLn (F1, S);
    if Pos ('САША', AnsiUpperCase (S)) > 0 then WriteStatus := True;
    if WriteStatus then WriteLn (F2, S);
    if Pos ('НАТАША', AnsiUpperCase (S)) > 0 then WriteStatus :=False;
  end; {while}
  CloseFile (F2);
  CloseFile (F1);
  {$i+}
  if IOResult <> 0 then ShowMessage ('Ошибка работы с файлами');
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »