Вы искали 1с - Страница 3 из 40

1С: Ускорение поиска в массиве структур

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

Задача: есть два массива структур. Один 500 записей, второй — порядка 900 тыс. Нужно для каждой из 500 записей, найти соответствующую запись из второй структуры.

ИсходныеДанные=Новый Структура("субабоненты,реестр_замен",Новый Массив(),Новый Массив(),Новый Массив(),Новый Массив());

1	ИсходныеДанные=Новый Структура("субабоненты,реестр_замен",Новый Массив(),Новый Массив(),Новый Массив(),Новый Массив());

Массив «субабоненты», заполнен структурами вида «то,лс,ипу,окпу,нс,улица,дом,квартира»
Массив «реестр_замен», заполнен структурами вида «лс,нп,улица,дом,квартира,ипу,дата_установки»

Решение 1: ищем и сопоставляем в «лоб»

	найдено=0;
	для каждого суб из ИсходныеДанные.субабоненты цикл
		    поз=поз+1;
			для каждого стр из ИсходныеДанные.реестр_замен цикл			
				если суб.лс=стр.лс тогда
					найдено=найдено+1;		
				конецесли;	
			конеццикла;
	конеццикла;	
	сообщить("-сопоставлено лс: "+найдено);

найдено=0;

для каждого суб из ИсходныеДанные.субабоненты цикл

поз=поз+1;

для каждого стр из ИсходныеДанные.реестр_замен цикл

если суб.лс=стр.лс тогда

найдено=найдено+1;

конецесли;

конеццикла;

сообщить("-сопоставлено лс: "+найдено);

Замеряем время выполнения…и устаём ждать.. Поиск и сопоставление длится по крайне мере несколько часов..

Решение 2:

А зачем нам в массиве субабонентов держать те данные, которых нет? Правильно, не зачем. Поэтому из массива «реестр_замен», сначала вычленим список л/с, и положим его в отдельный массив. И далее при заполнении из файла массива субабонентов, нужно штатно (функция Найти) проверять нужна такая строчка или нет в результирующем массиве? Функция «Найти» скажем работает ОЧЕНЬ быстро.

					если ИсходныеДанные.список_лс.Найти(инф.лс)<>неопределено или ИсходныеДанные.список_ипу.Найти(инф.ипу)<>неопределено тогда
						ИсходныеДанные.субабоненты.Добавить(инф);			                                                
					конецесли;

если ИсходныеДанные.список_лс.Найти(инф.лс)<>неопределено или ИсходныеДанные.список_ипу.Найти(инф.ипу)<>неопределено тогда

ИсходныеДанные.субабоненты.Добавить(инф);

конецесли;

В итоге, в массиве «субабоненты» у нас ровно то количество записей, которое в «реестр_замен «, а вовсе не 900тыс.

И дальше пробуем снова сопоставить:

найдено=0;
	для каждого суб из ИсходныеДанные.субабоненты цикл
		    поз=поз+1;
			для каждого стр из ИсходныеДанные.реестр_замен цикл			
				если суб.лс=стр.лс тогда
					найдено=найдено+1;		
				конецесли;	
			конеццикла;
	конеццикла;	
	сообщить("-сопоставлено лс: "+найдено);

найдено=0;

для каждого суб из ИсходныеДанные.субабоненты цикл

поз=поз+1;

для каждого стр из ИсходныеДанные.реестр_замен цикл

если суб.лс=стр.лс тогда

найдено=найдено+1;

конецесли;

конеццикла;

сообщить("-сопоставлено лс: "+найдено);

Скрипт выполнился уже в приемлемые примерно 400 секунд

Оставить комментарий 1с, поиск в массиве структур

Чтение большого файла csv в 1С

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

Куда ни глянь, в интернете чаще всего предлагается обработка и чтение большого файла csv в 1С при помощи загрузки в «текстовыйДокумент». Примерно так:

ТекстДок = Новый ТекстовыйДокумент;<br>ТекстДок.Прочитать(ИмяВременногоФайлаХар);		<br>Для Индекс = 2 По ТекстДок.КоличествоСтрок() Цикл<br>	СтрокаФайла = ТекстДок.ПолучитьСтроку(Индекс);<br>конеццикла;

1	ТекстДок = Новый ТекстовыйДокумент;<br>ТекстДок.Прочитать(ИмяВременногоФайлаХар); <br>Для Индекс = 2 По ТекстДок.КоличествоСтрок() Цикл<br> СтрокаФайла = ТекстДок.ПолучитьСтроку(Индекс);<br>конеццикла;

