яКолонка (В«ПодіяВ», В«РядокВ», 20);
ф_тз. НоваяКолонка (В«ДопКодВ», В«ЧислоВ», 5);
ф_тз. НоваяКолонка (В«ОписВ», В«РядокВ»);
ф_тз. НоваяКолонка (В«ВДВ», В«РядокВ»);
ф_тз. НоваяКолонка (В«ПредставленняВ», В«РядокВ»);
ф_тз. НоваяКолонка (В«Об'єктВ»);
Якщо ПустоеЗначеніе (НачДата) = 1 Тоді
Попередження (В«Вкажіть початкову дату.В»);
Повернення;
КонецЕсли;
Якщо ПустоеЗначеніе (КонДата) = 1 Тоді
Попередження (В«Вкажіть кінцеву дату.В»);
Повернення;
КонецЕсли;
рах = 0; = СоздатьОб'ект (В«Scripting. FileSystemObjectВ»);
имяфайла = КаталогІБ () + В«SYSLOG 1cv7.mlgВ»; = fso. OpenTextFile (имяфайла, 1, 0, 0);// Відкриваємо файл у режимі "тільки читання"
стрНачДата = ДатаВСтроку (НачДата);
стрКонДата = ДатаВСтроку (КонДата);
Поки file. AtEndOfStream = 0 Цикл// Читаємо наступний рядок файлу
рах = рах +1;
стор = file. ReadLine ();
стрДата1 = Лев (стор., 17);
стрДата = Лев (стор., 8);
Якщо рах% 10 = 0 Тоді
Стан (стрДата1);
КонецЕсли;
// Пропускаємо події поза зазначеного діапазону
Якщо стрДата <стрНачДата Тоді
Продовжити;
КонецЕсли;
Якщо стрДата> стрКонДата Тоді
Продовжити;
КонецЕсли;
стор = СтрЗаменіть (стор., В»;В», "" В»," "В»);
стор = В»" "В« + стор + В»" "В»;
сп = СоздатьОб'ект (В«СпісокЗначенійВ»);
сп. ІзСтрокіСРазделітелямі (стор.);
ПДАТУ = СтрокаВДату (сп. ПолучітьЗначеніе (1));
пВремя = сп. ПолучітьЗначеніе (2);
пПользователь = сп. ПолучітьЗначеніе (3);
пГде = сп. ПолучітьЗначеніе (4);
пДействіе = сп. ПолучітьЗначеніе (5);
пСобитіе = СокрЛП (сп. ПолучітьЗначеніе (6));
пДопКод = сп. ПолучітьЗначеніе (7);
пОпісаніе = сп. ПолучітьЗначеніе (8);
Якщо сп. РазмерСпіска ()> = 9 Тоді
ПІД = сп. ПолучітьЗначеніе (9);
КонецЕсли;
Якщо сп. РазмерСпіска ()> = 10 Тоді
пПредставленіе = сп. ПолучітьЗначеніе (10);
