1С: Журнал регистраций

По долгу слу...работы возникла необходимость обработать журнал регистраций: нужно получить время входа и время выхода пользователя из системы, штатными средствами выполнить это не удается. Вот решил поделиться способом работы с журналом регистраций, т.к. в гугле мало что нарыл по этому поводу. Итак структура mlg строки в файле mlg (КаталогИБ()+"\SYSLOG\1cv7.mlg")Date;Time;UserName;TypeOpen;TypeOperation;Operation;Category;PC-Name;ObjId;Comment
Все строки упорядочены по паре (дата, время) от младшего к старшему (оно и логично это ведь лог файл по своей сути). Теперь по каждому блоку.

Date - Дата в формате: YYYYMMDD

Time - время в формате: HH:MM:SS

UserName - имя пользователя как он определен в конфигураторе

TypeOpen - тип открытия:


E - Предприятие
C - Конфигуратор
M - Монитор
D - Отладчик

TypeOperation - Типы операций


Accs – счета.

Operations:
AccNew - Записан новый счет
AccDel - Счет удален
AccMarkDel - Счет помечен на удаление
AccUnmarkDel - со счета снята пометка удаления


Archive – сохранение/восстановление.

Operations:
ArchiveStart - Начало архивирования
ArciveEnd - Конец архивирования


CJ – журнал расчетов.

Operations:
CJEditRec - Отредактирован результат расчета в журнале расчетов


Const – константы.

Operations:
ConstWrite - Записано значение константы.
ConstDel - Удалено значение константы.


CorrProv – корректные проводки.

Operations:
CorrProvNew - Записана новая корректная проводка
CorrProvEdit - Изменение корректной проводки
CorrProvDel - Удалена корректная проводка


Distr – распределенная ИБ.

Operations:
DistBatchErr - Ошибка автообмена в пакетном режиме
DistDnldBeg - Начата выгрузка изменений данных
DistDnldSuc - Выгрузка изменений данных успешно завершена
DistDnlFail - Выгрузка изменений данных не выполнена
DistDnlErr - Ошибка выгрузки изменений данных
DistUplBeg - Начата загрузка изменений данных
DistUplSuc - Загрузка изменений данных успешно завершена
DistUplFail - Загрузка изменений данных не выполнена
DistUplErr - Ошибка загрузки изменений данных
DistUplStatus - Загрузка изменений данных
DistDnldPrimBeg - Первичная выгрузка периферийной ИБ
DistDnldPrimSuc - Первичная выгрузка периферийной ИБ успешно завершена
DistInit - Распределенная ИБ инициализирована
DistPIBCreat - Создана периферийная ИБ
DistAEParam - Изменены параметры автообмена


Docs – документы.

Operations:
DocNew - Документ создан
DocOpen - Документ открыт
DocWrite - Документ записан
DocWriteNew - Записан новый документ
DocNotWrite - Документ не записан
DocPassed - Документ проведен
DocBackPassed - Документ проведен задним числом
DocNotPassed - Документ не проведен
DocMakeNotPassed - Документ сделан не проведенным
DocWriteAndPassed - Документ записан и проведен
DocWriteAndRepassed - Документ записан и проведен задним числом
DocTimeChanged - Изменено время документа
DocOperOn - Проводки включены
DocOperOff - Проводки выключены
DocMarkDel - Документ помечен на удаление
DocUnmarkDel - Пометка на удаление документа снята
DocDel - Документ удален


Grbgs – общие события.

Operations:
GrbgNewPerBuhTot - Бухгалтерские итоги рассчитаны
GrbgRclcAllBuhTot - Полный пересчет бухгалтерских итогов
GrbgSyntaxErr - Синтаксическая ошибка
GrbgRuntimeErr - Ошибка времени выполнения


Refs – справочники.

Operations:
RefNew - Записан новый элемент справочника
RefWrite - Элемент справочника записан
RefUnmarkDel - С элемента справочника снята пометка на удаление
RefDel - Элемент справочника удален
RefMarkDel - Элемент справочника помечен на удаление
RefGrpMove - Элемент справочника перенесен в другую группу
RefAttrWrite - Значение реквизита справочника записано
RefAttrDel - Значение реквизита справочника удалено


Restruct – конфигурация.

Operations:
RestructSaveMD - Запись измененной конфигурации
RestructStart - Начало реструктуризации
RestructCopy - Начато копирование результатов реструктуризации
RestructAcptEnd - Реструктуризация завершена
RestructStatus - Статус реструктуризации
RestructAnalys - Анализ информации
RestructStartWarn - Предупреждение
RestructErr - Ошибка при реструктуризации
RestructCritErr - Критическая ошибка при реструктуризации


