» Total Commander (Часть 8)

Nick3230
C новыми символическими ссылками работает NTLinksMaker от MVV (см. вторую из моих ссылок).

Aktaf
По вопросу отсюда:

Цитата:

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

Согласно справке, на первой странице диалога поиска указываем с путями два сравниваемых каталога ("Место поиска", имена разделяются точкой c запятой). Уровень вложенности указать "Только текущий", если не нужно проверять вложенные подкаталоги.
Далее вторая страница, "Поиск дубликатов", выставляются нужные опции (по каким критериям считать одинаковыми). По завершении поиска список дубликатов будет выведен в специальном виде (группами совпадений). Дальше разбираться, что где оставлять, а что убирать. Про дополнительный диалог по Num+ уже говорилось. Никакого иного способа "собрать их вместе" в одной файловой панели нет.
И, разумеется, совпадающие файлы в обеих панелях можно выделить, банально инвертировав (Num*) выделение после обычного сравнения каталогов. После чего можно оставить отображаться только выделенные (cm_ShowOnlySelected). Но это не "собрать их вместе".

Avada
Не подумал, что меня поймут, как пытаюсь собрать вместе из обеих сторон - в одной панели. Тем более, там еще один вариант того же желания написано - Нужно обратное третьему пункту, возможность сравнить скрыв разных файлов. Обратное же - сравнить скрыв, разные файлы

Из Ваших слов вроде полезное для меня cm_ShowOnlySelected. Есть ли способ как-то легко подать эту команду? Собрать их вместе это и есть мое желание.

Добавил в панель инструментов, подсунул более менее подходящий значок и получилось.
Вот бы его поместить в меню, тогда наверно сразу в обеих панелей остались одинаковые!
То что хотел изначально.

Aktaf
На то и команды, чтобы их помещать в меню. См. справку. К тому же в одну кнопку или пользовательскую команду можно включать цепочку команд, о чём уже неоднократно говорилось. Скажем, несколько команд в связке:
cm_FocusLeft,cm_CompareDirs,cm_ExchangeSelection,cm_ShowOnlySelected,cm_FocusRight,cm_ExchangeSelection,cm_ShowOnlySelected
Пример чисто демонстрационный, там остаются с двух сторон выделенные каталоги, с которыми тоже можно при желании разобраться (используя, например, cm_ExchangeSelFiles вместо cm_ExchangeSelection).

Avada
Спасибо конечно. Но, Вы меня извините, не могут и не должны каждый сидеть и делать себе регулярно или постоянно Тотал команде или что либо еще. Например, мне за всю свою жизнь захотелось заиметь такую возможность. Для всех остальных наверняка она не нужна. Да и если внедрять для всех все что каждому захочется, это станет никому не нужным монстром.
Тем более, огромное большинство из нас не найдем элементарных вещей, тем более что-то изменять самому. И каждый раз эмоционально пространно объяснять, то что и не спрашивали. Лучше бы подумать как сделать, чтобы аналогичные вопросы появлялись как можно реже. На моем примере, все что изложили наверняка интересно. Но, ничего конкретного мне помогающего тут нет. А для всех остальных тем более.
Вместо этого...
- показали - смотри справку, но в этой справке я не могу найти нужного - файла, которого редактируя я смогу что-то изменить. Написали бы какой файл мне нужно редактировать. Если я что-то могу, я бы остался довольным.
- далее пространная речь об общих вещах - я ведь написал, что мне хочется. Что я уже все это сделал, из Вашей предыдущей речи - использовал команду. Меня устраивает. Наверняка из-за того, что она в панели инструментов, действует только на ту панель, где курсор,
Мне интересует как ее в меню сунуть и снова реч... (Я вообще полагал, есть какая то утилита).
Если уж можно относительно легко отредактировать файл ... Вообщем, можно было просто:

Берете такой то файл и в такой то строчке впишите и т.д. все. А чтобы были поменьше вопросов.
Аналогичное уже в общем в шапку:

Кто хочет изменить для себя Меню Тотал командера (далее скрытый тект, страница и пр.) Правим такой то файл, предварительно сохраняйте копию...

Aktaf
Если вас не устраивают мои объяснения, то извините за напрасно потраченное время. Но объяснять (тем более — в шапке) вполне очевидные и уже многократно объяснённые вещи у меня нет ни возможности, ни желания. А файл меню для редактирования даже искать особо не надо: загляните на страницу настроек "Язык" и посмотрите внимательно, что там есть.

7 Корпоротивка 32х - чёрный экран вместо рабочего стола.
При нажатии на 3 кнопки всё ок. Диспетчер задач виден.
Больше ничего не видно.
Можно ли запустить и как ТС?

