Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.
 
журналы новости статьи video форум подписка на «Хакер»

Задача на Delphi7

Пользователи, просматривающие топик: none

Зашли как: Guest
Все форумы >> [Компилируемые языки] >> Задача на Delphi7
Имя
Сообщение << Старые топики   Новые топики >>
Задача на Delphi7 - 2009-09-07 02:02:21.073333   
Sokolik

Сообщений: 46
Оценки: 0
Присоединился: 2009-02-19 14:36:16.693333
 Как удалить строки из текстового файла в которых нет определенных символов?
Например если в строке отсутствуют символы @ и ;, то удалить ее.
Post #: 1
RE: Задача на Delphi7 - 2009-09-07 02:53:12.640000   
Sunzer

Сообщений: 253
Оценки: 31190
Присоединился: 2007-06-15 19:23:32.436666
 Читаешь целиком в массив файл, ищешь переход каретки (0Dh , 0Ah) это будет конец строки для поиска, и текущее значени i это начала, от начала и до конца ищешь "@" или ";" если не нашел, удаляешь из массива и перестраиваешь массив, потом пишиешь все в файл.
Post #: 2
RE: Задача на Delphi7 - 2009-09-07 03:06:48.993333   
Sokolik

Сообщений: 46
Оценки: 0
Присоединился: 2009-02-19 14:36:16.693333
 Sunzer, спасибо за совет.
Решил задачу таким способом:
var &nbsp; sl:TStringList; &nbsp; i:integer; begin &nbsp; sl:=TStringList.Create; &nbsp; try &nbsp;&nbsp;&nbsp; sl.LoadFromFile('C:\xxx.txt'); &nbsp;&nbsp;&nbsp; i:=0; &nbsp;&nbsp;&nbsp; while i&lt;sl.Count do &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if pos('@',sl[i])&gt;0 then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; inc(i) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sl.Delete(i); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; if pos(';',sl[i])&gt;0 then &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; inc(i) &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; else &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sl.Delete(i); &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; end; &nbsp;&nbsp;&nbsp; sl.SaveToFile('C:\test.txt'); &nbsp; finally &nbsp;&nbsp;&nbsp; sl.Free; &nbsp; end; end;&nbsp;
Post #: 3
RE: Задача на Delphi7 - 2009-09-07 05:39:07.933333   
Denaturat

Сообщений: 1741
Оценки: 453
Присоединился: 2008-10-27 20:50:06.380000
 чего только люди не придумают, лишь бы не учить awk и sed
Post #: 4
Страниц:  [1]
Все форумы >> [Компилируемые языки] >> Задача на Delphi7







Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.