Что в корне не верно, при обработке большого csv файла, так как в этом случае весь файл вычитывается предварительно в память. А она не безразмерная в большинстве случаев. Правильный же способ обработки — построчное чтение файла. Примерно так:

		Текст = Новый ЧтениеТекста(ИмяВременногоФайлаХар, КодировкаТекста.ANSI);
		Стр = Текст.ПрочитатьСтроку();
		Пока Стр <> Неопределено Цикл 
		   Сообщить(Стр);
		   Стр = Текст.ПрочитатьСтроку();
			МассивПодстрок = СтрРазделить(Стр, ";");
			инф=Новый Структура("то,лс,ипу,окпу,нс,улица,дом,квартира");
			инф.то		=СокрЛП(МассивПодстрок[2]);
			инф.лс		=СокрЛП(СтрЗаменить(МассивПодстрок[3],"-",""));
			инф.ипу		=СокрЛП(МассивПодстрок[31]);
			инф.окпу	=СокрЛП(МассивПодстрок[92]);
			инф.нс		=СокрЛП(МассивПодстрок[8]);
			инф.улица	=СокрЛП(МассивПодстрок[9]);
			инф.дом		=СокрЛП(МассивПодстрок[10]);
			инф.квартира=СокрЛП(МассивПодстрок[11]);
			ИсходныеДанные.субабоненты.Добавить(инф);			
		   КонецЦикла;

Текст = Новый ЧтениеТекста(ИмяВременногоФайлаХар, КодировкаТекста.ANSI);

Стр = Текст.ПрочитатьСтроку();

Пока Стр <> Неопределено Цикл

Сообщить(Стр);

Стр = Текст.ПрочитатьСтроку();

МассивПодстрок = СтрРазделить(Стр, ";");

инф=Новый Структура("то,лс,ипу,окпу,нс,улица,дом,квартира");

инф.то =СокрЛП(МассивПодстрок[2]);

инф.лс =СокрЛП(СтрЗаменить(МассивПодстрок[3],"-",""));

инф.ипу =СокрЛП(МассивПодстрок[31]);

инф.окпу =СокрЛП(МассивПодстрок[92]);

инф.нс =СокрЛП(МассивПодстрок[8]);

инф.улица =СокрЛП(МассивПодстрок[9]);

инф.дом =СокрЛП(МассивПодстрок[10]);

инф.квартира=СокрЛП(МассивПодстрок[11]);

ИсходныеДанные.субабоненты.Добавить(инф);

КонецЦикла;

Оставить комментарий 1с, csv, большой файл

Работа с безопасным хранилищем в 1С

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

До недавнего времени (еще несколько лет назад) для хранения данных учётных записей в 1С единственной защитой было — показывать поле с паролем со «звездочками». Сам же пароль хранился в практически открытом виде в реквизитах формы. Ну.. возможно это и не безопасно.. Новая методика хранения чувствительных данных в 1С призвана эту безопасность увеличить. Работа с безопасным хранилищем в 1с, Поэтому в БСП были внедрены функции общего назначения «ПрочитатьДанныеИзБезопасногоХранилища» и «ЗаписатьДанныеВБезопасноеХранилище».

Например запишу данные:

       УстановитьПривилегированныйРежим(Истина);
       ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(ТекущийОбъект.Ссылка, Пароль,"ПарольSMTP");
       УстановитьПривилегированныйРежим(Ложь);

УстановитьПривилегированныйРежим(Истина);

ОбщегоНазначения.ЗаписатьДанныеВБезопасноеХранилище(ТекущийОбъект.Ссылка, Пароль,"ПарольSMTP");

УстановитьПривилегированныйРежим(Ложь);

Прочитаю данные:

	 УстановитьПривилегированныйРежим(Истина);
	  уз=справочники.УчетныеЗаписиЭлектроннойПочты.НайтиПоНаименованию("Учетка для чтения писем");
      Пароли = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(уз, "Пароль, ПарольSMTP");
	УстановитьПривилегированныйРежим(Ложь);

УстановитьПривилегированныйРежим(Истина);

уз=справочники.УчетныеЗаписиЭлектроннойПочты.НайтиПоНаименованию("Учетка для чтения писем");

Пароли = ОбщегоНазначения.ПрочитатьДанныеИзБезопасногоХранилища(уз, "Пароль, ПарольSMTP");

УстановитьПривилегированныйРежим(Ложь);

В чём разница между хранением в реквизитах и новой методикой:

Имея доступ к объекту метаданных, пользователь может прочитать содержимое реквизита с паролем, что невозможно при использовании безопасного хранилища. Для исключения случаев несанкционированного доступа к безопасному хранилищу получение и запись данных (паролей) возможна только в привилегированном режиме.
Данные в безопасном хранилище хранятся в закрытом виде и тем самым исключаются случаи непредумышленной «засветки» паролей.
Безопасное хранилище исключено из планов обмена, что предотвращает утечку паролей из информационной базы при обмене данными.

