Menu
&НаКлиенте<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 /> Если Файл.Существует() Тогда<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 /> КонецПроцедуры
Режим = РежимДиалогаВыбораФайла.Сохранение;<br /> ДиалогСохраненияФайла = Новый ДиалогВыбораФайла(Режим);<br /> ДиалогСохраненияФайла.ПолноеИмяФайла = "Выгрузка_"+Формат(ПериодРегистрации,"ДФ=M_yy");<br /> Фильтр = "Текст(*.txt)|*.txt";<br /> ДиалогСохраненияФайла.Фильтр = Фильтр;<br /> ДиалогСохраненияФайла.МножественныйВыбор = Ложь;<br /> ДиалогСохраненияФайла.Заголовок = "Выберите файл";<br /> Если ДиалогСохраненияФайла.Выбрать() Тогда<br /> ПутьКФайлу = ДиалогСохраненияФайла.ПолноеИмяФайла;<br /> // выбрали файл, сохраняем в него данные<br /> // код...<br /> КонецЕсли;
//На форме есть поле (Путь к файлу), для кнопки Выбор (Событие начало выбора) пропишем процедуру выбора файла<br /> Процедура ВыборФайла(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)<br /> СтандартнаяОбработка=ложь;<br /> Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);<br /> Диалог.Заголовок = «Выберите файл»;<br /> Диалог.ПолноеИмяФайла = «»;<br /> Фильтр = «XLS (*.xls)|*.xls»;<br /> Диалог.Фильтр = Фильтр;<br /> Диалог.МножественныйВыбор = Ложь;<br /> Диалог.Каталог = «F:\»;<br /> Если Диалог.Выбрать() Тогда<br /> Элемент.значение = Диалог.ПолноеИмяФайла;<br /> КонецЕсли;<br /> КонецПроцедуры
Архив = Новый ЧтениеZipФайла(ИмяАрхива);<br /> ВремИмя = ПолучитьИмяВременногоФайла(«»);<br /> СоздатьКаталог(ВремИмя);<br /> Архив.ИзвлечьВсе(ВремИмя, РежимВосстановленияПутейФайловZIP.Восстанавливать);</p> <p>Архив = ЗаписьZipФайл(ИмяАрхива);<br /> Архив.Добавить(Файл);<br /> Архив.Закрыть();
Чтение = Новый ЧтениеТекста(Файл.ПолноеИмя, КодировкаТекста.ANSI);<br /> Текст = Чтение.Прочитать();<br /> Чтение.Закрыть();</p> <p>Запись = Новый ЗаписьТекста(ИмяПлатежа, КодировкаТекста.ANSI);<br /> Запись.Записать(ОбщийТекст);<br /> Запись.Записать(СокрЛП(ОкончаниеОбщегоСчета)+Символы.ПС+Символы.ВК+»КонецФайла»);<br /> Запись.Закрыть();