Как сделать простой парсер сложных запросов

11.07.13

Разработка - Запросы

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

Скачать файлы

Наименование Файл Версия Размер
Как сделать простой парсер сложных запросов.txt
.txt 10,85Kb
14
.txt 10,85Kb 14 Скачать

Как сделать простой парсер сложных запросов.

Первым делом скажу, что опишу не столько парсер запросов, сколько анализатор круглых скобок (). Все очень просто, каждый вложенный запрос берется в круглые скобки, поэтому нам остается проверить на наличие внутри скобок ключевого слова «ВЫБРАТЬ».

Для поиска скобок и ключевого слова частично был задействован механизм регулярных выражений. Все вложенные запросы в Дереве значений добавляются дочерними узлами к ветви запроса. Имя ветви – это имя вложенного запроса. Все параметры запроса будут, для удобства, копироваться в ветви вложенных запросов.

Для распарсивания используется процедура РазобратьЗапрос(), описанная ниже. Обратная процедура СобратьЗапрос() работает следующим образом. В текущем запросе вложенные запросы заменяются запросами из дочерних ветвей дерева запросов. Замена происходит только на текущем уровне, без рекурсии в глубину или на вершину, поэтому сборка происходит последовательно, начиная с нижнего уровня. Это сделано умышленно, давая возможность на каждом уровне проверить после сборки правильность выполнения запроса. Основное требование перед сборкой вложенных запросов – наличие тех же возвращаемых переменных которые были при разборке.

Процедуры и функции я тщательно прокомментировал, так что трудностей с кодом не должно возникнуть. Данный механизм был использован в сторонних консолях запросов. http://forum.infostart.ru/forum24/topic20163/message861068/#message861068
и для управляемых форм http://forum.infostart.ru/forum24/topic61272/message934313/#message934313
В статье приводится код, адаптированный для управляемых форм.

 

&НаКлиенте
Процедура РазобратьЗапрос(Команда)

    // строка запроса
    мТекущаяСтрока = ЭтаФорма.Элементы.ДеревоЗапросов.ТекущиеДанные;

    //сам текст запроса
    ПолныйТекстЗапроса = мТекущаяСтрока.ТекстЗапроса;

    //Формирование массива с адресами скобок и ключевого слова "ВЫБРАТЬ"
    Массив = ПозиционныйМассив(ПолныйТекстЗапроса);
    
    //формирование дочерних ветвей строки нашего запроса
    строки = мТекущаяСтрока.ПолучитьЭлементы();
    строки.Очистить();
        
    Для индекс = 0 по Массив.ВГраница() цикл
        если Массив[индекс][1] = "(" тогда
            индекс = СозданиеВетви(Массив, индекс, мТекущаяСтрока, ПолныйТекстЗапроса);    
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры


&НаКлиенте
Процедура СобратьЗапрос(Команда)
    мТекущаяСтрока = ЭтаФорма.Элементы.ДеревоЗапросов.ТекущиеДанные;
    ПолныйТекстЗапроса = мТекущаяСтрока.ТекстЗапроса;
    
    //Формирование массива с с адресами скобок и ключевого слова "ВЫБРАТЬ"
    Массив = ПозиционныйМассив(ПолныйТекстЗапроса);
    
    строки = мТекущаяСтрока.ПолучитьЭлементы();
    РазмерМассива = строки.Количество();
    Если РазмерМассива > 0 тогда
        //формируем массив вложенных запросов
        Фрагмент = Новый Массив(РазмерМассива) ;  
        номерВетви = 0;
        Для каждого строка из строки цикл
            Фрагмент[номерВетви] = строка.ТекстЗапроса;    
            номерВетви = номерВетви + 1;
        КонецЦикла;
        
        //заменяем подзапрос в запросе на запрос из массива дочерних запросов
        номерВетви = 0;
        сдвиг = 0;
        длинаТекста = СтрДлина(ПолныйТекстЗапроса);
        Для индекс = 0 по Массив.ВГраница() цикл
            если Массив[индекс][1] = "(" тогда
                //поиск индекса соответствующей закрывающейся скобки
                индексВозврата = ВГлубину(Массив, индекс);                 
                
                //замена вложеного запроса
                ПолныйТекстЗапроса = Лев(ПолныйТекстЗапроса,Массив[индекс][0]+1+сдвиг) + Фрагмент[номерВетви] + Прав(ПолныйТекстЗапроса, длинаТекста-Массив[индексВозврата][0]);
                
                //вычисление смещения адресации
                сдвиг = сдвиг + СтрДлина(Фрагмент[номерВетви]) - (Массив[индексВозврата][0]-Массив[индекс][0]-1);
                
                номерВетви = номерВетви + 1;
                индекс = индексВозврата;    
            КонецЕсли;
        КонецЦикла;
        
        мТекущаяСтрока.ТекстЗапроса = ПолныйТекстЗапроса;
    КонецЕсли;
    