Veselozhopy
Может быть, всё-таки систему в порядок надо сначала привести, а уж потом думать, что там запускать?

Эта система, 7, мне нужна ток чтоб играцца.
Через обзор попытаюсь ТС запустить и игру установить и поиграть.

Veselozhopy
Мало того, что дело явно не в TC, так ещё телепатов тут нет, и я здорово сомневаюсь, что по таким объяснениям кто-то что-то подскажет. Кроме переустановки/восстановления системы, само собой.

Skif_off
[more=Не работает скрипт]---------------------------
Windows Script Host
---------------------------
Сценарий:    D:\Scripts\New.vbs
Строка:    13
Символ:    42
Ошибка:    Предполагается наличие 'Then'
Код:    800A03F9
Источник:     Ошибка компиляции Microsoft VBScript

---------------------------
ОК
---------------------------

Дубликаты строк конечно лучше убирать для избежания лишних проблем.

P.S. Ладно. По поводу этого скрипта можно будет потом как-нибудь вопрос задать.[/more]
------------------------------------------------------

1) Возможно ли как-то убрать splash screen при запуске TC? Вроде подобных ключей в wincmd.ini нет.
2) Как правильно скопировать значения из набора колонок "Подробный" в новый набор колонок?
А также как выровнять по Tab новый набор колонок, т.е., чтобы колонка "Размер" выравнивалась по правому краю?

Nick3230

Цитата:

Возможно ли как-то убрать splash screen при запуске TC? Вроде подобных ключей в wincmd.ini нет.

StartupScreen=1 - Показывать заставку при запуске Total Commander (1/0)

Nick3230

Цитата:

1) Возможно ли как-то убрать splash screen при запуске TC? Вроде подобных ключей в wincmd.ini нет.

Цитата:

StartupScreen=1 Показывать заставку при запуске Total Commander (1/0).

Nick3230
1) В справку заглянуть и поискать по Ctrl+F слова Показывать заставку.
2) Создать в наборе необходимые колонки и заново выставить нужные значения. Потому что "Подробный" — это стандартный вид представления, а не набор колонок.
3) Что в диалоге "Настройка набора колонок" есть столбец "Выравн." с соответствующими кнопками, совсем не видно?
А универсальный ответ на все вопросы сразу: прочитать, наконец, справку.

Nick3230

Цитата:

Не работает скрипт

Прошу прощения, проглядел, нужно [more=заменить]

Код: If FSO.FileExists(WScript.Arguments(1))

Skif_off
[more=Как-нибудь потом с этим скриптом]
Опять ошибка. Попробуйте сами протестировать.

---------------------------
Windows Script Host
---------------------------
Сценарий:    D:\Scripts\New.vbs
Строка:    23
Символ:    28
Ошибка:    Предполагается наличие окончания инструкции
Код:    800A0401
Источник:     Ошибка компиляции Microsoft VBScript

---------------------------
ОК
---------------------------


По поводу строк, то сотни (backup из разных мест собирается).

Кнопка для создания списка

Код: TOTALCMD#BAR#DATA

cmd /c
type %WL>>"%TFiles_list.lst"
shell32.dll,54
Список файлов для архивирования через WinRAR

1
-1

Nick3230
Вроде получилось (у меня работает :)) [more=Скрипт и кнопка]

Код: // %WL "%T" "Files_list.lst"
var shell = new ActiveXObject("WScript.shell");
var fso = new ActiveXObject("Scripting.FileSystemObject");
var FileList = "";
var AddToFileList = "";
var AddList = "";
var AddTo = "";
var AddList = "";
var RetCodeP = "";
var oPattern;
var UnSortFileList;
var SortFileList;

