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

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


Модули для действий\Модуль 1С\Проверить модуль

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

Функция ПроверитьТекстФункции(Ф1С, СписокИмен)
    
    Слово1     = Слова.Определить("ПодключитьОбработчикОжидания");
    Слово2     = Слова.Определить("ОписаниеОповещения");
    Скобка     = Слова.Определить("(");
    МассивСлов = Слова.Массив(Ф1С.Текст);
    поз        = 0;
    Для Слово Из МассивСлов Цикл
        Если (Слово=Слово1) Тогда
            имя = МассивСлов.Получить(поз+3);
            Если (СписокИмен.Найти(имя)=-1) Тогда
                Сообщить("Не найдена функция - "+Слова.Строка(имя));
            Конец;
        Конец;
        
        Если (Слово=Слово2) Тогда
            Если (МассивСлов.Получить(поз+1)=Скобка) Тогда
                имя = МассивСлов.Получить(поз+3);
                Если (СписокИмен.Найти(имя)=-1) Тогда
                    Сообщить("Не найдена функция - "+Слова.Строка(имя));
                Конец;
            Конец;
        Конец;
        поз = поз + 1;
    Конец;
    
Конец
  

http://moolex.ru