КонецПроцедуры




&НаКлиенте
Функция ПозиционныйМассив(ПолныйТекстЗапроса)
    //формирование массивов с адресами скобок и ключевого слова
    Открытие = МассивВхождений(ПолныйТекстЗапроса, "\(");     
    Закрытие = МассивВхождений(ПолныйТекстЗапроса, "\)");     
    Выбрать = МассивВхождений(ПолныйТекстЗапроса, "ВЫБРАТЬ");
    
    //объединение трех массивов в один с сортировкой адресов по возрастанию    
    Массив = СложитьМассивы(Открытие, Закрытие);
    Массив = СложитьМассивы(Массив, Выбрать);

    //удаление информации о не значимых скобках
    УбратьВсеДоСкобки(Массив);
    удалено = 1;
    Пока удалено > 0 цикл
        удалено = УбратьЛишниеСкобки(Массив);
    КонецЦикла;
    
    Возврат Массив;

КонецФункции // ПозиционныйМассив()


&НаКлиенте
Функция МассивВхождений(текст, подстрока, предел = Неопределено)
     //для поиска используем регулярные выражения
RegExp = Новый COMОбъект("VBScript.RegExp");
    RegExp.IgnoreCase = Истина; //Игнорировать регистр
    RegExp.Global = Истина; //Поиск всех вхождений шаблона
    RegExp.MultiLine = Истина; //Многострочный режим
    
    RegExp.Pattern = подстрока;
    Matches=RegExp.Execute(текст);
    ЧислоВхождений=Matches.Count();

    //определяемся с длиной массива вхождений
    если предел = Неопределено тогда
        предел = ЧислоВхождений;
    иначеесли ЧислоВхождений < предел тогда
        предел = ЧислоВхождений;
    КонецЕсли;

    Если предел > 0 тогда
        //формирование массива с адресами вхождений подстроки
        Массив = Новый Массив(предел,2);     
        Для СубСчетчик = 0 По предел-1 Цикл
            SubMatch = Matches.Item(СубСчетчик);
            Массив[СубСчетчик][0] = SubMatch.FirstIndex;    //адрес
            Массив[СубСчетчик][1] = SubMatch.Value;    //значение
        КонецЦикла;
    иначе
        Массив = Неопределено;
    КонецЕсли;
    
    Возврат Массив;
КонецФункции // МассивВхождений()


