Orion9
|
 Posted: Thu Aug 08, 2024 20:40 Post subject: |
 |
|
Эх, пробило меня сделать для вас скрипт, Customscargo. Вижу, что вам очень хочется иметь такую кнопку, но всё никак не срастается.
Кнопка:
| Code: | TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\AutoHotkey32.exe"
%COMMANDER_PATH%\AutoHotkey32.exe
Выделить из буфера
-1
|
Скачайте архив:
https://www.autohotkey.com/download/ahk-v2.zip
Скопируйте из него AutoHotkey32.exe в корень Total Commander. Рядом создайте текстовый файл AutoHotkey32.ahk с содержимым:
 Hidden text #Requires AutoHotkey v2
FileList := ""
if StrLen(A_Clipboard) = 0
{
MsgBox "Буфер пустой", "Скрипт"
Return
}
clip := A_Clipboard
bf := ""
b:=0
Loop Parse, A_Clipboard, "`n", "`r"
{
if StrLen(Trim(A_LoopField)) > 0
++b
if b < 4
bf .= A_LoopField "`n"
}
i:=0
Loop Files, A_InitialWorkingDir . "\*.*"
{
if CheckFile(A_LoopFileName)
{
FileList .= A_LoopFileName "`n"
++i
}
}
MsgBox "Записей в буфере: " b "`n`n" SubStr(bf, 1, 100) "`nБудет выделено файлов: " i, "Скрипт"
A_Clipboard := FileList
SendMessage(1075, 2033, 0, , "ahk_class TTOTAL_CMD")
Sleep(100)
A_Clipboard := clip
CheckFile(file)
{
Loop Parse, A_Clipboard, "`n", "`r"
{
buff:=Trim(A_LoopField)
if StrLen(buff) > 0 and InStr(file, buff) > 0
Return true
}
Return false
}
Сохраните его в UTF-8, иначе могут быть проблемы с русскими символами.
Все. Кнопка готова!  |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
