Записать текстовый файл

Текст = Новый ЗаписьТекста(«ФайлЗаписи.txt», КодировкаТекста.ANSI);<br />
Текст.ЗаписатьСтроку(«Добро в этот прекрасный мир!»);<br />
Текст.ЗаписатьСтроку(«Спасибо за наше капиталистическое настоящее!»);<br />
Текст.Закрыть();

Читаем текстовый файла построчно

Текст = Новый ЧтениеТекста(«Имя секретного файла с данными», КодировкаТекста.UTF8);<br />
Стр = Текст.ПрочитатьСтроку();<br />
Пока Стр = Неопределено Цикл // строки читаются до символа перевода строки<br />
Сообщить(Стр);<br />
Стр = Текст.ПрочитатьСтроку();<br />
КонецЦикла;

Раскрасить табличную часть УФ

ЭтаФорма.УсловноеОформление.Элементы.Очистить();<br />
ЭлементУсловногоОформления = УсловноеОформление.Элементы.Добавить();<br />
ОформляемоеПоле = ЭлементУсловногоОформления.Поля.Элементы.Добавить();<br />
ОформляемоеПоле.Поле = Новый ПолеКомпоновкиДанных(«Товары»);<br />
ЭлементОтбора = ЭлементУсловногоОформления.Отбор.Элементы.Добавить(Тип(«ЭлементОтбораКомпоновкиДанных»));<br />
ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(«Объект.Товары.НеПорезан»);<br />
ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;<br />
ЭлементОтбора.ПравоеЗначение = Истина;<br />
ЭлементУсловногоОформления.Оформление.УстановитьЗначениеПараметра(«ЦветТекста», WebЦвета.Красный);

Выбрать из списка несколько элементов УФ

&НаКлиенте<br />
Процедура ВыбратьЗнакЗодиака(Команда)<br />
Личности = Новый СписокЗначений;<br />
Личности.Добавить(«Он»);<br />
Личности.Добавить(«Она»);<br />
Личности.Добавить(«Свободная неопределившиеся личность»);</p>
<p>ОповещениеПослеВыбора = Новый ОписаниеОповещения(«СообщитьРезультат», ЭтотОбъект);<br />
Личности.ПоказатьОтметкуЭлементов(ОповещениеПослеВыбора, «Выберите свободу»);<br />
КонецПроцедуры</p>
<p>&НаКлиенте<br />
Процедура СообщитьРезультат(Элементы, Параметры) Экспорт<br />
Если Элементы <> Неопределено Тогда<br />
Для Каждого Личность Из Элементы Цикл<br />
Если Личность.Пометка Тогда<br />
Сообщить(Личность.Значение);<br />
КонецЕсли;<br />
КонецЦикла;<br />
КонецЕсли;<br />
КонецПроцедуры

Выбрать из списка УФ

&НаКлиенте<br />
Процедура ЗагрузитьИзСписка(Команда)<br />
Список = Новый СписокЗначений;<br />
Список.Добавить(«Agender»);<br />
Список.Добавить(«Androgyne»);<br />
Список.Добавить(«Androgynous»);<br />
Список.Добавить(«Bigender»);<br />
Список.Добавить(«Cis»);<br />
Список.Добавить(«Cis Female»);<br />
Список.Добавить(«Cis Male»);<br />
Список.Добавить(«Cis Woman»);<br />
Список.Добавить(«Cis Men»);<br />
Список.Добавить(«Cisgender»);<br />
Список.Добавить(«Other»);<br />
Список.Добавить(«Neither»);<br />
Список.Добавить(«Neutrois»);<br />
Список.Добавить(«Non-binary…»);</p>
<p>Оп = Новый ОписаниеОповещения(«ПослеВыбораЗагрузитьИзСписка», ЭтотОбъект);<br />
ПоказатьВыборИзСписка(оп, Список, Элементы.кнпЗагрузитьИзСписка);<br />
КонецПроцедуры</p>
<p>&НаКлиенте<br />
Процедура ПослеВыбораЗагрузитьИзСписка(ВыбранныйЭлемент,Доп) Экспорт<br />
Если ВыбранныйЭлемент <> Неопределено Тогда<br />
Вид = ВыбранныйЭлемент.Значение;<br />
Если ЗначениеЗаполнено(Вид) Тогда<br />
ЗагрузитьИзСпискаНаСервере(Вид);<br />
Элементы.ТаблицаТестов.Обновить();<br />
КонецЕсли;<br />
КонецЕсли;<br />
КонецПроцедуры</p>
<p>&НаСервере<br />
Процедура ЗагрузитьИзСпискаНаСервере(Вид)<br />
ОбъектСервера = РеквизитФормыВЗначение(«Объект»);<br />
//работаем с сервера<br />
КонецПроцедуры

Запись файла на клиенте УФ

