24.03.2021 - ЖЗГ

Как постранично (порционно) листать результат запроса в 1С (ака LIMIT x,y в MySQL)

24.03.2021 Павел Грибов 1C

Большая беда MSSQL и как следствие 1С — отсутствие возможности порционно листать записи результата запроса как в MySQL. В результате рождаются такие монстроузные алгоритмы как ниже (код не мой):

Функция GetNewsList(body, answer) Экспорт
	
	answer.error = Истина;
	answer.errortext = "Что-то пошло не так..";
	answer.result = "";
	
	Попытка
		page = ?(ЗначениеЗаполнено(body.page), Число(body.page), 1);
		Если page < 1 Тогда
			page = 1;
		КонецЕсли;
		
		nums = ?(ЗначениеЗаполнено(body.nums), Число(body.nums), 5);
		Если nums < 5 Тогда
			nums = 5;
		КонецЕсли;
		
		ПредДата = ТекущаяДата();
		ПредКод = "";
		Если page > 1 Тогда
			Запрос = Новый Запрос;
			Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 100
			               |	Хрюкости.Дата КАК Дата,
			               |	Хрюкости.Код КАК Код
			               |ПОМЕСТИТЬ тПредыдущих
			               |ИЗ
			               |	Справочник.ПоследниеСплетни КАК Хрюкости
			               |
			               |УПОРЯДОЧИТЬ ПО
			               |	Хрюкости.Дата УБЫВ,
			               |	Хрюкости.Код УБЫВ
			               |;
			               |
			               |////////////////////////////////////////////////////////////////////////////////
			               |ВЫБРАТЬ ПЕРВЫЕ 1
			               |	тПредыдущих.Дата КАК Дата,
			               |	тПредыдущих.Код КАК Код
			               |ИЗ
			               |	тПредыдущих КАК тПредыдущих
			               |
			               |УПОРЯДОЧИТЬ ПО
			               |	тПредыдущих.Дата,
			               |	тПредыдущих.Код";
			Запрос.Текст = СтрЗаменить(Запрос.Текст, "100", Формат((page - 1) * nums, "ЧДЦ=0; ЧН=; ЧГ="));
			Выборка = Запрос.Выполнить().Выбрать();
			Если Выборка.Следующий() Тогда
				ПредДата = Выборка.Дата;
				ПредКод = Выборка.Код;
			КонецЕсли;
		КонецЕсли;
		
		Запрос = Новый Запрос;
		Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 100
		               |	Хрюкости.Код КАК news_code,
		               |	Хрюкости.Дата КАК date,
		               |	Хрюкости.Наименование КАК name,
		               |	Хрюкости.Содержание КОНЕЦ КАК content,
		               |	Хрюкости.Изображение КАК image
		               |ИЗ
		               |	Справочник.ПоследниеСплетни КАК Хрюкости
		               |ГДЕ
		               |	(Хрюкости.Дата < &ПредДата)
		               |	ИЛИ
					   |	(Хрюкости.Дата = &ПредДата И Хрюкости.Код < &ПредКод)
		               |
		               |УПОРЯДОЧИТЬ ПО
		               |	Хрюкости.Дата УБЫВ,
		               |	Хрюкости.Код УБЫВ";
		Запрос.Текст = СтрЗаменить(Запрос.Текст, "100", Формат(nums, "ЧДЦ=0; ЧН=; ЧГ="));
		Запрос.УстановитьПараметр("ПредДата", ПредДата);
		Запрос.УстановитьПараметр("ПредКод", ПредКод);
		Выборка = Запрос.Выполнить().Выбрать();
		
		РезМассив = Новый Массив;
		Пока Выборка.Следующий() Цикл
			РезСтрукт = Новый Структура("news_code, date, datestr, name, content, image");
			ЗаполнитьЗначенияСвойств(РезСтрукт, Выборка);
			РезСтрукт.datestr = Формат(Выборка.date, "ДФ='dd.MM.yyyy HH:mm:ss'");
			РезМассив.Добавить(РезСтрукт);
		КонецЦикла;
		
		ЕстьЕще = Ложь;
		Если РезМассив.Количество() > 0 Тогда
			КрайняяНовость = РезМассив[РезМассив.Количество() - 1];
			Запрос = Новый Запрос;
			Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1
			               |	Хрюкости.Код КАК news_code
			               |ИЗ
			               |	Справочник.ПоследниеСплетни КАК Хрюкости
			               |ГДЕ
			               |	(Хрюкости.Дата < &ПредДата)
			               |	ИЛИ
						   |	(Хрюкости.Дата = &ПредДата И Хрюкости.Код < &ПредКод)
			               |
			               |УПОРЯДОЧИТЬ ПО
			               |	Хрюкости.Дата УБЫВ,
			               |	Хрюкости.Код УБЫВ";
			Запрос.УстановитьПараметр("ПредДата", КрайняяНовость.date);
			Запрос.УстановитьПараметр("ПредКод", КрайняяНовость.news_code);
			ЕстьЕще = НЕ Запрос.Выполнить().Пустой();
		КонецЕсли;
		
		answer.result = Новый Структура("portion, havingmore", РезМассив, ЕстьЕще);
		answer.error = Ложь;
		answer.errortext = "";
		
	Исключение
		answer.errortext = ОписаниеОшибки();
	КонецПопытки;
	
	Возврат answer;
	
