Модули для задач\Директория\Переименовать отмеченные
Функция ПередОткрытием()
Задача = Этот.Владелец.Параметр;
Если (Задача=0) Тогда Возврат 0; Конец;
Параметры = Задача.Определить(0, Объекты.Список, Свойства.Наименование, "Параметры");
Параметры.Колонки.Определить(Свойства.Наименование, 0, 150, 1, 1);
Параметры.Колонки.Определить(Свойства.Значение, 0, 150, 1, 1);
Параметры.'Отключить канву объекта' = 1;
П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Шаблон");
Если (П.Новый()) Тогда
П.Значение = "Фото-???.jpg";
П.Отмечен = 1;
Конец;
П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Первый");
Если (П.Новый()) Тогда
П.Значение = "001";
П.Отмечен = 1;
Конец;
Задача.Выбранный(Параметры);
Конец
Функция Выполнить()
// Переименовывает отмеченные файлы по заданному шаблону
Задача = Этот.Владелец.Параметр;
Если (Задача=0) Тогда Возврат 0; Конец;
Параметры = Задача.Определить(0, Объекты.Список, Свойства.Наименование, "Параметры");
Шаблон = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Шаблон");
Первый = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Первый");
Результаты = Задача.Определить(0, Объекты.Список, Свойства.Наименование, "Результат");
Результаты.Колонки.Определить(Свойства.'Путь к файлу', 0, 350, 1, 0);
Результаты.'Отключить канву объекта' = 1;
Результаты.'Отключить отметку' = 1;
Результаты.Очистить();
вставка = Первый.Значение;
формат = Строки.Слева("000000000000",Строки.Длина(вставка));
Для Объект Из Задача.Владелец Цикл
Если ((Объект.Отмечен=1)И(Объект.'Это файл'=1)) Тогда
ПутьКФайлуБыл = Объект.'Путь к файлу';
ПутьКФайлуСтал = Объект.Путь + Символы.ОС + Строки.Заменить(Шаблон.Значение,"???",вставка);
//Сообщить(ПутьКФайлуСтал);
рез = Файлы.Переименовать(ПутьКФайлуБыл,ПутьКФайлуСтал);
Если (рез=1) Тогда
Результат = Результаты.Добавить(Объекты.Объект);
Результат.'Путь к файлу' = ПутьКФайлуСтал;
Конец;
вставка = Числа.Строка(Числа.Число(вставка)+1,формат);
Конец;
Конец;
Если (Результаты.Количество()>0) Тогда
Задача.Владелец.Обновить();
Конец;
Задача.Выбранный(Результаты);
Конец