Sys – сеанс.

Operations:
OpenSession - Подключение
CloseSession - Отключение


TmplOpers – типовые операции.

Operations:
TmplOperNew - Записана новая типовая операция
TmplOperWrite - Типовая операция записана
TmplOperGrpMove - Типовая операция перенесена в другую группу


UpDown – выгрузка/загрузка данных.

Operations:
UpDownDnldToFile - Выгрузка ИБ
UpDownDnldSuc - Выгрузка ИБ успешно завершена
UpDownUplFromFile - Загрузка ИБ
UpDownUplSuc - Загрузка ИБ успешно завершена


Users – другие события.

Operations:
UserMsg - Дополнительное событие


UsrDef – пользователи.

Operations:
UsrDefChng - Изменение списка пользователей



Возможно есть еще что-то, инфу брал отсюда [1] т.к. мне всего-лишь требовалось

узнать дату и время входа и выхода из системы.

Так дальше по формату:

Category - Категория события


 - администрирование
 - изменение данных
 - информация
 - предупреждение
 - ошибка

PC-Name - Имя компьютера (dns-имя)

ObjId - Id объекта в виде Тип(ID_вида)ID_объекта [2]

Comment - Комментарий к событию

Такс формат более менее расписал.
Часто бывает нужно выбрать информацию о изменениях за период, я делаю это методом половинного деления:

//_________разбираем строку по составляющим__________
Функция РазобратьСтроку(Стр)
  Если ПустоеЗначение(Стр)=1 Тогда
      Возврат СоздатьОбъект("СписокЗначений");
  КонецЕсли;
  Спис = СоздатьОбъект("СписокЗначений");
  Стр = СтрЗаменить(Стр,",","°");
  Стр = СтрЗаменить(Стр,";",""",""");
  Стр = """" + Стр + """";
  Спис.ИзСтрокиСРазделителями(Стр);
  Возврат Спис
КонецФункции//РазобратьСтроку(Стр)

//Получаем заданный диапазон
//Где НачДата - Это начало искомого диапазона
//    КонДата - Конец искомого диапазона
//    Журнал - Открытый файл в текстовом режиме
Функция ПолучитьДиапазон(НачДата,КонДата,Журнал)
  НачНашли = 0;
  КонНашли = 0;
  //Начальные данные
  Нач = 1;
  Кон = Журнал.КоличествоСтрок()-1;
  //Для сходимости разнесем концы в противоположные
  ПредНач = Кон;
  ПредКон = Нач;  //Получаем первые данные
  Спис = РазобратьСтроку(Журнал.ПолучитьСтроку(Нач));
  дНач = Спис.ПолучитьЗначение(1);
  дНач = Дата(Лев(дНач,4),Сред(дНач,5,2),Прав(дНач,2));
  Спис = РазобратьСтроку(Журнал.ПолучитьСтроку(Кон));
  дКон = Спис.ПолучитьЗначение(1);
  дКон = Дата(Лев(дКон,4),Сред(дКон,5,2),Прав(дКон,2));

  //Ну а дальше МПИ, с небольшой эвристикой, необходимо найти начало дня
  Пока (дНач <> НачДата) или (дКон <> КонДата) Цикл
      //Смотрим что делить
      нНач = 0;
      Если дНач <> НачДата Тогда 
          //Надо сместиться вправо на половину от текущего положения
          нНач = Цел((Нач + ПредНач)/2);
          //можно даже навешать эвристику,
          //какая дата нужна и на сколько процентов сместиться надо
      КонецЕсли;

     //Если пересчитывалось т.е. дНач <> НачДата
     Если нНач <> 0 Тогда
         Спис = РазобратьСтроку(Журнал.ПолучитьСтроку(нНач));
         ддНач = Спис.ПолучитьЗначение(1);
         ддНач = Дата(Лев(ддНач,4),Сред(ддНач,5,2),Прав(ддНач,2));
         //смотрим в какой области ответ
         Если ддНач > НачДата Тогда    //Дата слева
             ПредНач = нНач;
         ИначеЕсли ддНач < НачДата Тогда    //Дата справа
             Нач = нНач;
             КонецЕсли;
             дНач = ддНач;
         Иначе   //Если мы уже нашли начало а конец еще нет
             //Смещаемся влево чтобы потом меньше бегать
             Если НачНашли = 0 Тогда
                 Нач = Нач - 1;
                 Если Нач <= 0 Тогда
                      Нач = 1;
                 КонецЕсли;
                 Спис = РазобратьСтроку(Журнал.ПолучитьСтроку(Нач));
                 ддНач = Спис.ПолучитьЗначение(1);
                 ддНач = Дата(Лев(ддНач,4),Сред(ддНач,5,2),Прав(ддНач,2));           
                 //если промахнулись
                 Если (ддНач <> НачДата) ИЛИ (Нач = 1)  Тогда
                     НачНашли = 1;
                     Нач = Нач + 1;
                 КонецЕсли;
             КонецЕсли;
        КонецЕсли;
  Если (НачНашли = 0) и (ПредНач - Нач <= 1) Тогда
        Нач = -1;
        НачНашли = 1;
  КонецЕсли;
  нКон = 0;
  Если дКон <> КонДата Тогда
       //Надо сместиться вправо на половину от текущего положения
       нКон = Цел((Кон - ПредКон)/2); //можно даже навешать эвристику,
         //какая дата нужна и на сколько процентов сместиться надо
  КонецЕсли;

