Готовые модули

Для всех
Модули для задач\Директория\Замена типов файлов
Модули для задач\Директория\Переименовать отмеченные
Модули для задач\Директория\Создать архив директории
Модули для задач\Директория\Заменить текст в файлах
Модули для задач\Диск\Заполнить диск пустыми файлами
Модули для действий\Текст\Итого по строкам
Модули для действий\Текст\Сортировать строки
Модули для действий\Текст\Свернуть строки
Модули для действий\Текст\Удалить пустые строки
Модули для действий\Список\Обработка списка
Модули для действий\Группа\Обработка группы
Defy
Модули для действий\Директория\Исправить имена файлов
Модули для действий\Задача\Создать скрипт для автовыполнения задачи
Faster
Модули для буфера\Разделить буфер обмена
Модули для буфера\Соединить буфер обмена
DBI
Модули для задач\БД 1С 8\Выгрузить базу данных
Модули для задач\БД 1С 8\Загрузить базу данных
Модули для действий\Директория\Проверить все обработки
Модули для действий\Модуль 1С\Проверить модуль
Запуск RDP
Модули для 1С\Обновление конфигураций 1С
Модули для 1С\Выгрузка конфигураций 1С в файлы
Модули для 1С\Выгрузка информационных баз 1С


Модули для задач\Директория\Переименовать отмеченные

Функция ПередОткрытием()
    
    Задача = Этот.Владелец.Параметр;
    Если (Задача=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) Тогда	
		Задача.Владелец.Обновить();
	Конец;
	Задача.Выбранный(Результаты);

Конец

  

http://moolex.ru