Печать

[asdf8 [?]]

AutoIt: 3.
Версия: 3.3.6.1-3.3.8.0

Категория: Инструменты и помощь по AutoIt

Описание:

Скрипт был сделан как аналог "Organize Includes" и имеет следующие важные отличия:

• Более корректные результаты работы.
  
• Includes Helper подбирает минимальное количество необходимых включаемых файлов.
  
• Отсутствует графический интерфейс - результаты работы выводятся в консоль SciTE.
  
• При вставке результатов в исходный код сохраняется история изменений файла (в редакторе), а также закладки и фолдинг.
  

Пример подключения к SciTE (файл "au3.properties")

Код: [Выделить]

command.37.*.au3="$(autoit3dir)\autoit3.exe" "$(SciteDefaultHome)\IncludesHelper\IncludesHelper.au3" "$(FilePath)"
command.name.37.*.au3=Includes Helper
command.save.before.37.*.au3=1
command.is.filter.37.*.au3=1
command.shortcut.37.*.au3=Ctrl+Enter

Настройки (файл "IncludesHelper.ini")

Код: [Выделить]

ShowOptimInfo=1
:показывать минимальное количество необходимых включаемых файлов (1 по умолчанию)
ShowDetals=0
:показывать все значения и соответствующие им внешние файлы (0 по умолчанию)
ResultToSource=1
:вставить результат в исходный код (1 по умолчанию)

Горячие клавиши:
   Ctrl+Enter - запуск
   Esc - выход

Примечание:
Значения указанные как строка в функциях GUIRegisterMsg, AdlibRegister и т. д. - обрабатываются только для явно заданных значений, без использования переменных и выражений.
В противном случае выводится предупреждение в консоль.

История версий:

1.4:
- Существенно увеличено быстродействие для 32-битных операционных систем.
1.3:
- Увеличена скорость обработки данных.
1.2.3:
- Добавлена обработка значений, указанных как строка в функциях GUIRegisterMsg, AdlibRegister и т. д. (только для явно заданных значений, без использования переменных и выражений)
- Добавлено сжатие базы данных (только для NTFS)
- Незначительные изменения
1.2.1:
- Исправлено: не производился поиск для некоторых данных (спасибо wakillon).
1.2:
- Исправлена ошибка вставки данных в файлы не требующих внешних файлов.
1.1.2:
- Исправлена ошибка вставки данных в некоторые файлы.
1.1.1:
- Исправлена ошибка обновления базы данных при наличии в папке "Include" файлов без функций, глобальных констант и переменных (спасибо madmasles).
- Добавлены горячие клавиши.
- Изменение окна прогресса.
1.1:
- Добавлена возможность вставки реультата в исходный код.
- Настройки выведены в ini-файл.
- Мелкие исправления.

Источник: Includes Helper
Автор(ы): asdf8

[madmasles [?]]

Только у меня база данных создается при каждом запуске?

[asdf8 [?]]

Только у меня база данных создается при каждом запуске?

По идее база должна создаваться при первом запуске или при изменениях в папке "Include" (добавление/удаление/изменение файлов).
Может быть что-то меняет атрибуты времени последнего редактирования файлов  в папке "Include"?

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

[madmasles [?]]

asdf8  [?]

Может быть что-то меняет атрибуты времени последнего редактирования файлов  в папке "Include"?
Или, может быть, нет прав для записи файлов в папке скрипта.

Время последнего доступа ничего не меняет. Права все есть.
Подряд запускаю на проверку один и тот же файл дважды и каждый раз довольно долго создается база данных. В папке "..\SciTE\IncludesHelper" файл IncludesHelper.dat уже есть. 

[asdf8 [?]]

madmasles

Попробуй пожалуйста  временно заменить одну функцию в скрипте

Код: AutoIt [Выделить]

