ЖЗГ - Жизнь замечательных грибов

Новый проект. DHCP сервер с выборкой из БД на Python

Задачей было написать аналог проекта DHCP2DB , но только на Python вместо C. В принципе […]

Читать далее »
Arduino Uno краткий обзор..

Ну на самом деле таких обзоров в «интернетиках» пруд пруди.. Ну чтож, внесу и я […]

Читать далее »
Получение данных из Active Directory посредством PHP

Сам за себя лучше всего расскажет мой кусок кода. Все сдобрено максимально большим количеством комментариев. […]

Читать далее »

1С:Размещение индикатора прогресс бара на форме

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

Никогда не было и вот опять (с). Давненько не выводил на форму индикатор прогресс бара, и вот итог: забыл как это делается. И главное гугл/яндекс не особо помог. Во всех попадающихся ссылках расписывается как вывести данные в этот индикатор, а вот как вывести его на форму подразумевается что это настолько элементарно, что не требует пояснения 😉 Однакож вот, забыл. И так:

В реквизиты формы добавляем реквизит с типом число
Перетаскиваем его на форму и поле вид выбираем «Поле индикатора»
Для обновления значения, используем «ЭтаФорма.Индикатор=12»

P.S. А вот уж как в фоново обновлять индикатор, есть мои другие статьи

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

1С: Обновление формы после изменения данных на сервере

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

При обновлении данных на сервере, иногда бывает необходимость обновить содержимое клиентской формы. Сделать это можно вот так:

&НаКлиенте
Процедура СинхронизироватьСписок(Команда)
	СинхронизироватьСписокНаСервере();
	ОповеститьОбИзменении(Тип("СправочникСсылка.цукцукацук")); 
КонецПроцедуры

&НаКлиенте

Процедура СинхронизироватьСписок(Команда)

СинхронизироватьСписокНаСервере();

ОповеститьОбИзменении(Тип("СправочникСсылка.цукцукацук"));

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

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

HTML: Ограничение ввода числа, с дробной частью более двух знаков

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

Задача: позволять вносить в поле input числа со значимой частью не более 2-х знаков после запятой.

Решение: к сожалению стандарт HTML на текущий момент не предусматривает в штатном виде такое колдовство. Единственно что возможно — проставить в теге тип равным «число», и шаг равным .01, например вот так:

<input type="number" step=".01">

1	<input type="number" step=".01">

Но это будет действовать только если пользователь ввод числа осуществляет при помощи стрелочки. Если руками — то поле всё равно позволит ввести любое число. Значит придётся задействовать javascript. На обработчик onchange навесим задание приводить любое значение в поле к числу с разрядностью 2:

<input type="number" step=".01" onchange="this.value = parseFloat(this.value).toFixed(2);">

1	<input type="number" step=".01" onchange="this.value = parseFloat(this.value).toFixed(2);">

Оставить комментарий html, input, ввод числа

Флибсута всё..

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

К сожалению пришла новость, что создатель сайта филибусты из-за тяжелой болезни скоро покинет наш мир. А вместе с ним и его детище. Очень жаль. Еще одна эпоха ушла, читал книги скачанные оттуда последние 10+ лет

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

Чтение данных из файла docx средствами 1С

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

Задача: спарсить данные из таблицы, которая находится в файле формата docx средствами 1С

Решение: по сути своей файл формата docx является zip архивом, в котором находятся файлы формата xml и внешние ресурсы, типа картинок, стилей и т.п. Текстовое же содержимое находится непосредственно в файле document.xml. Его нужно лишь прочитать, найти в нём таблицу и распарсить данные.

Для начала загрузим файл на сервер, переименуем его в zip, и откроем его при помощи метода 1С «ЧтениеZipФайла», а найденный в архиве файл document.xml извлекем для дальнейшей обработки:

&НаКлиенте
Процедура ВыбратьФайлыИСделатьХорошо(Команда)
	Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.ПолноеИмяФайла = "";
    Фильтр = НСтр("ru = 'Текст'; en = 'Text'")+ "(*.docx)|*.docx";
    ДиалогОткрытияФайла.Фильтр = Фильтр;
    ДиалогОткрытияФайла.МножественныйВыбор = ложь;
    ДиалогОткрытияФайла.Заголовок = "Выберите файлы";
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
		ФайлСМС="";
		Для Каждого ИмяФайла Из МассивФайлов Цикл
			ФайлСМС=ИмяФайла;
		конеццикла;
		если ФайлСМС<>"" тогда 			
					АдресХранилищаФайла = "";			
					Состояние("Перемещаю файл на сервер");
		            ПоместитьФайл(АдресХранилищаФайла, ФайлСМС, , Ложь, ЭтаФорма.УникальныйИдентификатор);   					
					Состояние("Обрабатывается файл "+ФайлСМС);							
					таблицы=ПреобразоватьФайлDocXВМассивТаблиц(АдресХранилищаФайла);					
		иначе
			сообщить("Файл не выбран");
		конецесли;	
	конецесли;	        
