Сортировка по полю (разделение на три категории)

@FloppyDisc · Регистрация: 18.11.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте. Есть вопрос и есть БД с полями: username, comp и error. Последнее заполняется ошибками (логами), они делятся на три типа: предупреждения, ошибки и исключения, там есть свои ключевые слова, но при этом некоторые из них могут присутствовать как в исключениях так и в ошибках.

Так вот, как их (точнее поле error) можно разделить на три части? Реально ли вывести разделенное поле на тот же самый DBGrid или же StringGrid или же сами посоветуйте, пожалуйста?

@krapotkin · 24.11.2016, 08:42

есть язык запросов к БД, называется SQL
придуман именно для извлечения НУЖНЫХ данных из БД по задаваемым условиям
соответственно, какие данные вы запросите, те и отобразит ваш DBGrid

@kavasaka · 24.11.2016, 09:21

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

разделенное поле

так что ли?:

SQL
1
2
SELECT Таблица1.id, IIf([error]='предупреждения',[error],'') AS P1, IIf([error]='ошибки',[error],'') AS P2, IIf([error]='исключения',[error],'') AS P3
FROM Таблица1;

@FloppyDisc · 24.11.2016, 13:18 **[ТС]**

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

так что ли?:

Да, спасибо, что-то на подобие вы правильно поняли суть

Вот реализации могут быть различные... Но логи не состоят только из слов ошибка, исключение и предупреждения а из строки типа: Warning: текст ошибки, дата ошибки, и ключевое END - означает, что ошибка была при завершении работы.
Можно ли как-то пропарсить такую строку средствами Delphi или возможностями SQL - запросов?

И можно вопрос по вашему запросу. На сколько я понял вторым параметром передается значение, а что передается третьим параметром?

SQL
1
IF([error]='ошибки',[error],'')

Заметил еще такое:

SQL
1
2
3
4
5
SELECT Таблица1.id, 
error*(error='исключение') AS P1, 
error*(error='ошибка') AS P2,
error*(error='предупреждение') AS P3 
FROM Таблица

Это тоже самое?

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

есть язык запросов к БД, называется SQL
придуман именно для извлечения НУЖНЫХ данных из БД по задаваемым условиям

Вот в этом и проблема, как уже писал выше - это логи, состоящие из описания ошибки, даты и некоторых ключевых слов, предназначенных для отнесения ошибок к различным категориям типа: Warning, Error, Exception, а еще для отнесения во время чего это произошло: Во время запуска, работы, завершения...

На sql-tutorial прочитал про CHARINDEX, PATINDEX, SUBSTRING а еще LOCATE, REGEXP с ними возможно это реализовать?

@qwertehok · 24.11.2016, 14:01

покажите что у вас есть и что вы хотите получить

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

с ними возможно это реализовать?

хоть по символьный анализ можно сделать, но зачем?

@FloppyDisc · 24.11.2016, 14:39 **[ТС]**

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

покажите что у вас есть и что вы хотите получить

У меня пока ничего нет, поскольку не до конца понял как это можно реализовать...

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

хоть по символьный анализ можно сделать, но зачем?

Чтобы максимально точно определить к какому типу ошибки и относится то или иной сообщение и в какой момент это произошло, во время работы, старт, завершение, но думаю посимвольный лишнее

Вот пример: Warning: текст предупреждения, дата, END - Сообщение-предупреждение записалось во время завершении работы, но это только примерно. Вот как его отнести к типу Warning и группе при завершении END, ну хотя бы к типу Warning, покажите, пожалуйста, хотя бы примерчик, чтобы суть словить

@qwertehok · 24.11.2016, 14:48

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

У меня пока ничего нет, поскольку не до конца понял как это можно реализовать...

тогда покажите что вы хотите получить

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

покажите, пожалуйста, хотя бы примерчик, чтобы суть словить

как вам можно пример показать не зная что за информация у вас есть?

@FloppyDisc · 24.11.2016, 15:57 **[ТС]**

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

тогда покажите что вы хотите получить

