Март 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, определение, язык сайта

Android Studio: glUtilsParamSize: unknow param 0x000085b5

23.03.2021 Павел Грибов Android

При отладке приложений в эмуляторе под Android API<30 стала выскакивать эта ошибка, засоряющая лог Logcat. Легкий гуглинг дал информацию, что это из-за эмулятора: OpenGL не нравиться андроиду как эмулируется. Чтобы отключить вывод мусорного лога, нужно добавить фильтр в Logcat

А именно Regex выражение ^(?!eglCodecCommon)

Оставить комментарий android, android studio, error, glUtilsParamSize, log, logcat

Карта: Постаппокалипсис

22.03.2021 Павел Грибов Артемий

Карта является переделкой карты The ZOne. Скачать можно по ссылке Так-же понадобится мод Flans (скачать) и паки для него (скачать). Положить нужно в папку Flan

Оставить комментарий flan, minecraft, выживание, зомби, постаппокалипсис

JavaScript именованные массивы как набор записей

18.03.2021 Павел Грибов WEB

Обычно для этой цели используют конструкцию Map, однако лично мне не нравится его синтаксис, когда для доступа необходимо использовать get /set. Поэтому я обычно использую создание объекта. Т.е. получается что-то вроде:

// набор записей
TBokings=new Object();
TBokings={
  x:0,
  x1:0,
  starttime:"12:00",
  endtime:"13:00",
  status:"busy"
};
// сам массив
ArrBooking=new Array();

///добавление в массив
  TBokings.x=startRectX;
  TBokings.x1=EndRectX;
  TBokings.starttime=item.DtFrom_UTC;
  TBokings.endtime=item.DtTo_UTC;
  TBokings.status="busy";
  ArrBooking.push(Object.assign({}, TBokings));      

// перебор массива

ArrBooking.forEach(function(item){
	console.log(item);
});

// набор записей

TBokings=new Object();

TBokings={

x:0,

x1:0,

starttime:"12:00",

endtime:"13:00",

status:"busy"

};

// сам массив

ArrBooking=new Array();

///добавление в массив

TBokings.x=startRectX;

TBokings.x1=EndRectX;

TBokings.starttime=item.DtFrom_UTC;

TBokings.endtime=item.DtTo_UTC;

TBokings.status="busy";

ArrBooking.push(Object.assign({}, TBokings));

// перебор массива

ArrBooking.forEach(function(item){

console.log(item);

});

Оставить комментарий javascript, map, object, именованый массив, набор записей

1 2 3 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
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