Другие статьи по теме 1С

Оставить комментарий безопасное хранилище, узнать пароль учётки

1С: чтение почты по протоколу IMAP

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

Прилетела задача прочитать сообщение из почтового ящика по протоколу IMAP. Последнее из пришедших. В принципе в 1С есть штатный функционал для чтения почты, поэтому пример всё сам расскажет за себя:

Процедура ЧитнутьНаСервереImap()
	Профиль = Новый ИнтернетПочтовыйПрофиль;
	Профиль.АутентификацияPOP3 = Ложь;
	Профиль.АутентификацияSMTP = Ложь;
	
	// IMAP
	Профиль.ИспользоватьSSLIMAP = Истина;
	Профиль.АдресСервераIMAP = "цукацу-укацука.уцкацук.ru";
	Профиль.ПортIMAP = "993"; 	
	Профиль.ПользовательIMAP = "укацу@укацукау.ru";
	Профиль.ПарольIMAP = "цукацукацук";
	Профиль.ТолькоЗащищеннаяАутентификацияIMAP=Ложь;

	Почта = Новый ИнтернетПочта;
	Сообщ = Новый СообщениеПользователю();

		Почта.Подключиться(Профиль, ПротоколИнтернетПочты.IMAP); //ПротоколИнтернетПочты.POP3		
		заголовки=Почта.ПолучитьЗаголовки();
		если заголовки.Количество()>0 тогда		
			ПоследнийЗаголовок=Новый Массив();
			ПоследнийЗаголовок.Добавить(заголовки[заголовки.Количество()-1]);					
			МассивСообщений = Новый Массив;
			МассивСообщений = Почта.Выбрать(Ложь,ПоследнийЗаголовок);		
			
			ТекстСообщения=МассивСообщений[0].тексты[0].Текст;
			сообщить(ТекстСообщения);
		конецесли;
	
	Почта.Отключиться(); 

	

КонецПроцедуры

Процедура ЧитнутьНаСервереImap()

Профиль = Новый ИнтернетПочтовыйПрофиль;

Профиль.АутентификацияPOP3 = Ложь;

Профиль.АутентификацияSMTP = Ложь;

// IMAP

Профиль.ИспользоватьSSLIMAP = Истина;

Профиль.АдресСервераIMAP = "цукацу-укацука.уцкацук.ru";

Профиль.ПортIMAP = "993";

Профиль.ПользовательIMAP = "укацу@укацукау.ru";

Профиль.ПарольIMAP = "цукацукацук";

Профиль.ТолькоЗащищеннаяАутентификацияIMAP=Ложь;

Почта = Новый ИнтернетПочта;

Сообщ = Новый СообщениеПользователю();

Почта.Подключиться(Профиль, ПротоколИнтернетПочты.IMAP); //ПротоколИнтернетПочты.POP3

заголовки=Почта.ПолучитьЗаголовки();

если заголовки.Количество()>0 тогда

ПоследнийЗаголовок=Новый Массив();

ПоследнийЗаголовок.Добавить(заголовки[заголовки.Количество()-1]);

МассивСообщений = Новый Массив;

МассивСообщений = Почта.Выбрать(Ложь,ПоследнийЗаголовок);

ТекстСообщения=МассивСообщений[0].тексты[0].Текст;

сообщить(ТекстСообщения);

конецесли;

Почта.Отключиться();

КонецПроцедуры

Из особенностей логики — сначала вычитываю заголовки, т.к. если почты много, то чтение писем будет ОЧЕНЬ долгим. Далее получаю последний по счету заголовок, и вычитываю текст конкретно уже этого письма.

прочитать сообщение из почтового ящика по протоколу IMAP

Другие статьи по тегу 1С можете почитать тут

Оставить комментарий 1c, imap, почта

1С: передать файл с сервера на клиент

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

Задача: Открыть файл прикрепленный к справочнику на клиенте приложением по умолчанию (передать файл с сервера на клиент)

Решение: любой файл который «прикреплен» к справочнику, если используется БСП , на самом деле находится в справочнике Файлы. Это для старых версий БСП. В новых версиях имя справочника носит шаблонное имя [ИмяСправочника]ПрисоединенныеФайлы. В обоих вариантах у этик справочников есть реквизит «Владелец файла». Вот по нему и получим самый первый прикрепленный файл.