Вот на скрине видно ошибки в поле LAST ERROR, как мне удалить даты и время и оставить только ключевые слова ENDWORK, BEGINWORK и потом уже думаю сравнивать по запросу, который посоветовал kavasaka с условиями
Т.е нужно убрать все, что идет после даты и времени до двоеточия

З.Ы. Можно отформатированное оставить в DGrid?

@qwertehok · 24.11.2016, 16:01

ничего не видно на картинке - вы можете сделать Printscreen?

@rusqwe · 24.11.2016, 16:24

FloppyDisc, можно менять то что выводится в грид, через DBGrid1DrawColumnCell

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
  var s:string;
  begin
if column.Index=1 then  //номер поля
s:='+ '+copy(MyQuery1.FieldByName('id').AsString,1,1);
if column.Index=2 then
s:='+ '+copy(MyQuery1.FieldByName('id').AsString,2,1);
if column.Index=3 then
s:='+ '+copy(MyQuery1.FieldByName('id').AsString,3,1);
DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, s);
end;

@rusqwe · 24.11.2016, 16:27

Сортировка по полю (разделение на три категории)

если еще актуально

@FloppyDisc · 24.11.2016, 16:31 **[ТС]**

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

вы можете сделать Printscreen?

Извиняюсь, просто не я фотографировал и вообще это не мой комп

Распишу так, есть поле LAST_ERR. В нем записи следующего характера:

1. Warning: while(isControllerDetected = false) sgThread Execute: 126
2. Error: param=переходы
3. 21.11.2016 16:05:30: BEGINWORKD
4. 21.11.2016 16:22:22: BEGINWORKD
....
5. 21.11.2016 16:37:38: ENDWORKD
....
6. 18.11.2016 16:15:30: SHOWMODAL END
....

Вот такие вот записи, получается нужно оставить все, что идет после третьего (3) двоеточия после времени, т.е слова BEGINWORK, ENDWORK, SHOWMODAL END. Как вывести результаты в DBGrid отформатированным таким способом.
Или лучше ориентироваться не на двоеточия, а уже на ключевые слова BEGINWORK, ENDWORK, SHOWMODAL END

@qwertehok · 24.11.2016, 16:35

посмотрите функцию
https://msdn.microsoft.com/ru-... 86323.aspx

@FloppyDisc · 24.11.2016, 16:35 **[ТС]**

rusqwe, проблема в том, что логи разные и я не могу ориентироваться на длину...

@rusqwe · 24.11.2016, 16:37

FloppyDisc, можно попробовать ориентироваться на вхождение каких то символов

@FloppyDisc · 24.11.2016, 16:42 **[ТС]**

rusqwe, а можно на слова типа BEGINWORK или словосочетания SHOWMODAL END или же ориентироваться на определенное двоеточие, например третье?

@rusqwe · 24.11.2016, 16:52

для BEGINWORK и SHOWMODAL END можно попробовать функцию pos()

Добавлено через 2 минуты
а для двоеточие, пока в голову приходит цикл с перебором всей строки

Delphi
1
2
3
for i := 1 to Length(s) do
    if s[i] = ':' then
      k:=k+1 ;

@FloppyDisc · 24.11.2016, 18:11 **[ТС]**

rusqwe,
Ну сделал так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
arr: Array[1..4] of String = ('BEGINWORK', 'ENDWORK', 'SHOWMODAL END', 'END');
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i, k: Integer;
  s: String;
  sLeft: String;
begin
  s:= Edit1.Text;
  for k:= 1 to Length(arr) do
  begin
    i := pos(arr[k], s);
    if i > 0 then
      begin
        sLeft := copy(s, 1, i - 1);
      end;
   end;
    ShowMessage(sLeft);
end;

Вроде бы удаляет, кроме словосочетаний как SHOWMODAL END. Как теперь вывести отформатированные данные в DBGrid? Делить на 3 части теперь не надо

Добавлено через 7 минут
Ну и ваш же пример

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button2Click(Sender: TObject);
var
i, k: Integer;
s, sLeft, sRight: String;
begin
  s:= Edit1.Text;
  for i := 1 to Length(s) do
    if s[i] = ':' then begin
      sLeft  := copy(s, 1, i - 1);
      sRight := copy(s, i + 1, Length(s) - i);
    end;
  ShowMessage(sRight);