КонецФункции

100

101

102

103

104

105

106

107

108

109

110

111

112

113

Функция GetNewsList(body, answer) Экспорт

answer.error = Истина;

answer.errortext = "Что-то пошло не так..";

answer.result = "";

Попытка

page = ?(ЗначениеЗаполнено(body.page), Число(body.page), 1);

Если page < 1 Тогда

page = 1;

КонецЕсли;

nums = ?(ЗначениеЗаполнено(body.nums), Число(body.nums), 5);

Если nums < 5 Тогда

nums = 5;

КонецЕсли;

ПредДата = ТекущаяДата();

ПредКод = "";

Если page > 1 Тогда

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 100

| Хрюкости.Дата КАК Дата,

| Хрюкости.Код КАК Код

|ПОМЕСТИТЬ тПредыдущих

|ИЗ

| Справочник.ПоследниеСплетни КАК Хрюкости

|УПОРЯДОЧИТЬ ПО

| Хрюкости.Дата УБЫВ,

| Хрюкости.Код УБЫВ

|////////////////////////////////////////////////////////////////////////////////

|ВЫБРАТЬ ПЕРВЫЕ 1

| тПредыдущих.Дата КАК Дата,

| тПредыдущих.Код КАК Код

|ИЗ

| тПредыдущих КАК тПредыдущих

|УПОРЯДОЧИТЬ ПО

| тПредыдущих.Дата,

| тПредыдущих.Код";

Запрос.Текст = СтрЗаменить(Запрос.Текст, "100", Формат((page - 1) * nums, "ЧДЦ=0; ЧН=; ЧГ="));

Выборка = Запрос.Выполнить().Выбрать();

Если Выборка.Следующий() Тогда

ПредДата = Выборка.Дата;

ПредКод = Выборка.Код;

КонецЕсли;

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 100

| Хрюкости.Код КАК news_code,

| Хрюкости.Дата КАК date,

| Хрюкости.Наименование КАК name,

| Хрюкости.Содержание КОНЕЦ КАК content,

| Хрюкости.Изображение КАК image

|ИЗ

| Справочник.ПоследниеСплетни КАК Хрюкости

|ГДЕ

| (Хрюкости.Дата < &ПредДата)

| ИЛИ

| (Хрюкости.Дата = &ПредДата И Хрюкости.Код < &ПредКод)

|УПОРЯДОЧИТЬ ПО

| Хрюкости.Дата УБЫВ,

| Хрюкости.Код УБЫВ";

Запрос.Текст = СтрЗаменить(Запрос.Текст, "100", Формат(nums, "ЧДЦ=0; ЧН=; ЧГ="));

Запрос.УстановитьПараметр("ПредДата", ПредДата);

Запрос.УстановитьПараметр("ПредКод", ПредКод);