// объединение массивов с сортировкой по возрастанию
&НаКлиенте
Функция СложитьМассивы(Массив1, Массив2)
    Если Массив1 = Неопределено тогда
        ВГраница1 = -1;
    иначе
        ВГраница1 = Массив1.ВГраница();
    КонецЕсли;
    
    Если Массив2 = Неопределено тогда
        ВГраница2 = -1;
    иначе
        ВГраница2 = Массив2.ВГраница();
    КонецЕсли;
    
    РазмерМассива = ВГраница1+ВГраница2+2;
    Если РазмерМассива > 0 тогда
        Массив = Новый Массив(ВГраница1+ВГраница2+2,2);
        индекс1 = 0;
        индекс2 = 0;
        Для индекс = 0 по Массив.ВГраница() цикл
            если индекс1 > ВГраница1 тогда
                Массив[индекс][0] = Массив2[индекс2][0];
                Массив[индекс][1] = Массив2[индекс2][1];
                индекс2 = индекс2+1;
            иначеесли индекс2 > ВГраница2 тогда
                Массив[индекс][0] = Массив1[индекс1][0];
                Массив[индекс][1] = Массив1[индекс1][1];
                индекс1 = индекс1+1;
            иначеесли Массив1[индекс1][0] < Массив2[индекс2][0] тогда
                Массив[индекс][0] = Массив1[индекс1][0];
                Массив[индекс][1] = Массив1[индекс1][1];
                индекс1 = индекс1+1;
            иначе
                Массив[индекс][0] = Массив2[индекс2][0];
                Массив[индекс][1] = Массив2[индекс2][1];
                индекс2 = индекс2+1;
            КонецЕсли;
            
        КонецЦикла;
        Возврат Массив;
    иначе
        Возврат Неопределено;
    КонецЕсли;
КонецФункции // СложитьМассивы()

//убираем все до первой открывающейся скобки
&НаКлиенте
Функция УбратьВсеДоСкобки(Массив)
        индекс = 0;
    удалено = 0;
    
    Пока индекс         если Массив[индекс][1] = "(" тогда
            Прервать;    
        иначе
            Массив.Удалить(индекс);
            удалено = удалено + 1;
        КонецЕсли;
    КонецЦикла;

    Возврат удалено;    
КонецФункции // УбратьВсеДоСкобки()

// удаление пар скобок не содержащих ключевого слова «ВЫБРАТЬ»
&НаКлиенте
Функция УбратьЛишниеСкобки(Массив)
        индекс = 0;
    удалено = 0;
    
    Пока индекс         если Массив[индекс][1] = "(" и Массив[индекс+1][1] = ")" тогда
            Массив.Удалить(индекс);
            Массив.Удалить(индекс);
            удалено = удалено + 1;
        иначе
            индекс = индекс + 1;
        КонецЕсли;
    КонецЦикла;

    Возврат удалено;    
КонецФункции // УбратьЛишниеСкобки()

// рекурсивная функция для создания ветвей вложенных запросов
&НаКлиенте
Функция СозданиеВетви(Массив, ВходящийИндекс, Родитель, ПолныйТекстЗапроса)
    Ветви = Родитель.ПолучитьЭлементы();
    мТекущаяСтрока = Ветви.Добавить();                 //ветвь подзапроса
    СкопироватьПараметры(Родитель, мТекущаяСтрока); //копирование параметров запроса
    
    Для индекс = ВходящийИндекс+1 по Массив.ВГраница() цикл
        если Массив[индекс][1] = "(" тогда
            //если у текущего запроса есть вложеный запрос, то делаем рекурсивно дочернюю ветвь
            индекс = СозданиеВетви(Массив, индекс, мТекущаяСтрока, ПолныйТекстЗапроса);    
        иначеесли Массив[индекс][1] = ")" тогда
            //встречен конец текущего запроса
            Прервать;
        КонецЕсли;
    КонецЦикла;

    запрос = Сред(ПолныйТекстЗапроса, Массив[ВходящийИндекс][0]+2, Массив[индекс][0]-Массив[ВходящийИндекс][0]-1);

    //формирование имени подзапроса
    если индекс < Массив.ВГраница() тогда
        //фрагмент между закрывающейся и следующей скобкой
        строка = Сред(ПолныйТекстЗапроса, Массив[индекс][0]+1, Массив[индекс+1][0]-Массив[индекс][0]);
    иначе
        //фрагмент запроса за закрывающейся скобкой
        строка = Сред(ПолныйТекстЗапроса, Массив[индекс][0]+1, СтрДлина(ПолныйТекстЗапроса)-Массив[индекс][0]);
    КонецЕсли;
    
    имя = НайтиИмя(строка);
    
    если имя = "БезИмени" тогда
        имя = имя+индекс;
    КонецЕсли;
    
    мТекущаяСтрока.ИмяЗапроса = имя;                 
    мТекущаяСтрока.ТекстЗапроса = запрос;
    Возврат индекс;    