//Если пересчитывалось т.е. дКон <> КонДата
Если нКон <> 0 Тогда
   Спис = РазобратьСтроку(Журнал.ПолучитьСтроку(нКон));
   ддКон = Спис.ПолучитьЗначение(1);
   ддКон = Дата(Лев(ддКон,4),Сред(ддКон,5,2),Прав(ддКон,2));
   //смотрим в какой области ответ
   Если ддКон > КонДата Тогда    //Дата слева
       ПредКон = нКон;
   ИначеЕсли ддКон < КонДата Тогда    //Дата справа
       Кон = нКон;
   КонецЕсли;
       дКон = ддКон;
   Иначе   //Если мы уже нашли конец а начало еще нет   
   //Смещаемся вправо чтобы потом меньше бегать
       Если КонНашли = 0 Тогда
            Кон = Кон + 1;
            Если Кон >= Журнал.КоличествоСтрок() Тогда
                Кон = Журнал.КоличествоСтрок() - 1;
            КонецЕсли;
            Спис = РазобратьСтроку(Журнал.ПолучитьСтроку(Кон));
            ддКон = Спис.ПолучитьЗначение(1);
            ддКон = Дата(Лев(ддНач,4),Сред(ддКон,5,2),Прав(ддКон,2));
            //если промахнулись
            Если (ддКон <> КонДата) или (Кон = Журнал.КоличествоСтрок() - 1) Тогда
                КонНашли = 1;
                Кон = Кон - 1;
           КонецЕсли;
       КонецЕсли;
   КонецЕсли;
Если (КонНашли = 0) и (Кон - ПредКон <= 1) Тогда
     Кон = -1;
     КонНашли = 1;
 КонецЕсли;
 КонецЦикла; //Попали в область каждой из даты
//нужно найти начало даты 
Флаг = 0;
Пока Флаг = 0 Цикл
    Если НачНашли = 0 Тогда
         Нач = Нач - 1;
         Если Нач <= 0 Тогда
              Нач = 1;
         КонецЕсли;
         Спис = РазобратьСтроку(Журнал.ПолучитьСтроку(Нач));
         ддНач = Спис.ПолучитьЗначение(1);
         ддНач = Дата(Лев(ддНач,4),Сред(ддНач,5,2),Прав(ддНач,2));
         //если промахнулись
         Если (ддНач <> НачДата) или (Нач = 1) Тогда
             НачНашли = 1;
             Нач = Нач + 1;
         КонецЕсли;
     КонецЕсли;
  Если КонНашли = 0 Тогда
      Кон = Кон + 1;
      Если Кон <= 0 Тогда
          Кон = Журнал.КоличествоСтрок() - 1;
      КонецЕсли;
      Спис = РазобратьСтроку(Журнал.ПолучитьСтроку(Кон));
      ддКон = Спис.ПолучитьЗначение(1);
      ддКон = Дата(Лев(ддНач,4),Сред(ддКон,5,2),Прав(ддКон,2));
      //если промахнулись
      Если (ддКон <> КонДата) ИЛИ (Кон = Журнал.КоличествоСтрок() - 1)  Тогда
          КонНашли = 1;
          Кон = Кон - 1;
      КонецЕсли;
   КонецЕсли;
 Если КонНашли + НачНашли = 2 Тогда
     Флаг = 1;
 КонецЕсли;
КонецЦикла;
Спис = СоздатьОбъект("СписокЗначений");
Спис.ДобавитьЗначение(Нач,Нач);
Спис.ДобавитьЗначение(Кон,Кон);
Возврат Спис;КонецФункции;//ПолучитьДиапазон

Намеренно не пишу разбор объекта т.к. эту информацию можно почерпнуть в [2]

Список источников.

1. Формат файла mlg
2. Внутренние идентификаторы объектов

Дополнения и критика приветствуется.