Книга знаний

1С:Предприятие / Приемы программирования / Файловая система

Работа с файлами ZIP в 1С 8.2

Показано создание файла zip при помощи ЗаписьZipФайла и чтение файла zip при помощи ЧтениеZIPФайла. Создает в корне диска c:\ файлы "test_zip.txt", "test_zip.zip" и подпапку "test_zip_temp" для распакованного архива.romix
Последняя редакция №0 от 31.05.10
URL: http://kb.mista.ru/article.php?id=792

Ключевые слова: zip, ЗаписьZipФайла, ЧтениеZIPФайла


&НаКлиенте
Процедура Команда1(Команда)
    // Вставить содержимое обработчика.
    
    стрПапка="c:\";
    ИмяФайлаTxt="test_zip.txt";
    ИмяФайлаZip="test_zip.zip";
    ВременнаяПапка=стрПапка+"test_zip_temp";
    
    Текст = Новый ТекстовыйДокумент;
    Текст.ДобавитьСтроку("Привет");
    Текст.Записать(стрПапка+ИмяФайлаTxt,КодировкаТекста.ANSI);
    
    ЗаписьZIP =  Новый ЗаписьZipФайла(стрПапка+ИмяФайлаZip);     
    ЗаписьZIP.Добавить(стрПапка+ИмяФайлаTxt);
    ЗаписьZIP.Записать();
    
    СоздатьКаталог(ВременнаяПапка);
    
    ФайлАрхива = Новый ЧтениеZIPФайла(стрПапка+ИмяФайлаZip); 
    ФайлАрхива.ИзвлечьВсе(ВременнаяПапка, РежимВосстановленияПутейФайловZIP.Восстанавливать); 
    ФайлАрхива.Закрыть();     
    
    
КонецПроцедуры

Описание | Рубрикатор | Поиск | ТелепатБот | Захваченные статьи | Установки | Форум
© Станислав Митичкин (Волшебник), 2005-2024 | Mista.ru

Яндекс.Метрика