КонецФункции // СозданиеВетви()

&НаКлиенте
Процедура СкопироватьПараметры(Родитель, мТекущаяСтрока)
    мТекущаяСтрока.ПараметрыЗапроса.Очистить();
    Для каждого парам из Родитель.ПараметрыЗапроса цикл
        новыйПарам = мТекущаяСтрока.ПараметрыЗапроса.Добавить();
        новыйПарам.ИмяПараметра = парам.ИмяПараметра;
        новыйПарам.СпособУстановки = парам.СпособУстановки;
        новыйПарам.ЗначениеПараметра = парам.ЗначениеПараметра;
        новыйПарам.ТипЗначения = парам.ТипЗначения;
    КонецЦикла;
КонецПроцедуры

//вычисление имени подзапроса по фрагменту за закрывающейся скобкой
&НаКлиенте
Функция НайтиИмя(текст)
    если СтрДлина(СокрЛП(текст)) > 0 тогда
        //анализ связки пробел-неПробел до 3 элементов
        //идея следующая
        //если 0-й адрес за закрывающейся скобкой ключевое слово "КАК"
        //значит имя между 1-ым и 2-ым адресами
        Массив = МассивВхождений(текст, "\s\S", 3);
        если Массив = Неопределено тогда
            имя = "БезИмени";
        иначеесли Массив.ВГраница() = 2 тогда
            как = ВРег(СокрЛП(Сред(текст, Массив[0][0]+1, Массив[1][0]-Массив[0][0])));
            если как = "КАК" тогда
                имя = СокрЛП(Сред(текст, Массив[1][0]+2, Массив[2][0]-Массив[1][0]-1));
            иначе
                имя = "БезИмени";
            КонецЕсли;    
        иначеесли Массив.ВГраница() = 1 тогда
            имя = СокрЛП(Сред(текст, Массив[1][0]+2, СтрДлина(текст)-Массив[1][0]-1));
        иначе
            имя = "БезИмени";
        КонецЕсли;
    иначе
        имя = "БезИмени";
    КонецЕсли;
    
    Возврат имя;
КонецФункции // НайтиИмя()

//рекурсивная функция для поиска закрывающейся скобки, соответствующей скобке и индексом «ВходящийИндекс»
&НаКлиенте
Функция ВГлубину(Массив, ВходящийИндекс)
    Для индекс = ВходящийИндекс+1 по Массив.ВГраница() цикл
        если Массив[индекс][1] = "(" тогда
            индекс = ВГлубину(Массив, индекс);    
        иначеесли Массив[индекс][1] = ")" тогда
            Прервать;
        КонецЕсли;
    КонецЦикла;
    
    Возврат индекс;
КонецФункции // ВГлубину()

 

См. также

SALE! 20%

Infostart Toolkit: Инструменты разработчика 1С 8.3 на управляемых формах

Инструментарий разработчика Роли и права Запросы СКД Платформа 1С v8.3 Управляемые формы Запросы Система компоновки данных Конфигурации 1cv8 Платные (руб)

Набор инструментов программиста и специалиста 1С для всех конфигураций на управляемых формах. В состав входят инструменты: Консоль запросов, Консоль СКД, Консоль кода, Редактор объекта, Анализ прав доступа, Метаданные, Поиск ссылок, Сравнение объектов, Все функции, Подписки на события и др. Редактор запросов и кода с раскраской и контекстной подсказкой. Доработанный конструктор запросов тонкого клиента. Продукт хорошо оптимизирован и обладает самым широким функционалом среди всех инструментов, представленных на рынке.