Func _LoadDB()
    Local $aTmp, $tmp, $i, $str, $file, $var, $flag = 1
    $aTmp = _FileList($AutoItPath & '\Include', '*.au3')
    If IsArray($aTmp) And $aTmp[0] > 0 Then
        If FileExists($fDat) Then
            $str = FileRead($fDat)
            $tmp = StringRegExp($str, '([^\a]+)', 3)
            If IsArray($tmp) And UBound($tmp) = $aTmp[0] Then
                Dim $aIncl[UBound($aTmp)][4]
                $aIncl[0][0] = $aTmp[0]
                For $i = 1 To $aTmp[0]
                    $var = StringReplace($aTmp[$i], $inclDir, '') & FileGetTime($aTmp[$i], 0, 1)
                    If $var = StringLeft($tmp[$i - 1], StringLen($var)) Then
                        $aIncl[$i][0] = $aTmp[$i]
                        $var = StringRegExp($tmp[$i - 1], '([^\r\n]+)', 3)
                        If IsArray($var) And UBound($var) > 1 Then
                            $aIncl[$i][1] = $var[1]
                            If UBound($var) > 2 Then
                                $aIncl[$i][2] = StringReplace($var[2], Chr(28), $inclDir)
                            EndIf
                        Else
                            MsgBox(262144, 'INCLUDES HELPER', 'Причина обновления :' & @LF & 'неправильная запись в базе (отсутствуют символы перевода строки) : ' & @LF & $tmp[$i - 1])
                            $flag = 0
                            ExitLoop
                        EndIf
                    Else
                        MsgBox(262144, 'INCLUDES HELPER', 'Причина обновления : (+ время последнего изменения)' & @LF & 'файл в базе : ' & StringLeft($tmp[$i - 1], StringLen($var)) & @LF & 'файл в папке "Include" : ' & $var)
                        $flag = 0
                        ExitLoop
                    EndIf
                Next
                If $flag Then
                    Return
                EndIf
            Else
                MsgBox(262144, 'INCLUDES HELPER', 'Причина обновления :' & @LF & 'файлов в базе : ' & UBound($tmp) & @LF & 'файлов *.au3 в папке "Include" : ' & $aTmp[0])
            EndIf
        Else
            MsgBox(262144, 'INCLUDES HELPER', 'Причина обновления :' & @LF & 'отсутствует файл : ' & @LF & $fDat)
        EndIf
        _ProgressSet(1, 'Создание базы данных ...')
        $str = ''
        Dim $aIncl[UBound($aTmp)][4]
        $aIncl[0][0] = $aTmp[0]
        For $i = 1 To $aIncl[0][0]
            $aIncl[$i][0] = $aTmp[$i]
            $tmp = _GetInfo($aTmp[$i])
            If $tmp[1] Then $tmp[1] = _AllIncl($aTmp[$i])
            $aIncl[$i][1] = $tmp[0]
            $aIncl[$i][2] = $tmp[1]
            $aIncl[$i][3] = FileGetTime($aTmp[$i], 0, 1)
            $str &= Chr(7) & StringReplace($aIncl[$i][0], $inclDir, '') & $aIncl[$i][3] & @CRLF & $aIncl[$i][1] & @CRLF & StringReplace($aIncl[$i][2], $inclDir, Chr(28)) & @CRLF
            _ProgressSet(100 * $i/$aTmp[0])
        Next
        If $str Then
            $file = FileOpen($fDat, 2)
            FileWrite($file, $str)
            FileClose($file)
        EndIf
    Else
        _ConsoleWrite('! НЕ НАЙДЕНЫ ФАЙЛЫ В ПАПКЕ "INCLUDE"' & @CRLF)
        Exit
    EndIf
EndFunc
 

должно показать причину обновления

[madmasles [?]]

asdf8,
Измененная функция выдала:

Причина обновления :
неправильная запись в базе (отсутствуют символы перевода строки) :
vkArray.au320100921152318

На всякий случай прикрепляю IncludesHelper.dat.

Разобрался, все работает как надо. У меня в папке Include остался старый файл vkArray.au3. Я его удалил (он не нужен) и все заработало как надо.

Хотелки: 
1. Горячие клавиши на запуск и прекращение обработки.
2. Убрать стиль поверх всех окон.ИМХО, не надо убирать.
3. Возможность передвигать окно.

[asdf8 [?]]

Спасибо madmasles

Поправил, чтоб работало и с тем файлом, хотел перезалить файл в первом посте, но чет не нашел, как там удалить предыдущий файл.
Хотелки вроде здравые - перезалью, когда сделаю.

[Garrett [?]]

asdf8  [?]

хотел перезалить файл в первом посте, но чет не нашел, как там удалить предыдущий файл.

Просто выберите новый файл, который вы хотите добавить в attach, а напротив старого (для удаления) снимите галочку.

[asdf8 [?]]

Обновил

[AZJIO [?]]

madmasles

Я его удалил (он не нужен) и все заработало как надо.

Аналогично, тоже парился, не мог понять. Думаю надо это программно решить, а то не каждый догадается.

[asdf8 [?]]

AZJIO так решил уже
В первом посте версия 1.1.1

[FlatX007 [?]]

Крутотень! 

[madmasles [?]]

asdf8,
ИМХО, очень полезная утилита. Проверил свои скрипты, нашел в них кучу ненужных включенных библиотек, закомментировал их, размер файлов уменьшился. Из всех обработчиков Include, которыми я пользовался, для меня Ваш самый удобный и корректный. Всем советую использовать.
Спасибо. 

[CreatoR [?]]

madmasles  [?]

нашел в них кучу ненужных включенных библиотек, закомментировал их, размер файлов уменьшился

Речь про скомпилированный результат?
Для этого есть обфускатор:

Код: AutoIt [Выделить]

#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/striponly

А для добавления недостающих библиотек (из стандартных естественно), можно использовать директиву

Код: AutoIt [Выделить]

#AutoIt3Wrapper_Add_Constants=y

[madmasles [?]]

CreatoR  [?]

Речь про скомпилированный результат?

Обфускатором я так и не научился пользоваться.

• ---Zak---
• nowost
• Yurmurk
• madmasles
• paulgator
• asdf8
• koksacs
• KPOXA
• tilek
• mechlab
• scanfail
• Александр
• GenoTIP
• c41320@rtrtr.com
• usrman
• Nurgazy
• Yashied
• Simdu
• Kaster
• SummerLeaf
• nu3dell
• Shirling
• XpycT
• JAE
• boble911
• ynbIpb
• uninstall
• nicotino