Выборка = Запрос.Выполнить().Выбрать();

РезМассив = Новый Массив;

Пока Выборка.Следующий() Цикл

РезСтрукт = Новый Структура("news_code, date, datestr, name, content, image");

ЗаполнитьЗначенияСвойств(РезСтрукт, Выборка);

РезСтрукт.datestr = Формат(Выборка.date, "ДФ='dd.MM.yyyy HH:mm:ss'");

РезМассив.Добавить(РезСтрукт);

КонецЦикла;

ЕстьЕще = Ложь;

Если РезМассив.Количество() > 0 Тогда

КрайняяНовость = РезМассив[РезМассив.Количество() - 1];

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ ПЕРВЫЕ 1

| Хрюкости.Код КАК news_code

|ИЗ

| Справочник.ПоследниеСплетни КАК Хрюкости

|ГДЕ

| (Хрюкости.Дата < &ПредДата)

| ИЛИ

| (Хрюкости.Дата = &ПредДата И Хрюкости.Код < &ПредКод)

|УПОРЯДОЧИТЬ ПО

| Хрюкости.Дата УБЫВ,

| Хрюкости.Код УБЫВ";

Запрос.УстановитьПараметр("ПредДата", КрайняяНовость.date);

Запрос.УстановитьПараметр("ПредКод", КрайняяНовость.news_code);

ЕстьЕще = НЕ Запрос.Выполнить().Пустой();

КонецЕсли;

answer.result = Новый Структура("portion, havingmore", РезМассив, ЕстьЕще);

answer.error = Ложь;

answer.errortext = "";

Исключение

answer.errortext = ОписаниеОшибки();

КонецПопытки;

Возврат answer;

КонецФункции

Если вкратце, то алгоритм следующий:

Делаем выборку ВСЕХ записей, определяя, с какой записи было начало предыдущей страницы
Начиная с этой записи, делаем выборку N записей
Передаем результат

Интересно будет посмотреть как этот алгоритм будет вести себя при миллионах записей..

Оставить комментарий 1c, 1с, limit, msqsql, mysql, выдача, постранично

PHP: определение языка пользователя сайта

24.03.2021 Павел Грибов Из жизни

В ранние годы, чаще всего определяли языка пользователя на основании его IP. Да и до исх пор так часто делают. И всё чаще ошибаются из-за широкого распространения VPN и всяческих аномайзеров. Поэтом правильнее будет полагаться на стандарт W3C, согласно которому браузер должен передавать на сервер в заголовке HTTP заполненую переменную HTTP_ACCEPT_LANGUAGE. Собстевенно в PHP оно попадает в $_SERVER[‘HTTP_ACCEPT_LANGUAGE’]. Далее остается распрасить переменную с сортировкой по «весам»:

        if (($list = strtolower($_SERVER['HTTP_ACCEPT_LANGUAGE']))) {
                    if (preg_match_all('/([a-z]{1,8}(?:-[a-z]{1,8})?)(?:;q=([0-9.]+))?/', $list, $list)) {
                        $language = array_combine($list[1], $list[2]);
                        foreach ($language as $n => $v)
                            $language[$n] = $v ? $v : 1;
                        arsort($language, SORT_NUMERIC);
                    }
        } else $language = array();

if (($list = strtolower($_SERVER['HTTP_ACCEPT_LANGUAGE']))) {

if (preg_match_all('/([a-z]{1,8}(?:-[a-z]{1,8})?)(?:;q=([0-9.]+))?/', $list, $list)) {

$language = array_combine($list[1], $list[2]);

foreach ($language as $n => $v)

$language[$n] = $v ? $v : 1;

arsort($language, SORT_NUMERIC);

}

} else $language = array();

Получаем массив вида:

Array
(
    [ru-ru] => 1
    [ru] => 0.8
    [en-us] => 0.6
    [en] => 0.4
)

Array

(

[ru-ru] => 1

[ru] => 0.8

[en-us] => 0.6

[en] => 0.4

)

Оставить комментарий php, определение, язык сайта

Пн	Вт	Ср	Чт	Пт	Сб	Вс
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31