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

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


Модули для задач\Директория\Заменить текст в файлах

Функция ПередОткрытием()
    
    Задача = Этот.Владелец.Параметр;
    Если (Задача=0) Тогда Возврат 0; Конец;
	
	Задача.Описание = "Замена текста в отмеченных файлах по маске";
	
    Параметры       = Задача.Определить(0, Объекты.Список, Свойства.Наименование, "Параметры");
    Параметры.Колонки.Определить(Свойства.Наименование, 0, 150, 1, 0);
    Параметры.Колонки.Определить(Свойства.Значение,     0, 200, 1, 1);
    Параметры.'Отключить канву объекта' = 1;
	
	П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Строка поиска");
	Если (П.Новый()) Тогда
	    П.Отмечен  = 1;
	    П.Значение = "Привет";
	Конец;	
	П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Заменить на");
	Если (П.Новый()) Тогда
	    П.Отмечен  = 1;
	    П.Значение = "Добрый день";
	Конец;	
	П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Учесть регистр");
	Если (П.Новый()) Тогда
	    П.Отмечен  = 0;
	Конец;	
    П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Только целые слова");
	Если (П.Новый()) Тогда
	    П.Отмечен  = 0;
	Конец;	
	П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Маска включения в строке");
	Если (П.Новый()) Тогда
	    П.Отмечен  = 0;
	    П.Значение = "*как дела*";
	Конец;
	П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Маска исключения в строке");
	Если (П.Новый()) Тогда
	    П.Отмечен  = 0;
	    П.Значение = "*всем*";
	Конец;
	П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Кодировка");
	Если (П.Новый()) Тогда
	    П.Отмечен  = 0;
	    П.Значение = "UTF8";
	Конец;	

	Задача.Выбранный(Параметры);
	
Конец

Функция Выполнить()

    // Замена текста в отмеченных файлах по маске
	
    Задача = Этот.Владелец.Параметр;
    Если (Задача=0) Тогда Возврат 0; Конец;
	
    Параметры  = Задача.Определить(0, Объекты.Список, Свойства.Наименование, "Параметры");
	
    Результаты = Задача.Определить(0, Объекты.Список, Свойства.Наименование, "Результат");
    Результаты.Колонки.Определить(Свойства.'Путь к файлу', 0, 350, 1, 0);
    Результаты.Колонки.Определить(Свойства.Строка,         0, 350, 1, 0);
    Результаты.Колонки.Определить(Свойства.Результат,      0, 350, 1, 0);
    Результаты.'Отключить канву объекта' = 1;
	Результаты.'Отключить отметку'       = 1;
	Результаты.Очистить();
	
	П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Строка поиска");
	СтрПоиска = П.Значение;
	П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Заменить на");
	СтрЗамены = П.Значение;
	П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Учесть регистр");
	УчестьРегистр = П.Отмечен;
    П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Только целые слова");
	ТолькоЦелые = П.Отмечен;
	П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Маска включения в строке");
	МаскаВключения = "";
	Если (П.Отмечен) Тогда МаскаВключения = П.Значение; Конец;
	П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Маска исключения в строке");
	МаскаИсключения = "";
	Если (П.Отмечен) Тогда МаскаИсключения = П.Значение; Конец;
	П = Параметры.Определить(0, Объекты.Объект, Свойства.Наименование, "Кодировка");
	Кодировка = ""; // по умолчанию ANSI;
	Если (П.Отмечен) Тогда Кодировка = П.Значение; Конец;
	
    Для Объект Из Задача.Владелец Цикл
        Если ((Объект.Отмечен=1)И(Объект.'Это файл'=1)) Тогда
		    есть_замена = 0;
		    Текст1      = "";
			Текст2      = "";
			Текст1.Прочитать(Объект.'Путь к файлу',Кодировка);
			Для Стр1 Из Текст1 Цикл
			    Сообщить(Стр1);
                Если (Строки.Найти(Стр1,СтрПоиска)>0) Тогда
		            есть_замена = 1;
					Стр2 = Строки.Заменить(Стр1,СтрПоиска,СтрЗамены);
					Текст2.Добавить(Стр2);
					
			  	    Результат                = Результаты.Добавить(Объекты.Объект);
                    Результат.'Путь к файлу' = Объект.'Путь к файлу';
                    Результат.Строка         = Стр1;
                    Результат.Результат      = Стр2;
				Иначе
                    Текст2.Добавить(Стр1);
				Конец;
			Конец;
            Если (есть_замена=1) Тогда
			    Текст2.Записать(Объект.'Путь к файлу',Кодировка);
			Конец;
        Конец;
	Конец;
	Задача.Обновить();
	Задача.Выбранный(Результаты);
	
Конец

  

http://moolex.ru