13000 10400 руб.

02.09.2020    122167    670    389    

714

Для чего используют конструкцию запроса "ГДЕ ЛОЖЬ" в СКД на примере конфигурации 1С:ERP

Запросы СКД Платформа 1С v8.3 Запросы Система компоновки данных 1С:ERP Управление предприятием 2 Бесплатно (free)

В типовых конфигурациях разработчики компании 1С иногда используют в отчетах, построенных на СКД, такую конструкцию, как "ГДЕ ЛОЖЬ". Такая конструкция говорит о том, что данные в запросе не будут получены совсем. Для чего же нужен тогда запрос?

13.02.2024    5746    KawaNoNeko    23    

23

Набор-объект для СКД по тексту или запросу

Запросы СКД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Абонемент ($m)

Есть список полей в виде текста, или запрос - закидываем в набор СКД.

1 стартмани

31.01.2024    2000    2    Yashazz    0    

29

Запрос 1С copilot

Инструментарий разработчика Запросы Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Абонемент ($m)

Пишем на человеческом языке, что нам надо, и получаем текст запроса на языке 1С. Используются большие языковые модели (LLM GPT) от OpenAI или Яндекс на выбор.

5 стартмани

15.01.2024    6284    31    mkalimulin    25    

50

PrintWizard: поддержка представлений ЗУП в конструкторе

Инструментарий разработчика Запросы Платформа 1С v8.3 Бесплатно (free)

Одной из интересных задач, стоящих в процессе разработки, была поддержка механизма представлений в ЗУП. Но не просто возможность исполнения запросов с ними. Основная проблема была в том, чтобы с ними было удобно работать, а именно: создавать, модифицировать и отлаживать. Кратко о том, что в итоге получилось...

14.12.2023    1742    vandalsvq    7    

29

Объектная модель запроса "Схема запроса" 2

Запросы Платформа 1С v8.3 Запросы Конфигурации 1cv8 Бесплатно (free)

Далеко уже не новый тип данных "Схема запроса". Статья о том, как использовать его "попроще". Примеры создания текста запроса с нуля и изменение имеющегося запроса.

06.12.2023    5388    user1923546    26    

43

Начните уже использовать хранилище запросов

HighLoad оптимизация Запросы

Очень немногие из тех, кто занимается поддержкой MS SQL, работают с хранилищем запросов. А ведь хранилище запросов – это очень удобный, мощный и, главное, бесплатный инструмент, позволяющий быстро найти и локализовать проблему производительности и потребления ресурсов запросами. В статье расскажем о том, как использовать хранилище запросов в MS SQL и какие плюсы и минусы у него есть.

11.10.2023    16185    skovpin_sa    14    

98
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. y22-k 250 11.07.13 10:31 Сейчас в теме
Переписать все под пакетные запросы не?
2. blockcode 40 11.07.13 11:00 Сейчас в теме
а нужно ли?
в пакетном режиме выполняются отлаженные запросы, а распарсивание и отладка выполняется для каждого запроса отдельно.
4. blockcode 40 12.07.13 08:17 Сейчас в теме
Нужно - значит сделаю... со временем))
Там делов-то, каждый запрос пакета обработать как вложенный запрос и проблема сводится к уже решенной. Код я выложил, т.ч. кому интересно можете доработать))))
5. DrAku1a 1679 17.07.13 02:25 Сейчас в теме
пробный парсер запросов:
http://infostart.ru/public/137294/

и его применение
http://infostart.ru/public/190493/
blockcode; +1 Ответить
6. CagoBHuK 32 18.07.13 11:04 Сейчас в теме
Использовать регулярные выражения, не?
7. blockcode 40 18.07.13 11:20 Сейчас в теме
Я их частично использовал... Не хватило терпения построить полноценное регулярное выражение, чтобы избавиться от пары лишних функций. На функциональности это не отразилось, а вот красота написания кода пострадала... Предложения помощи приветствуются. ))
Оставьте свое сообщение