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

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

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

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

Архив zip

Архив = Новый ЧтениеZipФайла(ИмяАрхива);<br />
ВремИмя = ПолучитьИмяВременногоФайла(«»);<br />
СоздатьКаталог(ВремИмя);<br />
Архив.ИзвлечьВсе(ВремИмя, РежимВосстановленияПутейФайловZIP.Восстанавливать);</p>
<p>Архив = ЗаписьZipФайл(ИмяАрхива);<br />
Архив.Добавить(Файл);<br />
Архив.Закрыть();

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

Чтение = Новый ЧтениеТекста(Файл.ПолноеИмя, КодировкаТекста.ANSI);<br />
Текст = Чтение.Прочитать();<br />
Чтение.Закрыть();</p>
<p>Запись = Новый ЗаписьТекста(ИмяПлатежа, КодировкаТекста.ANSI);<br />
Запись.Записать(ОбщийТекст);<br />
Запись.Записать(СокрЛП(ОкончаниеОбщегоСчета)+Символы.ПС+Символы.ВК+»КонецФайла»);<br />
Запись.Закрыть();

Построение отчета (простое)

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

Как записать файл в кодировке UTF-8 без BOM(0xEF,0xBB,0xBF)

Функция ЗаписатьФайлВформате_UTF8_без_BOM(текст,полноеИмяФайла)<br />
// записываем в файл с символами BOM в начале файле<br />
ТекстовыйФайлUTF8_Bom = Новый ТекстовыйДокумент();<br />
ТекстовыйФайлUTF8_Bom.ДобавитьСтроку(текст);<br />
ТекстовыйФайлUTF8_Bom.Записать(полноеИмяФайла,»UTF-8″);<br />
// открываем файл и считываем символы после символов BOM<br />
Данные = Новый ДвоичныеДанные(полноеИмяФайла);<br />
Строка64=Base64Строка(Данные);<br />
Строка64=Прав(Строка64,СтрДлина(Строка64)-4);<br />
ДанныеНаЗапись=Base64Значение(Строка64);<br />
ДанныеНаЗапись.Записать(полноеИмяФайла);<br />
КонецФункции</p>
<p>//Или использовать  функцию ТекстовогоДокумента в поток<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>ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);

Сохранить картинку в другом формате

//Получим и сохраним Общую картинку из библиотеку картинок конфигурации<br />
ИмяКартинки = Метаданные.ОбщиеКартинки.OutlookExpress;<br />
ВыбраннаяКартинка = БиблиотекаКартинок[ИмяКартинки.Имя];<br />
// Сохраним полученную картинку в c:temp<br />
ВыбраннаяКартинка.Записать(«c:\\temp»+ИмяКартинки.Имя+».»+Строка(ВыбраннаяКартинка.Формат()));<br />
//А теперь сохраним картинку в другом формате PNG<br />
КартинкаPNG = ВыбраннаяКартинка.Преобразовать(ФорматКартинки.PNG);<br />
КартинкаPNG.Записать(«c:\\temp»+ИмяКартинки.Имя+».»+Строка(КартинкаPNG.Формат()));

Отбор по реквизиту и периоду

КурсыВалют = РегистрыСведений.КурсыВалют;<br />
НаборКурсов = КурсыВалют.СоздатьНаборЗаписей();<br />
Доллар = Справочники.Валюты.НайтиПоНаименованию(«USD»);<br />
НаборКурсов.Отбор.Валюта.Установить(Доллар);<br />
НаборКурсов.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));<br />
НаборКурсов.Прочитать();<br />
Если НаборКурсов.Количество() = 0 Тогда<br />
НовыйКурс = НаборКурсов.Добавить();<br />
НовыйКурс.Валюта = Доллар;<br />
НовыйКурс.Период = ТекущаяДата();<br />
ИначеЕсли НаборКурсов.Количество() = 1 Тогда<br />
НовыйКурс = НаборКурсов[0];<br />
Иначе<br />
Предупреждение(НСтр(«ru = ‘Курс валюты задается один раз в день.’;»<br />
+ » en = ‘Rate is set once a day.'»), 60);<br />
Возврат;<br />
КонецЕсли;