поиск информации в лог-файле

[pivan]

Здравствуйте, нужна помощь. Имеется текстовый протокол (в формате .log), отображающий работу некоторого устройства. Требуется написать программу, осуществляющую обработку этого протокола
следующим образом:

1. Пользователь вводит даты, для которых происходит обработка. Например, с
01.01.2005 по 11.01.2005.

2. Программа анализирует протокол за этот период и выводит в удобном для
просмотра виде следующую статистику:
- число включений аппаратуры;
- список пользователей с указанием числа включений аппаратуры от их
имени. При этом включения "без пользователя" обрабатываются отдельно;
- по каждому пользователю считается суммарное время, проведенное им за
установкой.

[indexx]

>> нужна помощь
>> Требуется написать программу
Помощь то в чём? Что посоветовать, или целиком программу написать? Если второе, то бесплатно этого делать ни кто не будет.

[pivan]

посоветовать как производить поиск информации в файле

[loom12]

Покажи формат лог файла.

Если файл например в таком виде:

Дата|11.01.2005| Время|11:20:01|Объект|10|Сообщение| .....;
Дата|11.01.2005| Время|12:20:01|Объект|11|Сообщение| .....;

То можно использовать TStringList, Pos, PosEx(в Uses подключить StrUtils), Copy

var p1:integer;
      sl_log:TStringList;
     stroka:String;
begin 
 sl_log:=TStringList.Create;
  sl_log.Clear;
     try
      sl_log.LoadFromFile(ExtractFilePath (application.exename)+'log.txt');
     
      except
        ShowMessage('!!! Ошибка чтения файла:log.txt');
         
       Exit;
     end;

 //можно построчно анализировать перебирая все строки в цикле  
  for i:= 0 to sl_log.Count - 1 do
    begin
         stroka:=Trim((sl_log.Strings[i])); //получить текст строки
           p1:=Pos('11.01.2005',stroka);         
           if p1>0 then //если  больше нуля то дата присутствует в строке и можно ее обработать 
              begin
                 ....PosEx(...P1
              end;
        
    end;
end;
 //и потом не забыть 
  FreeAndNil(sl_log);

[StriderX]

Сообщение от pivan

посоветовать как производить поиск информации в файле

Вместе с дельфями turbo grep ставится, может его хватит? =-)

[pivan]

*********************************** *********************************** **********
Управляющее программное обеспечение персонализации РИК
Начало работы :27.10.01 15:04:53
Оператор - 1
Режим: Основной
Подача: Автоматическая
Смена режимов работы на:
Режим: Переделка
Подача: Автоматическая
Работа завершена: 27.10.01 15:07:17
*********************************** *********************************** **********

[min@y™]

Сообщение от pivan

*********************************** *********************************** **********
Управляющее программное обеспечение персонализации РИК
Начало работы :27.10.01 15:04:53
Оператор - 1
Режим: Основной
Подача: Автоматическая
Смена режимов работы на:
Режим: Переделка
Подача: Автоматическая
Работа завершена: 27.10.01 15:07:17
*********************************** *********************************** **********

И это всё, что есть в файле? А сколько файлов?

[pivan]

Сообщение от min@y™

И это всё, что есть в файле? А сколько файлов?

нет это пример записи об использовании устройства, в файле 2100 строк

[min@y™]

в файле 2100 строк

То есть файл один?
Покажи!

[pivan]

https://www.dropbox.com/s/osgw6fnd51...erson.log?dl=0