ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Разбор лога
6 сообщений из 6, страница 1 из 1
Разбор лога
    #39493758
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
Добрый день
Подскажите как решить такую задачу - есть лог работы программы, его нужно обработать и записать в базу.
Сам лог:
 
24.07.2017 10:29:08: Импорт документов из файлов Microsoft Excel

24.07.2017 10:29:08: Из файла 5-6415794.xls в документ №пр57557049 (37786267)

24.07.2017 10:29:08: Очистили import_docspec

24.07.2017 10:29:08: Выполнили xls.LoadFromStream(fexe,true)

24.07.2017 10:29:58: Выполнили апдейт заголовка

24.07.2017 10:30:07: Документ оприходован

24.07.2017 10:30:12: Документ отправлен на печать

24.07.2017 10:44:08: select error_value,warning_value from import_excel_add_line(:SESSION,:TYPE_CLASSIF,:ID_DOCHEAD,:NUMBER,:MASTERFIELD,:BARCODE_SEPARATOR,:PACK_KIND,:ALL_CARDS,:ARTICUL,:BARCODE,:COMMENT,:CUSTOM,:GOOD_DATE,:PACK,:PACKQUANTITY,:PRICECUR,:PRICECUR1,:PRICERUB,:PRICERUB1,:QUANTITY,:RZ,:STR1,:STR2,:STR3,:STR4,:STR5,:TAXHEAD,:COUNTRY,:SUM_RUB,:SUM_CUR,:SUP_MASTERFIELD,:SUP_ID,:SUP_IDENT,:SUP_INN,:FILE_INDEX,:ORDER_COEFF,:ORDER_KRIT_LEVEL,:MANUF_INN,:MANUF_KPP,:VIDPROD_KOD,:CENNIK_ID,:ADDNEWGOODS,:SPERCENT)


24.07.2017 10:44:08: Импорт документов из файлов Microsoft Excel

24.07.2017 10:44:08: Из файла 5-6387110.xls в документ №пр57528165 (37626834)

24.07.2017 10:44:08: Очистили import_docspec

24.07.2017 10:44:08: Выполнили xls.LoadFromStream(fexe,true)

24.07.2017 10:44:53: Выполнили апдейт заголовка

24.07.2017 10:44:58: Документ оприходован

24.07.2017 10:45:02: Документ отправлен на печать

24.07.2017 10:46:07: select error_value,warning_value from import_excel_add_line(:SESSION,:TYPE_CLASSIF,:ID_DOCHEAD,:NUMBER,:MASTERFIELD,:BARCODE_SEPARATOR,:PACK_KIND,:ALL_CARDS,:ARTICUL,:BARCODE,:COMMENT,:CUSTOM,:GOOD_DATE,:PACK,:PACKQUANTITY,:PRICECUR,:PRICECUR1,:PRICERUB,:PRICERUB1,:QUANTITY,:RZ,:STR1,:STR2,:STR3,:STR4,:STR5,:TAXHEAD,:COUNTRY,:SUM_RUB,:SUM_CUR,:SUP_MASTERFIELD,:SUP_ID,:SUP_IDENT,:SUP_INN,:FILE_INDEX,:ORDER_COEFF,:ORDER_KRIT_LEVEL,:MANUF_INN,:MANUF_KPP,:VIDPROD_KOD,:CENNIK_ID,:ADDNEWGOODS,:SPERCENT)


24.07.2017 10:46:07: Импорт документов из файлов Microsoft Excel

24.07.2017 10:46:08: Из файла 5-6388890.xls в документ №пр57529950 (37633414)

24.07.2017 10:46:08: Очистили import_docspec

24.07.2017 10:46:08: Выполнили xls.LoadFromStream(fexe,true)

24.07.2017 10:46:34: Выполнили апдейт заголовка

24.07.2017 10:46:36: Документ оприходован

24.07.2017 10:46:39: Документ отправлен на печать