КонецПроцедуры

&НаСервере
Функция ПреобразоватьФайлDocXВМассивТаблиц(АдресХранилищаФайла)	
	ТЗ=Новый ТаблицаЗначений();	
	ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилищаФайла);
	ИмяВременногоФайлаСпр = ПолучитьИмяВременногоФайла("zip");
	ДвоичныеДанные.Записать(ИмяВременногоФайлаСпр);     

	Архив = Новый ЧтениеZipФайла(ИмяВременногоФайлаСпр);
	ИмяВременногоФайлаXML = ПолучитьИмяВременногоФайла("xml");
	Для Каждого Элемент Из Архив.Элементы Цикл	
		если  Элемент.Имя="document.xml" тогда			
			Архив.Извлечь(Элемент, КаталогВременныхФайлов(), РежимВосстановленияПутейФайловZIP.НеВосстанавливать);			
		конецесли;
	Конеццикла;	
	Архив.Закрыть();
....

&НаКлиенте

Процедура ВыбратьФайлыИСделатьХорошо(Команда)

Режим = РежимДиалогаВыбораФайла.Открытие;

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);

ДиалогОткрытияФайла.ПолноеИмяФайла = "";

Фильтр = НСтр("ru = 'Текст'; en = 'Text'")+ "(*.docx)|*.docx";

ДиалогОткрытияФайла.Фильтр = Фильтр;

ДиалогОткрытияФайла.МножественныйВыбор = ложь;

ДиалогОткрытияФайла.Заголовок = "Выберите файлы";

Если ДиалогОткрытияФайла.Выбрать() Тогда

МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;

ФайлСМС="";

Для Каждого ИмяФайла Из МассивФайлов Цикл

ФайлСМС=ИмяФайла;

конеццикла;

если ФайлСМС<>"" тогда

АдресХранилищаФайла = "";

Состояние("Перемещаю файл на сервер");

ПоместитьФайл(АдресХранилищаФайла, ФайлСМС, , Ложь, ЭтаФорма.УникальныйИдентификатор);

Состояние("Обрабатывается файл "+ФайлСМС);

таблицы=ПреобразоватьФайлDocXВМассивТаблиц(АдресХранилищаФайла);

иначе

сообщить("Файл не выбран");

конецесли;

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

&НаСервере

Функция ПреобразоватьФайлDocXВМассивТаблиц(АдресХранилищаФайла)

ТЗ=Новый ТаблицаЗначений();

ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресХранилищаФайла);

ИмяВременногоФайлаСпр = ПолучитьИмяВременногоФайла("zip");

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

Архив = Новый ЧтениеZipФайла(ИмяВременногоФайлаСпр);

ИмяВременногоФайлаXML = ПолучитьИмяВременногоФайла("xml");

Для Каждого Элемент Из Архив.Элементы Цикл

если Элемент.Имя="document.xml" тогда

Архив.Извлечь(Элемент, КаталогВременныхФайлов(), РежимВосстановленияПутейФайловZIP.НеВосстанавливать);

конецесли;

Конеццикла;

Архив.Закрыть();

....

Далее файл documnet.xml необходимо загрузить как XML и распарсить в структуру при помощи построителя DOM. После чего останется только найти таблицу по имени узла w:tbl и поместить содержимое в таблицу значений:

ФайлXML = Новый ЧтениеXML;
    ФайлXML.ОткрытьФайл(КаталогВременныхФайлов()+"document.xml");
		ПостроительDOMXML=Новый ПостроительDOM;
		ДокументДом=ПостроительDOMXML.Прочитать(ФайлXML);
		ПрочитаноСтрок=0;		
		для каждого document из ДокументДом.ДочерниеУзлы цикл
			для каждого body из document.ДочерниеУзлы цикл
				для каждого el из body.ДочерниеУзлы цикл
					если el.ИмяУзла="w:tbl" тогда
							для каждого tab_el из el.ДочерниеУзлы цикл							
								если tab_el.ИмяУзла="w:tr" тогда
									если ПрочитаноСтрок=0 тогда
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[2].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[3].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[4].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[5].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[7].ТекстовоеСодержимое));
										ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[8].ТекстовоеСодержимое));
									иначе	                 
										если tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое="Всего:" тогда 
											прервать;
										КонецЕсли;           
										если tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое<>"1" тогда
											если tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое<>"" тогда
												нс=ТЗ.Добавить();
												нс[0]=tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое;
												нс[1]=tab_el.ДочерниеУзлы[2].ТекстовоеСодержимое;
												нс[2]=tab_el.ДочерниеУзлы[3].ТекстовоеСодержимое;
												нс[3]=tab_el.ДочерниеУзлы[4].ТекстовоеСодержимое;
												нс[4]=tab_el.ДочерниеУзлы[5].ТекстовоеСодержимое;
													нс[4]=СтрЗаменить(нс[4],",",".");
													нс[4]=СтрЗаменить(нс[4]," ","");
													если нс[4]="" тогда нс[4]="0";конецесли;
													нс[4]=Число(Формат(нс[4],"ЧГ=0"));												
												нс[5]=tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое;
												нс[6]=tab_el.ДочерниеУзлы[7].ТекстовоеСодержимое;
												нс[7]=tab_el.ДочерниеУзлы[8].ТекстовоеСодержимое;
													нс[7]=СтрЗаменить(нс[7],",",".");
													нс[7]=СтрЗаменить(нс[7]," ","");
													если нс[7]="" тогда нс[7]="0";конецесли;
													нс[7]=Число(Формат(нс[7],"ЧГ=0"));												
												
											конецесли;
										конецесли;
									конецесли;	
									ПрочитаноСтрок=ПрочитаноСтрок+1;
								конецесли;
							конеццикла;
							если ПрочитаноСтрок>0 тогда прервать;конецесли;
						конецесли;
						если ПрочитаноСтрок>0 тогда прервать;конецесли;
					конеццикла;
					если ПрочитаноСтрок>0 тогда прервать;конецесли;
				конеццикла;
				если ПрочитаноСтрок>0 тогда прервать;конецесли;
		конеццикла;	
	ФайлXML.Закрыть();
	Возврат ТЗ;

ФайлXML = Новый ЧтениеXML;

ФайлXML.ОткрытьФайл(КаталогВременныхФайлов()+"document.xml");

ПостроительDOMXML=Новый ПостроительDOM;

ДокументДом=ПостроительDOMXML.Прочитать(ФайлXML);

ПрочитаноСтрок=0;

для каждого document из ДокументДом.ДочерниеУзлы цикл

для каждого body из document.ДочерниеУзлы цикл

для каждого el из body.ДочерниеУзлы цикл

если el.ИмяУзла="w:tbl" тогда

для каждого tab_el из el.ДочерниеУзлы цикл

если tab_el.ИмяУзла="w:tr" тогда

если ПрочитаноСтрок=0 тогда

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[2].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[3].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[4].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[5].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[7].ТекстовоеСодержимое));

ТЗ.Колонки.Добавить(УбратьНеОбрабатываемыеСимволы(tab_el.ДочерниеУзлы[8].ТекстовоеСодержимое));

иначе

если tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое="Всего:" тогда

прервать;

КонецЕсли;

если tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое<>"1" тогда

если tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое<>"" тогда

нс=ТЗ.Добавить();

нс[0]=tab_el.ДочерниеУзлы[1].ТекстовоеСодержимое;

нс[1]=tab_el.ДочерниеУзлы[2].ТекстовоеСодержимое;

нс[2]=tab_el.ДочерниеУзлы[3].ТекстовоеСодержимое;

нс[3]=tab_el.ДочерниеУзлы[4].ТекстовоеСодержимое;

нс[4]=tab_el.ДочерниеУзлы[5].ТекстовоеСодержимое;

нс[4]=СтрЗаменить(нс[4],",",".");

нс[4]=СтрЗаменить(нс[4]," ","");

если нс[4]="" тогда нс[4]="0";конецесли;

нс[4]=Число(Формат(нс[4],"ЧГ=0"));

нс[5]=tab_el.ДочерниеУзлы[6].ТекстовоеСодержимое;

нс[6]=tab_el.ДочерниеУзлы[7].ТекстовоеСодержимое;

нс[7]=tab_el.ДочерниеУзлы[8].ТекстовоеСодержимое;

нс[7]=СтрЗаменить(нс[7],",",".");

нс[7]=СтрЗаменить(нс[7]," ","");

если нс[7]="" тогда нс[7]="0";конецесли;

нс[7]=Число(Формат(нс[7],"ЧГ=0"));

конецесли;

ПрочитаноСтрок=ПрочитаноСтрок+1;

конецесли;

конеццикла;

если ПрочитаноСтрок>0 тогда прервать;конецесли;

конецесли;

если ПрочитаноСтрок>0 тогда прервать;конецесли;

конеццикла;

если ПрочитаноСтрок>0 тогда прервать;конецесли;

конеццикла;

если ПрочитаноСтрок>0 тогда прервать;конецесли;

конеццикла;

ФайлXML.Закрыть();

Возврат ТЗ;

Оставить комментарий 1с, xml, извлечение таблицы, чтение docx

1 2 3 … 290 »

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