end;

@qwertehok · 24.11.2016, 20:11

я ничего не понял, то вы запросом все хотите делать
тут же спрашиваете про функции SQL
тут же мучаете Edit, а теперь хотите что-то вывести в DBGrid

где логика?

@rusqwe · 24.11.2016, 21:10

FloppyDisc, У Dbgrid есть событие DBGrid1DrawColumnCell, туда пишешь свой код, предварительно подправив. В примере выше вроде все понятно. С начало условие для column.Index='номер поля в гриде'. За место edita соответственно нужное поле из датасета. Сменить Showmessage , на DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, s); , где то что хотите видеть в гриде

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@FloppyDisc Особый статус 623 / 221 / 164 Регистрация: 18.11.2015 Сообщений: 1,086

	Сортировка по полю (разделение на три категории) 24.11.2016, 00:36. Показов 1558. Ответов 25 Метки нет (Все метки) Здравствуйте. Есть вопрос и есть БД с полями: username, comp и error. Последнее заполняется ошибками (логами), они делятся на три типа: предупреждения, ошибки и исключения, там есть свои ключевые слова, но при этом некоторые из них могут присутствовать как в исключениях так и в ошибках. Так вот, как их (точнее поле error) можно разделить на три части? Реально ли вывести разделенное поле на тот же самый DBGrid или же StringGrid или же сами посоветуйте, пожалуйста? 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	24.11.2016, 08:42
	есть язык запросов к БД, называется SQL придуман именно для извлечения НУЖНЫХ данных из БД по задаваемым условиям соответственно, какие данные вы запросите, те и отобразит ваш DBGrid 0

@qwertehok 5989 / 4564 / 1096 Регистрация: 29.08.2013 Сообщений: 28,206 Записей в блоге: 3
	24.11.2016, 16:01
	ничего не видно на картинке - вы можете сделать Printscreen? 0

@rusqwe 60 / 60 / 26 Регистрация: 30.05.2016 Сообщений: 293
	24.11.2016, 16:27
	если еще актуально 0

@qwertehok 5989 / 4564 / 1096 Регистрация: 29.08.2013 Сообщений: 28,206 Записей в блоге: 3
	24.11.2016, 16:35
	посмотрите функцию https://msdn.microsoft.com/ru-... 86323.aspx 1

@FloppyDisc Особый статус 623 / 221 / 164 Регистрация: 18.11.2015 Сообщений: 1,086
	24.11.2016, 16:35 [ТС]
	rusqwe, проблема в том, что логи разные и я не могу ориентироваться на длину... 0

@rusqwe 60 / 60 / 26 Регистрация: 30.05.2016 Сообщений: 293
	24.11.2016, 16:37
	FloppyDisc, можно попробовать ориентироваться на вхождение каких то символов 0

@FloppyDisc Особый статус 623 / 221 / 164 Регистрация: 18.11.2015 Сообщений: 1,086
	24.11.2016, 16:42 [ТС]
	rusqwe, а можно на слова типа BEGINWORK или словосочетания SHOWMODAL END или же ориентироваться на определенное двоеточие, например третье? 0

@qwertehok 5989 / 4564 / 1096 Регистрация: 29.08.2013 Сообщений: 28,206 Записей в блоге: 3
	24.11.2016, 20:11
	я ничего не понял, то вы запросом все хотите делать тут же спрашиваете про функции SQL тут же мучаете Edit, а теперь хотите что-то вывести в DBGrid где логика? 0

@rusqwe 60 / 60 / 26 Регистрация: 30.05.2016 Сообщений: 293
	24.11.2016, 21:10
	FloppyDisc, У Dbgrid есть событие DBGrid1DrawColumnCell, туда пишешь свой код, предварительно подправив. В примере выше вроде все понятно. С начало условие для column.Index='номер поля в гриде'. За место edita соответственно нужное поле из датасета. Сменить Showmessage , на DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, s); , где то что хотите видеть в гриде 1