// читаем файл-список
FileList = fso.OpenTextFile(WScript.Arguments.Item(0), 1, false, -1);
AddToFileList = FileList.ReadAll();
FileList.Close();
// убираем слэш в конце строк
oPattern = new RegExp("\\\\$", "gm");
AddList = AddToFileList.replace(oPattern, "");
// если новый список существует, то дописываем в него, иначе - создаём новый
if (fso.FileExists(WScript.Arguments.Item(1) + WScript.Arguments.Item(2)))
{
AddTo = fso.OpenTextFile(WScript.Arguments.Item(1) + WScript.Arguments.Item(2), 8, false, -1);
AddTo.Write(AddList);
AddTo.Close();
}
else
{
AddTo = fso.OpenTextFile(WScript.Arguments.Item(1) + WScript.Arguments.Item(2), 2, true, -1);
AddTo.Write(AddList);
AddTo.Close();
}
// решение - паковать или нет
RetCodeP = shell.Popup("Упаковать?", 0, "Бэкап по списку", 36);
// если да
if (RetCodeP == 6)
{
// то проверяем существование архива
if (fso.FileExists(WScript.Arguments.Item(1) + "_backup.rar"))
{
// сообщаем, если существует
shell.Popup("Файл _backup.rar уже существует!", 0, "Бэкап по списку", 48);
}
else
{
// если архива нет, то читаем новый список
FileList = fso.OpenTextFile(WScript.Arguments.Item(1) + WScript.Arguments.Item(2), 1, false, -1);
UnSortFileList = FileList.ReadAll();
FileList.Close();
// режем в массив
UnSortFileList = UnSortFileList.split("\r\n");
// сортируем
SortFileList = UnSortFileList.sort();
// оставляем уникальные
SortFileList = unique(SortFileList);
// массив в строку
SortFileList = SortFileList.join("\r\n");
// убираем пустую строку в начале (хз, откуда она берётся, не пойму :) )
oPattern = new RegExp("^\\r\\n");
SortFileList = SortFileList.replace(oPattern, "");
// пишем новый список
FileList = fso.OpenTextFile(WScript.Arguments.Item(1) + WScript.Arguments.Item(2), 2, true, -1);
FileList.Write(SortFileList + "\r\n");
FileList.Close();
// запускаем упаковку

// открывается окно консоли, но свёрнутым в панель задач
shell.Run("\"%COMMANDER_PATH%\\Utils\\Rar.exe\" a -r -ep1 \"" + WScript.Arguments.Item(1) + "_backup.rar\" " + "@\"" + WScript.Arguments.Item(1) + WScript.Arguments.Item(2) + "\"", 2, true);

// окно консоли скрыто, вообще никакой индикации - не очень хорошо
//shell.Run("\"%COMMANDER_PATH%\\Utils\\Rar.exe\" a -r -ep1 \"" + WScript.Arguments.Item(1) + "_backup.rar\" " + "@\"" + WScript.Arguments.Item(1) + WScript.Arguments.Item(2) + "\"", 0, true);

// открывается окно консоли (как обычное окно - активно)
//shell.Run("\"%COMMANDER_PATH%\\Utils\\Rar.exe\" a -r -ep1 \"" + WScript.Arguments.Item(1) + "_backup.rar\" " + "@\"" + WScript.Arguments.Item(1) + WScript.Arguments.Item(2) + "\"", 1, true);

// с использованием AskParam (не забыть исправить путь на свой!): вариант с запросом имени архива
//shell.Run("\"%COMMANDER_PATH%\\Utils\\AskParam.exe\" /w /c\"Бэкап по списку\" /t\"_backup\" /p\"Имя файла:\" \"%ComSpec%\" \"%COMMANDER_PATH%\\Utils\\Rar.exe\" a -r -ep1 \"" + WScript.Arguments.Item(1) + "_backup.rar\" " + "@\"" + WScript.Arguments.Item(1) + WScript.Arguments.Item(2) + "\"", 1, true);

// удаляем список
fso.DeleteFile(WScript.Arguments.Item(1) + WScript.Arguments.Item(2), 1);
shell.Popup("Создание резервной копии завершено.", 0, "Бэкап по списку", 64);
}
}

function unique(input)
{
var o = {};
var l = input.length;
var r = [];
var i;
for(i = 0; i < l; i += 1)
{
o[input[i]] = input[i];
}
for(i in o)
{
r.push(o[i]);
}
return r;
}

Nick3230
Да, в подробном виде отсчёт идёт по-другому. Но снова лезть в эти дебри и тянуть за собой других я не хочу сам и не советую никому, ибо некоторый опыт копания в табуляционных опциях имею. Предложение было сделано: всё создать и выставить заново, не пытаясь копировать числа.
Да, в пользовательских колонках слова <Папка> и <Cсылка> выравниваются иначе, чем в подробном режиме. Вариантов два: признать это как факт или жаловаться Гислеру. (Возможно, это кто-то уже на оффоруме делал, но у меня нет сейчас особой охоты заниматься длительными поисками, поскольку мне эта проблема не мешает.)

Avada
+1!
Извиняюсь за, в общем-то, оффтоп, но Вы часто даёте ответы на такие вопросы, которые, если человек САМ ПОПРОБУЕТ, вообще не возникнут.
P. S. Последний раз не совсем в тему, но просто нагорело. Ну и момент такой субъективный совпал... Небольшой градус в организме...
А то отвечаешь человеку, распинаешься, а он тут же задаёт следующий вопрос, по которому ясно, что он совет даже не посмотрел, не попробовал. Поскольку там дальше всё понятно и ясно, даже имбецилу, независимо от знания языка и вообще.