&НаКлиенте<br />
Процедура СохранитьФайл(Команда)<br />
Режим = РежимДиалогаВыбораФайла.Сохранение;<br />
ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим);<br />
Фильтр = «Текст(*.txt)|*.txt»;<br />
ДиалогСохраненияФайла.Фильтр = Фильтр;<br />
ДиалогСохраненияФайла.МножественныйВыбор = Ложь;<br />
ДиалогСохраненияФайла.Заголовок = «Выберите файл для сохранения»;<br />
ДиалогСохраненияФайла.Показать(Новый ОписаниеОповещения(«СохранитьФайлЗавершение», ЭтаФорма, Новый Структура(«ДиалогСохраненияФайла», ДиалогСохраненияФайла)));<br />
КонецПроцедуры</p>
<p>&НаКлиенте<br />
Процедура СохранитьФайлЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт<br />
ДиалогСохраненияФайла = ДополнительныеПараметры.ДиалогСохраненияФайла;<br />
Если (ВыбранныеФайлы <> Неопределено) Тогда</p>
<p>//работаем с массивом ВыбранныеФайлы</p>
<p>//или протаскиваем через Доп параметры<br />
ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла;</p>
<p>КонецЕсли;<br />
КонецПроцедуры<br />

Загрузка файла на клиенте УФ

&НаКлиенте<br />
Процедура ЗагрузитьФайл(Команда)<br />
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);<br />
Диалог.Заголовок = «Выберите файл для загрузки»;<br />
Фильтр = «TXT (*.txt)|*.txt»;<br />
Диалог.Фильтр = Фильтр;<br />
Диалог.МножественныйВыбор = Ложь;<br />
Диалог.Показать(Новый ОписаниеОповещения(«ЗагрузитьФайлЗавершение», ЭтаФорма, Новый Структура(«Диалог», Диалог)));<br />
КонецПроцедуры</p>
<p>&НаКлиенте<br />
Процедура ЗагрузитьФайлЗавершение(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт<br />
Диалог = ДополнительныеПараметры.Диалог;<br />
Если (ВыбранныеФайлы <> Неопределено) Тогда<br />
//работа с файлами по имени из массива ВыбранныеФайлы</p>
<p>//или протаскиваем из диалога<br />
Чтение = Новый ЧтениеТекста(Диалог.ПолноеИмяФайла);</p>
<p>КонецЕсли;<br />
КонецПроцедуры

Проверка существования файла на клиенте УФ

&НаКлиенте<br />
Процедура ПроверкаСуществованияФайла(Команда)<br />
Файл = Новый Файл(«Секретные данные.xls»);<br />
Оповещение = Новый ОписаниеОповещения(«ПослеНачалаПроверки», ЭтотОбъект);<br />
Файл.НачатьПроверкуСуществования(Оповещение);<br />
КонецПроцедуры</p>
<p>&НаКлиенте<br />
Процедура ПослеНачалаПроверки( Существует, ДопПараметры)<br />
Если Существует Тогда<br />
//Надо тырить, не забудьте передать имя файла<br />
КонецЕсли;<br />
КонецПроцедуры

Обход группировок СКД

//Вместо: ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);<br />
ПроцессорВывода.НачатьВывод();<br />
Пока Истина Цикл<br />
ЭлементРезультатаКомпоновкиДанных = ПроцессорКомпоновкиДанных.Следующий();</p>
<p>Если ЭлементРезультатаКомпоновкиДанных = Неопределено Тогда<br />
Прервать;<br />
КонецЕсли;</p>
<p>ПроцессорВывода.ВывестиЭлемент(ЭлементРезультатаКомпоновкиДанных);<br />
Если ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров.Количество() > 0 Тогда<br />
Если ТипЗнч(ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров.П1.Значение) = Тип(«СправочникСсылка.НоменклатурныеГруппы») Тогда<br />
// группировка по номенклатурным группам<br />
ИначеЕсли ТипЗнч(ЭлементРезультатаКомпоновкиДанных.ЗначенияПараметров.П1.Значение) = Тип(«СправочникСсылка.ФизическиеЛица») Тогда<br />
// группировка по физическим лицам<br />
КонецЕсли;<br />
КонецЕсли;<br />
КонецЦикла;<br />
ПроцессорВывода.ЗакончитьВывод();

Смотрим классический код запуска СКД

//Получаем схему из макета<br />
СхемаКомпоновкиДанных = ПолучитьМакет(«ОтчетКомпановка»);</p>
<p>//Из схемы возьмем настройки по умолчанию<br />
Настройки = СхемаКомпоновкиДанных.НастройкиПоУмолчанию;</p>
<p>//Помещаем в переменную данные о расшифровке данных<br />
ДанныеРасшифровки = Новый ДанныеРасшифровкиКомпоновкиДанных;</p>
<p>//Формируем макет, с помощью компоновщика макета<br />
КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;</p>
<p>//Передаем в макет компоновки схему, настройки и данные расшифровки<br />
МакетКомпоновки = КомпоновщикМакета.Выполнить(СхемаКомпоновкиДанных, Настройки, ДанныеРасшифровки);</p>
<p>//Выполним компоновку с помощью процессора компоновки<br />
ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;<br />
ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеНаборыДанных, ДанныеРасшифровки);</p>
<p>//Очищаем поле табличного документа<br />
Результат = ЭлементыФормы.ТабОтчет;<br />
Результат.Очистить();</p>
<p>//Выводим результат в табличный документ<br />
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;<br />
ПроцессорВывода.УстановитьДокумент(Результат);</p>
<p>ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);