вывод рандомной записи

[unbanned]

Подскажите как правильно решить такого рода задачу...
Есть много строк нужно вывести рандомно одну из всех, но такую, которая не выводилась при предыдущих запусках программы.

первое что пришло в голову записать их в текстовый файл.

при запуске читать файл в переменную.

посчитать количество строк в переменной.
вывести строку c номером i:=random(n)+1
удалить строку с номером i
посчитать количество строк в переменной.
...
вывести
удалить
посчитать
...
при выходе из программы переписать файл.

но это хорошо, когда строк не много... и весь файл можно прочитать в переменную.

а если строк будет много?
как быть тогда?

[Rin]

Если строка будет считываться 100% единажды и не более, то я б сделал в БД ещё одно поле was_read логического типа. Как прочел, ставишь галку.

[unbanned]

я думал о чем то подобном, но...

допустим рандомить ID и проверять поле was_read
тогда нужно повторять в цикле вывод пока не совпадет условие т.е. чем меньше останется записей тем больше будет интераций цикла...

[evg_m]

тогда нужно повторять в цикле вывод пока не совпадет условие т.е. чем меньше останется записей тем больше будет интераций цикла...

или брать ближайшую из возможных (не выбранных раннее)

select max(id) from t where id<randID and was_read=false

[Аватар]

А когда все строки исчерпаются - прога не запускается?

[unbanned]

спасибо за идею.

а если случится такая ситуация, что не выводившиеся ранее записи останутся только с ID большим чем randID?

допустим 300 записей, а randID=250... а не выводились последние 50.


P.S.

А когда все строки исчерпаются - прога не запускается?

я думаю это не принципиально. можно запустить и вывести сообщение... или это важно для алгоритма?

[Serge_Bliznykov]

а если случится такая ситуация, что не выводившиеся ранее записи останутся только с ID большим чем randID?
допустим 300 записей, а randID=250... а не выводились последние 50.

Ну, тогда повторять в цикле для нового случайного randID, пока не вернётся нужное значение.

я думаю это не принципиально. можно запустить и вывести сообщение... или это важно для алгоритма?

важно в том смысле, чтобы не получить БЕСКОНЕЧНЫЙ цикл.

я бы предложил такую схему:
при запуске

 select count(*) as cntNoRead from t where was_read=false

если cntNoRead = 0 - сообщение, что больше нет подходящих записей и выход!

если cntNoRead = 1 то

select id from t where was_read=false

иначе:
тот самый цикл выбора значений (можно кодом, предложенным выше, а можно, я бы лично сделал именно так, вытащить все невыпавшием номера и выбрать номер среди них)

[evg_m]

а если случится такая ситуация, что не выводившиеся ранее записи останутся только с ID большим чем randID?

подумать и расширить приведенный код

99% кода в интернете никуда не годно.

в том числе и приведенный мною для иллюстрации идеи

select top 1 
from (select max(id) from t where id<randID
 union select min(id) from t where id>randID )

P.S. если подумать можно обойтись и без max/min

select top 1 id from t where id >randID order by id desc

P.P.S. код опять неполный, чтобы можно было подумать
а если ...

[unbanned]

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

[IliaIT]

можно продумать метод для базы. делаем глобальный селект всех записей. в каждой записи есть поле проверки выбора. рандом указывает на строку и вы выставляете в базе 1 в поле вывода. далее настраиваем фильтр бдгрида что бы не отображать строки с проверкой равной 1. (или эту единичку записать в базу и заново селект но уже с ограничением что с единичками не берём строки). и так далее пока не останется пустой набор.