Очередь с переменным количеством полей

kreator

Хочется типа очередь:

LOC:Queue      QUEUE,PRE()
LOC:Date         			DATE
LOC:Quantity			LONG[1000]
END

Но вот массив в 1000 элементов хочется сделать плавающим, может 10, может 100. Можно ли в принципе (через new)? Или не заморачиваться, заложить побольше на всякий случай? Память не экономить?

Shur

Хитрая задачка. Только наиболее эффективно она решается не при помощи new(), а при помощи создания одной единственной таблицы с полями date и long и ключом по date -- давайте всё же не забывать, что у Клариона где-то совсем сбоку прикручены базы данных. Шучу.

На самом деле вопрос -- зачем так сложно?

Shur

И я уже не спрашиваю про "вытягивание" такой концепции в простую очередь с неуникальным date. Для удобства можно добавить ID внутри одной даты, если нужно быстро смещаться по массиву внутри одной даты.

Код: Выделить всё

LOC:Queue      QUEUE,PRE()
LOC:Date             DATE
LOC:ID		   SHORT
LOC:Quantity       LONG
END

kreator

Для удобства работы нужно. Теоретический вопрос. Представьте таблицу - по вертикали даты, по горизонтали люди. Но количество людей разное, в зависимости от организации/подразделения. Заказчик, допустим, хочет видеть двумерную таблицу а-ля Excel.

Игорь Столяров

Ну так и сделай - как написал.

Код: Выделить всё

LOC:Queue      QUEUE,PRE()
LOC:Date                  DATE
LOC:Quantity         &QUEUE
END

LOC:QQuantity  QUEUE
Loc:QElement   Long
end

Для каждой записи LOC:Queue создаем очередь LOC:QQuantity с произвольным числом записей и запоминаем ее адрес.
Описание чего-то подобного есть в разделе справки "Reference Assignments". Главное потом корректно освободить память ...

Shur

Была у меня и такая мысль. Но больно геморрно плодить LOC:QQuantity показалось, да потом ещё их и чистить надо, как правильно подмечено. А, главное, всё это в оперативной памяти и нигде больше! А что делать после перезапуска программы?

А вообще как предполагается выводить/отбражать такую сводную таблицу?

Игорь Столяров

Ну чистить не сложно, пробежать по очереди и сделать Dispose для каждого указателя.
Главное сделать это корректно, а не потеряв записей родительской очереди.
Вопрос был про структуру данных, там хранение в БД нигде не упоминается.
Ну а если нужно - то просто пишем в BLOB произвольное кол-во значений из каждой очереди, а потом загружаем - в справке есть пример.
Или просто список с тремя полями: строка, столбец и значение - выгружаем / загружаем его в структуру в памяти ...

Понятно, что решение не тривиальное, но и постановка задачи тоже: хранить для произвольного кол-ва строк - произвольное кол-во столбцов. Но описанная технология - решает эту задачу, и на мой взгляд не особо и сложно ...

kreator

Shur писал(а):А вообще как предполагается выводить/отбражать такую сводную таблицу?

Так и предполагается, в двумерном виде, столбцы - люди, ряды - даты. Но в моём конкретном случае нужно это кидануть в Excel, на экране пока не надо. Вопрос только в том - как сделать кол-во столбцов динамическим.
В бухгалтерии есть такое понятие - "Шахматка". Бухгалтерские счета выложены по вертикали и горизонтали, а на пересечениях - некие цифры (например, обороты). Счетов может быть неопределенное кол-во. Как это отобразить. Причём не нужно отображать те, по которым нет движения.

Игорь Столяров писал(а):Ну так и сделай - как написал.

Код: Выделить всё
LOC:Queue QUEUE,PRE()
LOC:Date DATE
LOC:Quantity &QUEUE
END

LOC:QQuantity QUEUE
Loc:QElement Long
end

Для каждой записи LOC:Queue создаем очередь LOC:QQuantity с произвольным числом записей и запоминаем ее адрес.
Описание чего-то подобного есть в разделе справки "Reference Assignments". Главное потом корректно освободить память ...

Чё-то как-то заумно. А как к элементам LOC:Queue обращаться? Через what?
Было бы возможным вот так:

Код: Выделить всё

LOC:Quantity &= new(long[1000])

Не проходит. Хотя Clarion# такое может.

Shur

Shur писал:
А вообще как предполагается выводить/отбражать такую сводную таблицу?
Так и предполагается, в двумерном виде, столбцы - люди, ряды - даты. Но в моём конкретном случае нужно это кидануть в Excel

Потому и задал вопрос -- Excel прекрасно умеет строить сводные таблицы сам, причём подать ему для этого надо как раз простой "одномерный" список, выгнанный, к слову сказать, из таблицы БД.

Игорь Столяров

Не проходит, потому что в Clarion нет такого типа данных как &long[].
Зачем через WHAT ?
Из очереди LOC:Queue (предположим строки) получаешь адрес очереди с содержимым колонок этой строки.
Перекидываешь адрес на второю очередь и работаешь с ее содержимым через Get(LOC:QQuantity,НОМЕР).
Тем более для экспорта в Excel, где идет построчное формирование.
Посмотри примеры в справке, на которые я ссылался.

PavelNK

Зачем так сложно?
Я в аналогичном случае делал так

LOC:Queue QUEUE,PRE()
Id LONG
LOC:Date DATE
END

LOC:Queue1 QUEUE
IdOwn LONG
Num SHORT
Elem LONG
end

Игорь Столяров

Согласен, так проще. Но у меня более красиво.

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

Yufil

Вроде была такая штука как Prop:VlbProc, я успешно пользовал ....
Там можно создать "виртуальную" очередь, не создавая реальную

Shur

А чем, собственно, вариант от PavelNK отличается от моего?

И я уже не спрашиваю про "вытягивание" такой концепции в простую очередь с неуникальным date. Для удобства можно добавить ID внутри одной даты, если нужно быстро смещаться по массиву внутри одной даты.
Код: Выделить всё
LOC:Queue      QUEUE,PRE()
LOC:Date             DATE
LOC:ID         SHORT
LOC:Quantity       LONG
END

И сидят, и меряются красиво-некрасиво! А надо бы: реляционно-нереляционно!
Путаете вы, господа, "эффектно" с "эффективно"!

kreator

Согласен с Shur, в моём случае его вариант проще. Тем более, что из SQL запроса я данные вытащу именно в таком виде. Нет смысла использовать две очереди, делать два Get'а. Просто хотел сделать "красиво". Допустим, есть таблица 100х100 ячеек. Все они должны быть заполнены, пусть даже нулями, не нулей может быть 5-10%. Понятно, записей в очереди мало. И, получается, мне надо 10000 раз делать get и если нет записи, то подсовывать в Excel нуль. Так буду делать, раз нет другого варианта. Но, мне при сбросе в Excel, конечно, было бы удобнее делать get по строкам 100 раз и формировать сразу 100 колонок.
А вариант VlbProc нужно в голове оставить, может пригодиться. Только из примера в Help мало, что понятно. Без пол-литра не разберёшься. В примерах что-нибудь есть?