Skif_off
[more=Про конвертирование]
Код: TOTALCMD#BAR#DATA
cmd /c
type %UL>>"%TFiles_list.lst"
shell32.dll,54
Список файлов для архивирования через WinRAR

1
-1

Nick3230
Не понял, зачем вам эта кнопка и конвертирование? Предложенный скрипт и кнопка делают всё:
- при нажатии кнопки проверяется существование "%TFiles_list.lst", если файл есть - новый список дописывается в конец, если файла нет - он создаётся (всё в UTF-16LE);
- после этого вылезает окно с вопросом Упаковать?, если нажать Нет - скрипт завершит работу, если Да - файл "%TFiles_list.lst" будет прочитан, содержимое отсортируется и будут удалены дубликаты;
- далее - запуск архивации и по её завершении файл "%TFiles_list.lst" будет удалён.

Если я создаю кнопку на панели инструментов для открытия конкретного документа, в частности PDF-файла, в заданной программе, с которой в операционке данный тип документов не ассоциирован,
то для данной программы я могу задать путь с использованием переменной внутреннего окружения TC, например %COMMANDER_DRIVE%, а для открываемого документа, путь к которому я указываю в поле Параметры кнопки, получается нельзя? И необходимо задавать абсолютный путь? Или как-то можно относительный указать.

Skif_off
[more]
При добавлении строк скрипт добавляет таким образом.


Это получается при конвертировании в UTF-16LE (после выполнения скрипта).

Я, просто, не знаю, почему при type %WL>>"%TFiles_list.lst", TC не делает кодировку UTF-16LE, а делает OEM? (при этом, при "type %UL>>"%TFiles_list.lst"" делает правильно, в UTF-8).

Мне более удобно, когда сначала выделяется необходимые файлы и папки (из разных мест), а затем идет упаковка по списку. А так в скрипте надо постоянно нажимать отмену или ставить и убирать комментарий строки 35.[/more]

c930
У меня TC не поддерживает переменные среды ни в команде, ни в параметрах кнопки (передает эти переменные неправильно), хотя и делает подсказки при вводе по переменным. Может быть, это исправят.

c930 00:04 19-02-2015
Цитата:

Если я создаю кнопку на панели инструментов для открытия конкретного документа, в частности PDF-файла, в заданной программе, с которой в операционке данный тип документов не ассоциирован,
то для данной программы я могу задать путь с использованием переменной внутреннего окружения TC, например %COMMANDER_DRIVE%, а для открываемого документа, путь к которому я указываю в поле Параметры кнопки, получается нельзя? И необходимо задавать абсолютный путь? Или как-то можно относительный указать.

У меня кнопки для этого так сделаны, вроде всё нормально работает:
Код: TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\Bin\PDFXED\PDFXEdit.exe"
%P%N
%COMMANDER_PATH%\Bin\PDFXED\PDFXEdit.exe
Открыть файл в PDF-XChange Editor

0
-1

c930, один из вариантов, если пользуютесь TCIMG, то кнопка запуска программы и открываемого файла с указанием относительных путей, будет выглядеть так

Abel11
Так вроде и в Тотале можно сделать (до сих пор не пойму, зачем*):
Код: TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\Bin\PDFXED\PDFXEdit.exe" "%COMMANDER_DRIVE%\totalcmd\Bin\FASM\FASM.pdf"

%COMMANDER_PATH%\Bin\PDFXED\PDFXEdit.exe
Открыть файл в PDF-XChange Editor


-1

Nick3230
[more]За кодировки не скажу, ибо так не делаю: предпочитаю другие решения, которые не доставляют неудобств с кодировками, хотя и учитывают их.


Цитата:

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

Мне показалось удобным повесить всё на одну кнопку, нет - так нет :) Тогда две кнопки:

Код: TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\new.js
%WL "%T" "Files_list.lst"
C:\Windows\System32\WScript.exe,3
Создание списка
%COMMANDER_PATH%\Utils\

-1

Abel11, addhaloka
Спасибо, если параметр писать в строке Команда, то работает.
Непонятно зачем на поле Параметры наложено такое ограничение.

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

Здравствуйте, друзья, маленький вопросик:
когда упаковываешь папку, в названии которой есть точки (Download Master 6.1.1.1439) в rar-архив,
то в названии архива точки меняются на нижний слеш (Download Master 6_1_1_1439).
Можно-ли настроить, что-бы точки оставались точками ?

c930 02:13 21-02-2015
Цитата:

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

Это-то понятно, сам только переменные и использую, и другим это советую. Была непонятка - зачем их использовать в поле Параметры - у меня ни разу нужды в этом не возникало.