&НаСервере
Функция ОткрытьФайлНаСервере()    		    
			фф="";
			Запрос = Новый Запрос;
			Запрос.Текст = 
				"ВЫБРАТЬ ПЕРВЫЕ 1
				|	Файлы.Ссылка КАК Ссылка,
				|	Файлы.ПолноеНаименование КАК ПолноеНаименование,
				|	Файлы.ТекущаяВерсияПутьКФайлу КАК ТекущаяВерсияПутьКФайлу,
				|	Файлы.ТекущаяВерсияТом.ПолныйПутьWindows КАК ТекущаяВерсияТомПолныйПутьWindows,
				|	Файлы.ГлавныйФайл КАК ГлавныйФайл,
				|	Файлы.ТекущаяВерсияРасширение КАК ТекущаяВерсияРасширение,
				|	Файлы.Наименование КАК Наименование
				|ИЗ
				|	Справочник.Файлы КАК Файлы
				|ГДЕ
				|	Файлы.ВладелецФайла = &ВладелецФайла
				|	И Файлы.ПометкаУдаления = ЛОЖЬ";	
			Запрос.УстановитьПараметр("ВладелецФайла", объект.ДокОб);	
			РезультатЗапроса = Запрос.Выполнить();	
			ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();	
			Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
                сообщить(ВыборкаДетальныеЗаписи.Ссылка);
				фф=ВыборкаДетальныеЗаписи.ТекущаяВерсияТомПолныйПутьWindows+ВыборкаДетальныеЗаписи.ТекущаяВерсияПутьКФайлу;
			КонецЦикла;		

			если фф<>"" тогда
				Двоичное=Новый ДвоичныеДанные(фф);
				Адрес=ПоместитьВоВременноеХранилище(Двоичное,ЭтаФорма.УникальныйИдентификатор);
				Возврат Новый Структура("error,address,filename",false,Адрес,ВыборкаДетальныеЗаписи.Наименование+"."+ВыборкаДетальныеЗаписи.ТекущаяВерсияРасширение);	
			иначе
				Возврат Новый Структура("error,address,filename",true);
			конецесли			
КонецФункции

&НаСервере

Функция ОткрытьФайлНаСервере()

фф="";

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

Запрос.Текст =

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

| Файлы.Ссылка КАК Ссылка,

| Файлы.ПолноеНаименование КАК ПолноеНаименование,

| Файлы.ТекущаяВерсияПутьКФайлу КАК ТекущаяВерсияПутьКФайлу,

| Файлы.ТекущаяВерсияТом.ПолныйПутьWindows КАК ТекущаяВерсияТомПолныйПутьWindows,

| Файлы.ГлавныйФайл КАК ГлавныйФайл,

| Файлы.ТекущаяВерсияРасширение КАК ТекущаяВерсияРасширение,

| Файлы.Наименование КАК Наименование

|ИЗ

| Справочник.Файлы КАК Файлы

|ГДЕ

| Файлы.ВладелецФайла = &ВладелецФайла

| И Файлы.ПометкаУдаления = ЛОЖЬ";

Запрос.УстановитьПараметр("ВладелецФайла", объект.ДокОб);

РезультатЗапроса = Запрос.Выполнить();

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

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

сообщить(ВыборкаДетальныеЗаписи.Ссылка);

фф=ВыборкаДетальныеЗаписи.ТекущаяВерсияТомПолныйПутьWindows+ВыборкаДетальныеЗаписи.ТекущаяВерсияПутьКФайлу;

КонецЦикла;

если фф<>"" тогда

Двоичное=Новый ДвоичныеДанные(фф);

Адрес=ПоместитьВоВременноеХранилище(Двоичное,ЭтаФорма.УникальныйИдентификатор);

Возврат Новый Структура("error,address,filename",false,Адрес,ВыборкаДетальныеЗаписи.Наименование+"."+ВыборкаДетальныеЗаписи.ТекущаяВерсияРасширение);

иначе

Возврат Новый Структура("error,address,filename",true);

конецесли

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

На клиенте таким образом мы получим имя файла и адрес во временном хранилище. Остаётся сохранить файл во временный каталог и открыть его приложением по умолчанию:

&НаКлиенте
Процедура ОткрытьФайл(Команда)
	рез=ОткрытьФайлНаСервере();
	если рез.error=false тогда
		Двоичное=ПолучитьИзВременногоХранилища(рез.address);			
		ИмяФайла = КаталогВременныхФайлов() + рез.filename;		
		Двоичное.Записать(ИмяФайла);
		ЗапуститьПриложение(ИмяФайла);
	конецесли;

КонецПроцедуры

&НаКлиенте

Процедура ОткрытьФайл(Команда)

рез=ОткрытьФайлНаСервере();

если рез.error=false тогда

Двоичное=ПолучитьИзВременногоХранилища(рез.address);

ИмяФайла = КаталогВременныхФайлов() + рез.filename;

Двоичное.Записать(ИмяФайла);

ЗапуститьПриложение(ИмяФайла);

конецесли;

КонецПроцедуры

Другие мои статьи по теме 1С тут

Оставить комментарий 1с, с сервера на клиент, файл

« 1 2 3 4 5 … 40 »

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