Как сделать простой парсер сложных запросов.
Первым делом скажу, что опишу не столько парсер запросов, сколько анализатор круглых скобок (). Все очень просто, каждый вложенный запрос берется в круглые скобки, поэтому нам остается проверить на наличие внутри скобок ключевого слова «ВЫБРАТЬ».
Для поиска скобок и ключевого слова частично был задействован механизм регулярных выражений. Все вложенные запросы в Дереве значений добавляются дочерними узлами к ветви запроса. Имя ветви – это имя вложенного запроса. Все параметры запроса будут, для удобства, копироваться в ветви вложенных запросов.
Для распарсивания используется процедура РазобратьЗапрос(), описанная ниже. Обратная процедура СобратьЗапрос() работает следующим образом. В текущем запросе вложенные запросы заменяются запросами из дочерних ветвей дерева запросов. Замена происходит только на текущем уровне, без рекурсии в глубину или на вершину, поэтому сборка происходит последовательно, начиная с нижнего уровня. Это сделано умышленно, давая возможность на каждом уровне проверить после сборки правильность выполнения запроса. Основное требование перед сборкой вложенных запросов – наличие тех же возвращаемых переменных которые были при разборке.
Процедуры и функции я тщательно прокомментировал, так что трудностей с кодом не должно возникнуть. Данный механизм был использован в сторонних консолях запросов. 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] = ")" тогда
Прервать;
КонецЕсли;
КонецЦикла;
Возврат индекс;
КонецФункции // ВГлубину()
