Как организовать отбор данных по условию?

Question

[Евгений Иванов]

ПО RAD Studio 10.1 Berlin.
Всё работает, но нужно изменить код. А именно каким либо образом вынести условие из кода во внешний файл, для возможности его изменения. Пока же условие "вшито" в программу.

Смысл программы - есть двумерный массив, который надо отфильтровать. (Своего рода таблица - упрощенно.)
Массив состоит из 100 элементов и 50000 строк.
Фильтрация осуществляется по первым 5-6 полям.
Условия фильтрации равно, не равно, содержит, и, или.
Условие совпало - нет ошибки, строка массива проходит. И всё это сейчас в коде программы.
Но условия меняются. Как их значения, так иногда и логика - последовательность.

Пример

if ((A1='1') and (CountPos('A13.29',A2)>0) and (A3='73') and (A4='97') and (A5='3')) then error:=0;

CountPos - функция поиска содержимого (содержит).

А завтра может быть нужно

if ((A1='222') and (CountPos('A13.29',A2)>0) or (A3='73') and (A4!='97') and (A5='3')  and (A5<>'4')) then error:=0;

Что не меняется.
Названия переменных A1, A2...A6.
Их максимальное количество - 6, т.е. A7 никогда не будет в коде.
Вид условий.
Внутри скобок, до ОПЕРАТОР не более 3х.
Всего комбинаций "троек" условий не более 4х.

if (
((условие 1) оператор (условие 2) оператор  (условие 3)) ОПЕРАТОР 
((условие 1) оператор (условие 2) оператор  (условие 3))  ОПЕРАТОР 
((условие 1) оператор (условие 2) оператор  (условие 3))  ОПЕРАТОР 
((условие 1) оператор (условие 2) оператор  (условие 3))
) then begin end;

Как организовать отбор данных по условию?
Мысли идеи?

Comments

[hint000]

Вы пытаетесь изобрести интерпретатор. Не хочу сказать, что это плохо :)
Просто, если вы осознаете это, то посмотрите на проблему под другм углом.

[Евгений Иванов]

Вы пытаетесь изобрести интерпретатор. Не хочу сказать, что это плохо :)
Просто, если вы осознаете это, то посмотрите на проблему под другм углом.

Осознавать - осознаю. Но вот такая задача.
По мне так крайне трудно реализуема.

Answer 1

[Рональд Макдональд]

Массив состоит из 100 элементов и 50000 строк.

Из 100 элементов или столбцов?

Не совсем понятно, почему это массив, если это должно быть базой данных, но дельфистам можно.
Хотя нет, нельзя. Загоняйте данные в какой-нибудь MySQL и делайте к ней интерфейс, тогда любые запросы можно будет делать легко и просто.

Ну или напишите свой парсер и обвязку к "массиву", тогда сможете делать почти то же самое, но через одно место. В таком случае пользователь будет вводить что-то типа "!A1>2!A2=3", программа будет разбирать строку и делать нужные запросы. Можете почитать вот эту тему, лол: https://www.sql.ru/forum/708369/razrabotal-drayver...

Comments

[Евгений Иванов]

Из 100 элементов или столбцов?

Конечно столбцов. Опечатка.

Answer 2

[kalapanga]

Поддержу Рональд Макдональд. База данных здесь просится. Думаю, сгодится даже какой-нибудь SQLLite. И редактируем запросы как угодно.
Если же совсем по написанному задачу решать, то может что-то типа такого попробовать пристегнуть: https://www.remobjects.com/ps.aspx Но я этим не пользовался, ничего не гарантирую.

Comments

[Евгений Иванов]

Верно. Бд. И верно SQLLite наиболее часто используется как БД для подобных приложений.
Теперь шок контент.
Массив создается из excel файла. То есть это такой Excel файл. Огромный. Ноу хау ростелекома.
Там ещё много ноу хау.
Перегнать их excel в SQLLite и не знать забот? Тоже нет.
Их excel файл (другой файл, бд "акцес" файл, устаревший файл другой бд) надо обработать и представить в виде нового/другого excel. Так требуют.
Ну а сейчас можно и в SQLLite. И хоть плач, хоть смейся.
Поэтому лучше просто всё в массив в память. Тут так лучше.

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

Answer 3

[Константин Цветков]

При использовании XLSReadWriteI можно хранить условия в текстовом файле и загружать через VBA Macros.

Answer 4

[zed]

Есть варианты:
1. Рисуете гуй, чтобы он повторял максимальную комбинацию, как вы привели в примере. Т.е. для каждой позиции (условие N) даёте возможность выбрать переменную, с чем и как её сравнивать. Причём, делаете так, что поля были опциональные, т.е. чтобы некоторые можно было оставить пустыми.
Вот пример, как нечто похожее сделано в TheBat!

2. Подключаете скриптовый язык (Lua или паскале-подобный DWScript, RemObjects PascalScript) и пишите простую инструкцию для пользователей.