|
Вопрос # 6 247/ вопрос закрыт / |
|
Доброго времени суток, уважаемые эксперты!
у меня есть отчеты в текстовом файле.
например: имя файла - 192.168.1.1.txt
внутри записан
Ping Poyavilsa 16.08.2012 16:36:57,72
Ping Poyavilsa 16.08.2012 16:38:39,70
Ping Poyavilsa 16.08.2012 16:40:20,28
Ping Propal 16.08.2012 16:42:03,47
Ping Propal 16.08.2012 16:43:46,96
Ping Propal 16.08.2012 16:45:29,96
Ping Propal 16.08.2012 16:47:13,97
Ping Propal 16.08.2012 16:48:57,54
Ping Propal 16.08.2012 16:50:40,47
Ping Propal 16.08.2012 16:52:24,48
Ping Poyavilsa 16.08.2012 16:54:09,06
Ping Poyavilsa 16.08.2012 16:57:36,48
Ping Poyavilsa 16.08.2012 16:59:19,00
Ping Propal 16.08.2012 17:01:02,97
Ping Propal 16.08.2012 17:02:46,48
Ping Propal 16.08.2012 17:04:30,98
Ping Propal 16.08.2012 17:06:17,00
Ping Propal 16.08.2012 17:08:03,00
Ping Propal 16.08.2012 17:09:48,99
Вопрос: как мне сделать в delphi чтоб он поискал то время где сразу появился и где сразу пропал - где сразу появился и где сразу пропал а все что между ними не надо и сохранял в excel.
 |
Вопрос задал: POWER (статус: Посетитель)
Вопрос отправлен: 17 августа 2012, 13:33
Состояние вопроса: закрыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Drinkenz
Здравствуйте, POWER!
Загружаете файл с данными, отсеиваете не нужные, остальное записываете в excel
memo1.Lines.LoadFromFile('1.txt');// загружаю файл данных
b:=not (pos('Poyavilsa',memo1.lines.strings[0])>0);// условие отсева
for i:=0 to memo1.Lines.Count-1 do // отсев значимых строк
if b<>(pos('Poyavilsa',memo1.lines.strings[i])>0)then
begin
memo2.lines.add(memo1.lines.strings[i]);
WriteToExel;
b:=not b;
end;
 |
Ответ отправил: Drinkenz (статус: 1-ый класс)
Время отправки: 18 августа 2012, 17:53
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 18 августа 2012, 17:49; участников в обсуждении: 1.
|
|
Drinkenz (статус: 1-ый класс), 18 августа 2012, 17:49 [#1]:
Загружаете файл с данными, отсеиваете не нужные, остальное записываете в excel
memo1.Lines.LoadFromFile('1.txt');// загружаю файл данных
b:=not (pos('Poyavilsa',memo1.lines.strings[0])>0);// условие отсева
for i:=0 to memo1.Lines.Count-1 do // отсев значимых строк
if b<>(pos('Poyavilsa',memo1.lines.strings[i])>0)then
begin
memo2.lines.add(memo1.lines.strings[i]);
WriteToExel;
b:=not b;
end;
|
31 августа 2012, 18:51: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Алгоритмы, преобразования модератором Ерёмин А.А.
26 сентября 2012, 15:20: Вопрос закрыт (решение принял DNK): Автор дано не интересуется вопросом.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
