Создать архив zip

@Ermak27 · Регистрация: 16.01.2013

Студворк — интернет-сервис помощи студентам

Подскажите почему в архив попадают только последние файлы а не все

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
МассивФайлов = НайтиФайлы(Файл, "*.txt");
    Для каждого ТекущийФайл из МассивФайлов Цикл
        ПолноеИмяФайл = СтрЗаменить(ТекущийФайл.Имя, "_",Символы.ПС);
        ИмяФайлаTXT = СтрПолучитьСтроку(ПолноеИмяФайл, 1);
        ФайлПТЗZip = "ptz.zip";
        ФайлПИТZip = "pit.zip";
        ФайлСЕГZip = "seg.zip";
        Если ИмяФайлаTXT = "пит" Тогда
            ЗаписьZIP =  Новый ЗаписьZipФайла(Файл + ?(Прав(Файл,1)="\","","\") + ФайлПИТZip);
            ЗаписьZIP.Добавить(Файл + ?(Прав(Файл,1)="\","","\") + ТекущийФайл.Имя);
            ЗаписьZIP.Записать();
        ИначеЕсли ИмяФайлаTXT = "птз" Тогда
            ЗаписьZIP =  Новый ЗаписьZipФайла(Файл + ?(Прав(Файл,1)="\","","\") + ФайлПТЗZip);
            ЗаписьZIP.Добавить(Файл + ?(Прав(Файл,1)="\","","\") + ТекущийФайл.Имя);
            ЗаписьZIP.Записать();
        ИначеЕсли ИмяФайлаTXT = "сег" Тогда
            ЗаписьZIP =  Новый ЗаписьZipФайла(Файл + ?(Прав(Файл,1)="\","","\") + ФайлСЕГZip);
            ЗаписьZIP.Добавить(Файл + ?(Прав(Файл,1)="\","","\") + ТекущийФайл.Имя);
            ЗаписьZIP.Записать();
        Иначе
            Предупреждение("Ошибка!");  
        КонецЕсли;
 
    КонецЦикла;

@Ermak27 · 16.01.2014, 23:19 **[ТС]**

duk337, значит тоже самое и здесь нужно сделать

@Dethmontt · 16.01.2014, 23:20

Сообщение от Ermak27

duk337, я не понимаю вы пишете что новый создается один раз, но в нем прописывается имя файла и пароль, а у меня имя файла и пароль определяется по условию, как мне заранее добавить имя файла и пароль. мне не понятно это

ВАУ!!! Наконец то вопрос по делу =))

@Ermak27 · 16.01.2014, 23:20 **[ТС]**

Dethmontt, дак файл один только помещает

@duk337 · 16.01.2014, 23:22

Сообщение от Ermak27

а у меня имя файла и пароль определяется по условию

ну так и ТЗ.Свернуть() тоже по условию

Добавлено через 1 минуту

Сообщение от Ermak27

а у меня имя файла и пароль определяется по условию, как мне заранее добавить имя файла и пароль.

не зная условия?

@Ermak27 · 16.01.2014, 23:23 **[ТС]**

duk337, ок тогда буду записывать в тз

@Dethmontt · 16.01.2014, 23:24

duk337, у меня закралось такое чувство, что ОН вообще не понимает что такое ЦИКЛ

Добавлено через 1 минуту

Сообщение от Ermak27

Dethmontt, дак файл один только помещает

Подожди... Ты же сам написал:
мне нужно чтобы при нахождении значение пит или птз или сег создавались новые архив с этим название и помещал туда файлы начинающие с имени пит, птз и сег

@duk337 · 16.01.2014, 23:26

Не по теме:

ну да, у него процессор без регистров смещения стека

@Dethmontt · 16.01.2014, 23:29

Проход Цикла 1.
1.1 Создали новый архив
1.2 Поместили туда файл
1.3 Записали архив
Проход Цикла 2
2.1 Создали новый архив
2.2 Поместили туда файл
2.3 Записали архив (затерся архив в первом проходе цикла)
Проход Цикла 3
и т.д. (аналогично проходу в цикле 2)

Добавлено через 1 минуту
Ermak27, Что лишнее в этом цикле?

@Ermak27 · 16.01.2014, 23:36 **[ТС]**

Dethmontt, я уже запутался

@Dethmontt · 16.01.2014, 23:43

Сообщение от Ermak27

я уже запутался

это самые азы

@duk337 · 16.01.2014, 23:43

Не по теме:

Сообщение от Ermak27

я уже запутался

или "ещё"?

@Ermak27 · 17.01.2014, 00:06 **[ТС]**

че такое, записал все файлы в последний архив сег

1C
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
32
33
34
35
36
37
ТЗ = Новый ТаблицаЗначений;
    ТЗ.Колонки.Добавить("ИмяФайла",,"Имя файла");
    ТЗ.Колонки.Добавить("ПрефиксФайла",,"Префикс файла");
    ТЗ.Колонки.Добавить("ИмяАрхива",,"Имя архива");
    МассивФайлов = НайтиФайлы(Файл, "*.txt");
    Для каждого ТекущийФайл из МассивФайлов Цикл
        СтрокаТЗ = ТЗ.Добавить();
        ПолноеИмяФайл = СтрЗаменить(ТекущийФайл.Имя, "_",Символы.ПС);
        СтрокаТЗ.ИмяФайла = ТекущийФайл.Имя;
        СтрокаТЗ.ПрефиксФайла = СтрПолучитьСтроку(ПолноеИмяФайл, 1);
        Если СтрокаТЗ.ПрефиксФайла = "птз" Тогда
            СтрокаТЗ.ИмяАрхива = "ptz.zip";
        ИначеЕсли СтрокаТЗ.ПрефиксФайла = "пит" Тогда
            СтрокаТЗ.ИмяАрхива = "pit.zip";
        ИначеЕсли СтрокаТЗ.ПрефиксФайла = "сег" Тогда
            СтрокаТЗ.ИмяАрхива = "seg.zip";
        Иначе
            Предупреждение("Ошибка в имени архива!"); 
            Возврат;
        КонецЕсли; 
    КонецЦикла;
    ТЗ.Сортировать("ПрефиксФайла");
    ЗаписьZIP =  Новый ЗаписьZipФайла(Файл + ?(Прав(Файл,1)="\","","\") + СтрокаТЗ.ИмяАрхива);
    Для каждого Стр Из ТЗ Цикл
        
        Если Стр.ПрефиксФайла = "птз" Тогда
            ЗаписьZIP.Добавить(Файл + ?(Прав(Файл,1)="\","","\") + Стр.ИмяФайла);
        ИначеЕсли Стр.ПрефиксФайла = "пит" Тогда
            ЗаписьZIP.Добавить(Файл + ?(Прав(Файл,1)="\","","\") + Стр.ИмяФайла);
        ИначеЕсли Стр.ПрефиксФайла = "сег" Тогда
            ЗаписьZIP.Добавить(Файл + ?(Прав(Файл,1)="\","","\") + Стр.ИмяФайла);
        Иначе
            Предупреждение("Ошибка!");
            Возврат;
        КонецЕсли;
    КонецЦикла;
    ЗаписьZIP.Записать();

@Dethmontt · 17.01.2014, 00:11

Посмотри на свой код еще раз и скажи сколько архивов ты создаешь в этом коде?

(Подсказка тут - https://www.cyberforum.ru/post5649498.html)
(И тут - https://www.cyberforum.ru/post5650397.html)

Добавлено через 45 секунд

Не по теме:

Ребус блин... Одно и тоже повторяем 4ую страницу...

@Ermak27 · 17.01.2014, 00:15 **[ТС]**

Dethmontt, один архив создаю

@Dethmontt · 17.01.2014, 00:20

Сообщение от Ermak27

че такое, записал все файлы в последний архив сег

Вопрос отпал?

@Ermak27 · 17.01.2014, 00:30 **[ТС]**

Dethmontt, все эта жопа, я уже не могу понять почему он не создает архивы

Добавлено через 31 секунду

Добавлено через 48 секунд
Я так и не могу понять как запихать файлы в архивы!!!!

@Dethmontt · 17.01.2014, 00:34

Сообщение от Ermak27

уже не могу понять почему он не создает архивы

Создает, сколько архивов ты написал создавать столько программа и создает... (еще раз "Новый")

Добавлено через 1 минуту

Сообщение от Ermak27

Я так и не могу понять как запихать файлы в архивы!!!!

Рано еще... Ты еще не понял как архивы создать правильно и нужное количество (пока можно пустые)

@duk337 · 17.01.2014, 00:36

Поразительно! Предыдущую тему добили - и 100 постов не прошло. А тут то же самое!!!

ТЗ
копия
свернуть
по копии цикл
создание архива
по ТЗ отбор
цикл по отбору
запись архива.

На рекорд идём?

@Ermak27 · 17.01.2014, 01:10 **[ТС]**

Dethmontt, вот создаю три архива

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Если Стр.ПрефиксФайла = "птз" Тогда
            ЗаписьZIP.Добавить(Файл + ?(Прав(Файл,1)="\","","\") + Стр.ИмяФайла);
            ЗаписьZIP.Записать();
        ИначеЕсли Стр.ПрефиксФайла = "пит" Тогда
            ЗаписьZIP =  Новый ЗаписьZipФайла(Файл + ?(Прав(Файл,1)="\","","\") + Стр.ИмяАрхива);
            ЗаписьZIP.Добавить(Файл + ?(Прав(Файл,1)="\","","\") + Стр.ИмяФайла);
            ЗаписьZIP.Записать();
            
        ИначеЕсли Стр.ПрефиксФайла = "сег" Тогда
            ЗаписьZIP =  Новый ЗаписьZipФайла(Файл + ?(Прав(Файл,1)="\","","\") + Стр.ИмяАрхива);
            ЗаписьZIP.Добавить(Файл + ?(Прав(Файл,1)="\","","\") + Стр.ИмяФайла);
            ЗаписьZIP.Записать();
            
        Иначе
            Предупреждение("Ошибка!");
            Возврат;
        КонецЕсли;

они создаются и записывает последние файлы только

Добавлено через 7 минут
duk337, так вы имели ввиду

1C
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
32
33
34
    ТЗ = Новый ТаблицаЗначений;
    ТЗ.Колонки.Добавить("ИмяФайла",,"Имя файла");
    ТЗ.Колонки.Добавить("ПрефиксФайла",,"Префикс файла");
    ТЗ.Колонки.Добавить("ИмяАрхива",,"Имя архива");
    МассивФайлов = НайтиФайлы(Файл, "*.txt");
    Для каждого ТекущийФайл из МассивФайлов Цикл
        СтрокаТЗ = ТЗ.Добавить();
        ПолноеИмяФайл = СтрЗаменить(ТекущийФайл.Имя, "_",Символы.ПС);
        СтрокаТЗ.ИмяФайла = ТекущийФайл.Имя;
        СтрокаТЗ.ПрефиксФайла = СтрПолучитьСтроку(ПолноеИмяФайл, 1);
        Если СтрокаТЗ.ПрефиксФайла = "птз" Тогда
            СтрокаТЗ.ИмяАрхива = "ptz.zip";
        ИначеЕсли СтрокаТЗ.ПрефиксФайла = "пит" Тогда
            СтрокаТЗ.ИмяАрхива = "pit.zip";
        ИначеЕсли СтрокаТЗ.ПрефиксФайла = "сег" Тогда
            СтрокаТЗ.ИмяАрхива = "seg.zip";
        Иначе
            Предупреждение("Ошибка в имени архива!"); 
            Возврат;
        КонецЕсли; 
        КопияТаблицы = ТЗ.Сортировать("ПрефиксФайла");
        КопияТаблицы.Свернуть("ПрефиксФайла");
        Для каждого Стр Из КопияТаблицы Цикл
            ЗаписьZIP =  Новый ЗаписьZipФайла(Файл + ?(Прав(Файл,1)="\","","\") + Стр.ИмяАрхива);
            СтруктураОтбор = Новый Структура("ПрефиксФайла",Стр.ПрефиксФайла);
            Строки = ТЗ.НайтиСтроки(СтруктураОтбор);
            Для каждого кСтр Из Строки Цикл
                Для каждого кол Из ТЗ.Колонки Цикл
                    ЗаписьZIP.Добавить(Файл + ?(Прав(Файл,1)="\","","\") + кСтр.ИмяФайла);  
                КонецЦикла; 
                ЗаписьZIP.Записать();
            КонецЦикла;
        КонецЦикла;
         КонецЦикла;

выдает почему то ошибку
{Форма.Форма.Форма(879)}: Обращение к процедуре объекта как к функции (Сортировать)
КопияТаблицы = ТЗ.Сортировать("ПрефиксФайла");

@Dethmontt · 17.01.2014, 01:18

Жесть... Мои нервы не выдержали

1C
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
32
33
 
   СоответствиеФайловАрхивам = Новый Соответствие;
   СоответствиеФайловАрхивам.Вставить("птз", Новый Структура("Архив, КоличествоФайлов",Новый ЗаписьZipФайла(Файл + ?(Прав(Файл,1)="\","","\")+"ptz.zip"), 0));
   СоответствиеФайловАрхивам.Вставить("пит", Новый Структура("Архив, КоличествоФайлов",Новый ЗаписьZipФайла(Файл + ?(Прав(Файл,1)="\","","\")+"pit.zip"), 0));
   СоответствиеФайловАрхивам.Вставить("сег", Новый Структура("Архив, КоличествоФайлов",Новый ЗаписьZipФайла(Файл + ?(Прав(Файл,1)="\","","\")+"seg.zip"), 0));
   
   МассивФайлов = НайтиФайлы(Файл, "*.txt");
   
   Для каждого ТекущийФайл Из МассивФайлов Цикл
       
        ПолноеИмяФайл = СтрЗаменить(ТекущийФайл.Имя, "_",Символы.ПС);
        ПрефиксФайла = СтрПолучитьСтроку(ПолноеИмяФайл, 1);
        ПрефиксФайла = НРег(ПрефиксФайла);
        
        СтруктураАрхива = СоответствиеФайловАрхивам[ПрефиксФайла];
        Если СтруктураАрхива <> Неопределено Тогда
            
            СтруктураАрхива.Архив.Добавить(ТекущийФайл.ПолноеИмя);
            СтруктураАрхива.КоличествоФайлов = СтруктураАрхива.КоличествоФайлов + 1;
            
        КонецЕсли; 
        
    КонецЦикла;
    
    Для каждого гЭлементы Из СоответствиеФайловАрхивам Цикл
        
        Если гЭлементы.Значение.КоличествоФайлов > 0 Тогда
            
            гЭлементы.Значение.Архив.Записать();
            
        КонецЕсли; 
        
    КонецЦикла;

Новые блоги и статьи Все статьи Все блоги /
Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026
Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	16.01.2014, 23:19 [ТС]
	duk337, значит тоже самое и здесь нужно сделать 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	16.01.2014, 23:20 [ТС]
	Dethmontt, дак файл один только помещает 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	16.01.2014, 23:23 [ТС]
	duk337, ок тогда буду записывать в тз 0

@duk337
	16.01.2014, 23:26
	Не по теме: ну да, у него процессор без регистров смещения стека 0

@Dethmontt Модератор 4032 / 2977 / 594 Регистрация: 10.03.2011 Сообщений: 11,701 Записей в блоге: 1
	16.01.2014, 23:29
	Проход Цикла 1. 1.1 Создали новый архив 1.2 Поместили туда файл 1.3 Записали архив Проход Цикла 2 2.1 Создали новый архив 2.2 Поместили туда файл 2.3 Записали архив (затерся архив в первом проходе цикла) Проход Цикла 3 и т.д. (аналогично проходу в цикле 2) Добавлено через 1 минуту Ermak27, Что лишнее в этом цикле? 1

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	16.01.2014, 23:36 [ТС]
	Dethmontt, я уже запутался 0

@Dethmontt Модератор 4032 / 2977 / 594 Регистрация: 10.03.2011 Сообщений: 11,701 Записей в блоге: 1
	17.01.2014, 00:11
	Посмотри на свой код еще раз и скажи сколько архивов ты создаешь в этом коде? (Подсказка тут - https://www.cyberforum.ru/post5649498.html) (И тут - https://www.cyberforum.ru/post5650397.html) Добавлено через 45 секунд Не по теме: Ребус блин... Одно и тоже повторяем 4ую страницу... 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	17.01.2014, 00:15 [ТС]
	Dethmontt, один архив создаю 0

@Ermak27 4 / 4 / 0 Регистрация: 16.01.2013 Сообщений: 1,228
	17.01.2014, 00:30 [ТС]
	Dethmontt, все эта жопа, я уже не могу понять почему он не создает архивы Добавлено через 31 секунду Добавлено через 48 секунд Я так и не могу понять как запихать файлы в архивы!!!! 0

@duk337 2956 / 1768 / 84 Регистрация: 03.11.2011 Сообщений: 8,280
	17.01.2014, 00:36
	Поразительно! Предыдущую тему добили - и 100 постов не прошло. А тут то же самое!!! ТЗ копия свернуть по копии цикл создание архива по ТЗ отбор цикл по отбору запись архива. На рекорд идём? 1