24.07.2017 10:54:11: select error_value,warning_value from import_excel_add_line(:SESSION,:TYPE_CLASSIF,:ID_DOCHEAD,:NUMBER,:MASTERFIELD,:BARCODE_SEPARATOR,:PACK_KIND,:ALL_CARDS,:ARTICUL,:BARCODE,:COMMENT,:CUSTOM,:GOOD_DATE,:PACK,:PACKQUANTITY,:PRICECUR,:PRICECUR1,:PRICERUB,:PRICERUB1,:QUANTITY,:RZ,:STR1,:STR2,:STR3,:STR4,:STR5,:TAXHEAD,:COUNTRY,:SUM_RUB,:SUM_CUR,:SUP_MASTERFIELD,:SUP_ID,:SUP_IDENT,:SUP_INN,:FILE_INDEX,:ORDER_COEFF,:ORDER_KRIT_LEVEL,:MANUF_INN,:MANUF_KPP,:VIDPROD_KOD,:CENNIK_ID,:ADDNEWGOODS,:SPERCENT)


24.07.2017 10:54:11: Импорт документов из файлов Microsoft Excel

24.07.2017 10:54:11: Из файла 5-6411142.xls в документ №пр57552353 (37767033)

24.07.2017 10:54:11: Очистили import_docspec

24.07.2017 10:54:11: Выполнили xls.LoadFromStream(fexe,true)

24.07.2017 10:55:20: Выполнили апдейт заголовка

24.07.2017 10:55:29: Документ оприходован

24.07.2017 10:55:34: Документ отправлен на печать


Нужно искать строку с "Импорт документов из файлов Microsoft Excel" и в базу всё что ниже этой строки. Проблема в том, что лог обновляется и я не могу понять, как исключить уже имеющиеся данные. Как варианты пока в голову пришло вообще чистить лог после записи или оставлять метки, чтобы программа формировала блок для записи до этой метки.
...
Рейтинг: 0 / 0
24.07.2017, 07:30:40
| Ответить | Цитировать | Написать  
Разбор лога
    #39493763
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Записывать в свой лог, какую строчку уже обработали (по времени)
...
Рейтинг: 0 / 0
24.07.2017, 08:02:00
| Ответить | Цитировать | Написать  
Разбор лога
    #39493776
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
Пока сделал так:
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
procedure TForm1.Button1Click(Sender: TObject);
var
          List1: TStringList;
          t: integer;
          n,m: string;
begin
    List1:=TStringList.Create;
    List1.LoadFromFile('d:\!D7\!import_pars\SMImportDocs.log');
       for t:=1  to List1.count-1 do begin
        Memo1.Lines.Add(inttostr(t) + ' ' + List1.Strings[t]);
        if   Length(List1.Strings[t]) <> 0 then begin
            if   pos('Очистили',List1.Strings[t] ) =0 then begin
                  if   pos('select error_value',List1.Strings[t] ) =0 then begin
                       if   pos('Выполнили xls.LoadFromStream(fexe,true)',List1.Strings[t] ) =0 then begin
                              n:=  copy(List1.Strings[t],0,19);
                              m:=  copy(List1.Strings[t],22,150);
                                      Memo2.Lines.Add (n+m);
                                        end;
                                                  end;
                                                            end;
                                                                            end;
                                                                                  end;
                                                                                                        end;


Соответственно m и n будут не добавляться в memo, а в запрос. В логе есть строка 22.07.2017 11:04:35: Из файла 5-6409280.xls в документ №пр57550349 (37740273) , как-то можно номер пр57550349 вывести в отдельную переменную?
...
Рейтинг: 0 / 0
24.07.2017, 08:55:19
| Ответить | Цитировать | Написать  
Разбор лога
    #39493858
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Gallemarкак-то можно номер пр57550349 вывести в отдельную переменную?
Найти и скопировать
...
Рейтинг: 0 / 0
24.07.2017, 11:34:00
| Ответить | Цитировать | Написать  
Разбор лога
    #39493863
Фотография Gallemar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gallemar
Участник
DimaBrGallemarкак-то можно номер пр57550349 вывести в отдельную переменную?
Найти и скопировать
Какие у тебя информативные советы :) Через pos искать вхождение и выводить в переменную?
...
Рейтинг: 0 / 0
24.07.2017, 11:39:17
| Ответить | Цитировать | Написать  
Разбор лога
    #39493912
AJi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AJi
Гость
Почитайте про регулярные выражения.
...
Рейтинг: 0 / 0
24.07.2017, 12:33:53
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Разбор лога
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&gotonew=1&tid=2041996]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 204ms
get topic data:
 7ms
get first new msg:
 4ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 221ms
total:  490ms
созд. / загр.: 490ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]