[amel27]

Pozia, попробуй еще так :

Код:

#include <WinAPI.au3>

$sFile = "C:\TotalCmd\Default.Bar"
$sBBar = FileRead($sFile)
$sBBar = _TCMD_ButtonBarPack($sBBar)
$hFile = FileOpen($sFile, 2)
FileWrite($hFile, $sBBar)
FileClose($hFile)

Func _TCMD_ButtonBarPack($sBBar)
    Local $iBOut = 0, $sBOut = "", $sCMD, $sPath
    Local $aBBar = StringRegExp($sBBar,"(?mi)^([a-z_]+(\d+)=[^\n]*[\n\r]+(?:[a-z_]+\2=[^\n]*[\n\r]+)*)",3), $aCBar = $aBBar

    EnvSet("COMMANDER_PATH", RegRead("HKCU\Software\Ghisler\Total Commander","InstallDir"))
    For $i=0 To UBound($aBBar)-1 Step 2
        Opt("ExpandEnvStrings", 1)
        $aBBar[$i] = StringRegExpReplace($aBBar[$i],'""','"')
        $sPath = StringRegExpReplace($aBBar[$i],'(?is)^.*?(?:^|[\n\r])path\d+="*([^"%\n\r]+).*$',"\1")
        If @extended=1 And $sPath<>"" Then FileChangeDir($sPath)
        $sCMD =StringRegExpReplace($aBBar[$i],'(?is)^.*?(?:^|[\n\r])cmd\d+=(?:cm_\w|cd |"([^"%\n\r]+)"|([^":%\s\n\r\\]+)(?:[\n\r\s]|$)|([^"%\n\r]+)).*$',"\1\2\3")
        If @extended=0 Or $sCMD="" Or FileExists($sCMD) Or _WinAPI_FindExecutable($sCMD)<>"" Then
            $iBOut +=1
            Opt("ExpandEnvStrings", 0)
            $aCBar[$i] = StringRegExpReplace($aCBar[$i], '\d+=', $iBOut &'=')
            $sBOut &= $aCBar[$i]
        EndIf
    Next
    Return "[ButtonBar]" &@CRLF& "ButtonCount="& $iBOut &@CRLF& $sBOut
EndFunc

З.Ы. Путь установки TC берется из реестра (HKCU\Software\Ghisler\Total Commander\InstallDir)

[Pozia]

amel27, этот скрипт вообще не работает. Или его нужно использовать вписав в предыдущие?

Путь установки TC берется из реестра (HKCU\Software\Ghisler\Total Commander\InstallDir) »

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

[proxy]

З.Ы. Путь установки TC берется из реестра (HKCU\Software\Ghisler\Total Commander\InstallDir) »

к примеру свою сбортку тоотола я уже даааавно не инсталирую, а просто переношу с системы на систему

3. И пожалуйста уберите все эти диологи. Мне бы тихий скрипт И если это возможно то в один все файл внесите

так для чего же там сделал область настроек??? )))))
можно настроить будет все ооочень тихо:
Показывать окно настроек: Нет
запускать при старте: Да

Если нет ошибок - снять все галочки кроме Закрыть программу

Если есть ошибки - снять все галочки кроме Закрыть программу

amel27, рег. выражения зачетные !
а про путь к тоталу - просто добавить надо самым первым и если в реестре нет - то тупа перебором

amel27, все так компактно - даже не поймешь как оно работает,
но как понимаю все меняет налету? - это крута...
а номера кнопок меняет ?

[Pozia]

amel27, все OK!!! Указал путь к тоталу $sFile = "C:\TC\Default.Bar" и все сработало! Я ваще в шоке от Вашего скрипта. Такой маленький а так хорошо со всем справляется. Спасибо!

amel27, а как в скрипте задать относительный путь %programfiles%\TC\Default.Bar?

[Pozia]

amel27, нашел недароботку. Удаляется кнопка 7z

[amel27]

как в скрипте задать относительный путь »

подправил - путь к Тоталу и имя BAR-файла задаются вручную, по ходу немного изменил алгоритм:

Код:

#include <WinAPI.au3>

$sRoot = @ProgramFilesDir &"\TC"
$sFile = $sRoot  &"\Default.Bar"

$sBBar = FileRead($sFile)
EnvSet("COMMANDER_PATH", $sRoot)
$sBBar = _TCMD_ButtonBarPack($sBBar)
$hFile = FileOpen($sFile, 2)
FileWrite($hFile, $sBBar)

Func _TCMD_ButtonBarPack($sBBar)
    Local $iBOut, $sBOut=@CRLF, $sCMD, $sPath, $aBBar=StringRegExp($sBBar,"(?mi)^([a-z_]+(\d+)=[^\n]*[\n\r]+(?:[a-z_]+\2=[^\n]*[\n\r]+)*)",3)
    For $i=0 To UBound($aBBar)-1 Step 2
        Opt("ExpandEnvStrings", 1)
        $sPath = StringRegExpReplace($aBBar[$i],'(?is)^.*?(?:^|[\n\r])path\d+="*([^"\n\r]+).*$',"\1")
        If @extended=1 And $sPath<>"" Then FileChangeDir($sPath)
        $sCMD =StringRegExpReplace($aBBar[$i],'(?is)^.*?(?:^|[\n\r])cmd\d+=(?:cm_|cd |"+([^"\n\r]+)"+|([^"\s\n\r\\]+)(?:[\n\r\s]|$)|([^"\n\r]+)).*$',"\1\2\3")
        If @extended=0 Or $sCMD="" Or FileExists($sCMD) Or _WinAPI_FindExecutable($sCMD)<>"" Then
            $iBOut +=1
            Opt("ExpandEnvStrings", 0)
            $sBOut &= StringReplace($aBBar[$i], $aBBar[$i+1]&'=', $iBOut &'=')
        EndIf
    Next
    Return SetError(0, Opt("ExpandEnvStrings",0), "[ButtonBar]"&@CRLF&"ButtonCount="& $iBOut & $sBOut)
EndFunc

нашел недароботку. Удаляется кнопка 7z »

странно, у меня вроде нормально - если файл Button.exe есть по указанному пути, то оставляет... кстати, скрипт среди множества встроенных CMD-команд распознает только "CD" - все другие (из длинного списка HELP) будут удалены

[Pozia]

amel27, вот этот скрипт не удоляет кнопку. А тот удалял. Команда на запуск кнопки была просто Button.exe. Я ее переписал так %COMMANDER_PATH%\Utilites\SFX Tool\Button.exe и тогда и первый ваш скрипт правильно работал.

Хотел было написать чтобы скрипт не удалял пустые button...= так он уже и это умеет. Потрясно!!! Спасибо!!!

[Pozia]

amel27, а как подправить скрипт чтобы он работал с файлом DEFAULT.bar который находится рядом со скриптом в одной папке??? Чет не могу сообразить

amel27, или подскажите переменную Program Files (x86) чтобы скрипт работал в вистет 64 бит нормально

[amel27]

как подправить скрипт чтобы он работал с файлом DEFAULT.bar который находится рядом со скриптом »

Код:

$sFile = @ScriptDir &"\Default.Bar"

подскажите переменную Program Files (x86) чтобы скрипт работал в вистет 64 бит нормально »

скомпилировать в 32-бит и @ProgramFilesDir будет возвращать "C:\Program Files (x86)"

[Pozia]

amel27, а как быть с $sRoot? Ведь она есть здесь: EnvSet("COMMANDER_PATH", $sRoot)