» Total Commander (Часть 8)

Werty666
Ну вот автор тут появится...

Avada а пока ждем его, такая еще кнопка:

выделяем несколько файлов и допустим папок (фото, док итд), затем жмакаем суперкнопку - в текущей директории создается папка с заранее заданным именем, например "Photo" - все выделенные файлы перемещаются в нее. Вот....

Werty666
Есть предложение освоить поиск в этом подфоруме. Без посредников, полагаю, быстрее получится. А я сейчас, прошу прощения, несколько занят другими делами (в работе новая версия TWinKey).

Werty666
здесь посмотри

Avada спасибо, переберусь пока туда, но буду посматривать и эту тему, лето-отпуска..
maK спс за ссылку

Werty666 (13:15 07-08-2014)
Цитата:

задача - не менять расширение, оставляя как есть и изменять регистр (если начинается со строчной а я переименовываю с тем же именем но с заглавной - не получается)

(14:19 07-08-2014)
Цитата:

не изменял расширение и поднимал регистр первой буковки, а если файл с таким именем существует, то переименовывает выделенный "имя файла_001" итд

Ничего не понял. Изначально указанный скрипт всем выбранным объектам даёт одно и то же заданное имя.
Вообще говоря, нынешняя задача по смене регистра решается парой кликов в инструменте группового переименования. Можно шаблон сохранить и на кнопку повесить. Переделать скрипт тоже не большая проблема, но тут возникает следующий вопрос.
Каким образом при смене регистра может существовать одноимённый файл? Это что, не под Windows происходит?

(17:11 07-08-2014)
Цитата:

выделяем несколько файлов и допустим папок (фото, док итд), затем жмакаем суперкнопку - в текущей директории создается папка с заранее заданным именем, например "Photo" - все выделенные файлы перемещаются в нее

Опять же, ИГП давно умеет перемещать файлы.
А скриптов-перемещалок и так на wincmd уже куча. Начиная отсюда и дальше по ссылкам.

Rodny извините если выражаюсь не понятно, да, проблема коммуникации между людьми)) я тоже по три раза перечитываю и не могу понять чего иногда хотят пользователи)), попробую иначе:

01. Имеется файл folder.jpg надо чтобы при выполнении скрипта переименовывался в Folder.jpg (наверное винда не дает переименовать, и вправду)

02. Имеется файл photo.png надо чтобы переименовывался в Folder.png (текущий скрипт дает Folder.jpg)

03. Имеется файл Folder.jpg, рядом лежит photo.jpg, при нажатии на кноку переименует в Folder_001.jpg

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

Werty666
раз
два

maK мне почему то кажется, что именно здесь (в этой теме) обитает максимальное кол-во умных дядек, по крайней мере из тех вопросов, что я задавал, не осталось без ответа ни одного

Rodny 01:44 09-08-2014
Цитата:

Опять же, ИГП давно умеет перемещать файлы.

Это как? В справке про это не написано, методом тыка перемещательный функционал тоже не обнаруживается Не то, чтобы очень сильно было надо, но интересно же...

Werty666
здесь чаще получаешь ответ, а там решение.

oshizelly
В справке есть раздел про ИГП, где искомый функционал, добавленный в 8.0, легко можно обнаружить в описании первого же поля.

Avada 15:09 09-08-2014
Цитата:

В справке есть раздел про ИГП, где искомый функционал, добавленный в 8.0, легко можно обнаружить в описании первого же поля.

Спасибо. Просто не обратил внимания на это нововведение, потому что не очень нужно было.
А может, оно на самом деле мне как раз очень нужно, но я пока сам об этом не догадываюсь В жизни так нередко случается. В каких ситуациях эта новая фича может реально быть полезна?

Avada
oshizelly

правда, как просто - Photo\[N] и все выделенные файлы собрались в одну папку. ну как же так просто!! все же второй день сижу на tc-image.3dn.ru в темах с кнопками (создание, перемещение итд) зааатяяяянуло. вообщем ИГП это выход, хотя и не в одно нажатие

Werty666 (11:10 09-08-2014)
Цитата:

01. Имеется файл folder.jpg надо чтобы при выполнении скрипта переименовывался в Folder.jpg (наверное винда не дает переименовать, и вправду)
02. Имеется файл photo.png надо чтобы переименовывался в Folder.png (текущий скрипт дает Folder.jpg)
03. Имеется файл Folder.jpg, рядом лежит photo.jpg, при нажатии на кноку переименует в Folder_001.jpg

ОК, пробуй.
[more=AutoMultiRename3.5.vbs]
Код: '==============================================================================
' AutoMultiRename3.5.vbs
'
' Переименовать файл или папку (выделенную группу файлов или папок в разных папках)
' заданным образом без дополнительных окон и вопросов
' http://forum.ru-board.com/topic.cgi?forum=5&topic=33904&start=3120#8
' http://forum.ru-board.com/topic.cgi?forum=5&topic=33904&start=4120&limit=1
' Продолжение:
' http://forum.ru-board.com/topic.cgi?forum=5&topic=45288&start=3360#17
'
' Параметры для кнопки:
' %L "новое имя объекта" 1
'
' Если присутствует необязательный третий параметр, то второй параметр считается именем файла, расширение файла сохраняется.
' Если при этом файл с новым именем существует, к имени добавляется "_001", "_002" и т.д. до _999
'
' Путь запуска должен быть пустым!
' Rodny (с)
'==============================================================================
Option Explicit

Dim FSO, ListFile, CurrentLine, CurrentFile, FileName, FileExt, FilePath, NewFileName, ExtMode

If WScript.Arguments.Count = 0 Then
    MsgBox "Параметры кнопки не заданы!", vbOKOnly + vbExclamation, "Внимание!"
    WScript.Quit
End If

If WScript.Arguments.Count = 3 Then
    ExtMode = 1
Else ExtMode = 0
End If

Set FSO = CreateObject("Scripting.FileSystemObject")
Set ListFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
NewFileName = WScript.Arguments(1)

Do While Not ListFile.AtEndOfStream
    CurrentLine = ListFile.ReadLine
    If Right(CurrentLine, 1) <> "\" Then ' Это файл
        Set CurrentFile = FSO.GetFile(CurrentLine)
    Else ' Это папка
        Set CurrentFile = FSO.GetFolder(CurrentLine)
    End If
        FileName = FSO.GetBaseName(CurrentFile)
        FileExt = FSO.GetExtensionName(CurrentFile)
        FilePath = CurrentFile.ParentFolder

        If ExtMode <> 0 Then
            If UCase(FileName)=UCase(NewFileName) Then
                CurrentFile.Move FilePath & "\" & NewFileName & "." & FileExt
            Else    
                If Not (FSO.FileExists(FilePath & "\" & NewFileName & "." & FileExt)) Then
                    CurrentFile.Move FilePath & "\" & NewFileName & "." & FileExt
                Else
                    CurrentFile.Move FilePath & "\" & GetNewName(FilePath, NewFileName & "." & FileExt)
                End If
            End If
        Else
            If Not (FSO.FileExists(FilePath & "\" & NewFileName) Or FSO.FolderExists(FilePath & "\" & NewFileName)) Then
                CurrentFile.Move FilePath & "\" & NewFileName
            Else
                MsgBox "Файл или папка """ & NewFileName & """ уже существует в папке """ & FilePath & """", vbOKOnly + vbExclamation, "Внимание!"
            End If
        End If
Loop

Function GetNewName(Path, Name)
    Dim i, NewName, FileN, FileE
    i = 0
    Do
        i = i + 1
        FileN = FSO.GetBaseName(Path & "\" & Name)
        FileE = FSO.GetExtensionName(Path & "\" & Name)
        If i < 10 Then
            NewName = FileN & "_00" & CStr(i) & "." & FileE
        ElseIf (i >= 10 and i < 100) Then
            NewName = FileN & "_0" & CStr(i) & "." & FileE
        ElseIf (i >= 100 and i < 1000) Then
            NewName = FileN & "_" & CStr(i) & "." & FileE
        End If
    Loop Until Not (FSO.FileExists(Path & "\" & NewName) Or FSO.FolderExists(Path & "\" & NewName))
    GetNewName = NewName
End Function

Set FSO = Nothing
Set ListFile = Nothing
Set CurrentFile = Nothing
Wscript.Quit

Rodny работает отлично! спасибо

Folder.vbs
Folder.jpg
Folder_001.jpg

Добавлено:


Цитата:

хотя и не в одно нажатие

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

http://forum.wincmd.ru/viewtopic.php?t=15416&postdays=0&postorder=asc&&start=0&sid=f9cdc4b878ae0edc623b9c4a836ce106



Добавлено:
кто поможет с параметром кнопки? (скрипт этот же)

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\Scripts\test.vbs
%WL "%P" Photo 1
C:\totalcmd\icons\Wcmicons.dll,119
test
%COMMANDER_PATH%\Utils\Scripts\

-1

%WL "%P" Photo 1 - параметр "1" осуществляет переход в созданную папку НО в соседней панели, а хотелось чтобы открывалось в этой же, активной

Werty666

Цитата:

хотелось чтобы открывалось в этой же, активной

Параметр "0" отменяет переход на соседнюю панель. Если Photo заменить на "", то имя папки будет запрашиваться.

Werty666
Я один момент не учёл, исправил там же

mig73, слушай, чего то не открывает папку то... не в активной не в другой

%WL "%P" Photo 0 - верно?

Rodny спс, исправил у себя, но все работало

пацаны, еще вопрос - есть возможность обновлять содержимое панели после выполненного скрипта, а то надергал много интересного с одного форума - и вот многое работает так: жмешь кнопку - например переименование, создание итд а результат виден лишь после нажатия cm_Rereadsource



Добавлено:

Цитата:

mig73, слушай, чего то не открывает папку то... не в активной не в другой

%WL "%P" Photo 0 - верно?

все, решено "В ряде скриптов рабочим каталогом служит папка активной панели, поэтому рекомендуется очищать поле "Путь запуска". " спасибо forum.wincmd.ru и Flasherу


Добавлено:
вот еще вопрос - создал шаблон в Инструменте группового переименования, запилил кнопку к примеру

TOTALCMD#BAR#DATA
MULTIRENAME В папке - В подпапке

wcmicons.dll,77
В папке - Год - В подпапке

0
-1

как сделать, чтобы выполнялось БЕЗ открытия окошка ГП? т.е. все переименовалось в ОДИН клик

Намедни решил пощупать версию 7.57a в надежде на исправление багов. Сначала обрадовался, т.к. листер стал корректно отображать длинные строки в кодировке UTF-8, и заработала смена времени всех выделенных файлов по нажатию кнопки "Load from file under cursor", но каково же было моё разочарование, когда я попробовал создавать/удалять/переименовывать папки – отрисовка файловой панели после данных действий происходит чуть ли не попиксельно (в своё время по этой причине остановился на версии 7.04a). Подскажите, есть ли смысл качать v8.51a? Спрашиваю потому, что Гислер от описанного бага открещивался.

FalseMaster 02:30 12-08-2014
Цитата:

Подскажите, есть ли смысл качать v8.51a?

Вы сидите на модемной связи и вынуждены платить трудовую копейку за каждый скачанный байт? Если нет, то тогда однозначно есть смысл скачать и проверить, тем более, что описанный вами баг - это что-то очень индивидуальное.
Маленький намёк: скачать последнюю версию TC и проверить её на наличие этого бага заняло бы столько же времени, сколько написание вашего поста, не говоря уж про ожидание ответа. А может, даже и меньше (опять же, если вы не телефонном модеме)

Скачать 6 метров (это 32+64 бит) даже на телефонном модеме (dial up или GPRS) в любом случае быстрее, чем написать сюда и дождаться ответа. Да и если "решил пощупать версию" - логичнее щупать последнюю версию, финал хотя бы.

FalseMaster
Надеюсь, щупалась оригинальная версия, а не чья-то сборка? И, надеюсь, с чистым INI-файлом поведение тоже проверялось?
И в любом случае, как тут уже заметили, если обновляться, то сразу на последнюю доступную версию.

Цитата:

Вы сидите на модемной связи и вынуждены платить трудовую копейку за каждый скачанный байт?..

Нет конечно. Я вопрос задал с учётом того, что помимо скачки придётся долго и упорно ковыряться в конфиге и чейнджлоге, а мне уже спать пора было. Но после написания поста на пути в люльку качнул и проверил v8.51a с чистым INI-файлом – та же история… Если честно, я надеялся, что кто-то что-то подскажет (вдруг какие скрытые настройки появились). Но нет так нет, буду пользоваться последней более-менее приличной версией – 7.04a, ибо этот баг появился начиная с 7.50 Beta 1.

Цитата:

описанный вами баг - это что-то очень индивидуальное.

А как же баг-репорт по ссылке в предыдущем посте, где Гислер прикинулся шлангом?

Цитата:

Надеюсь, щупалась оригинальная версия, а не чья-то сборка? И, надеюсь, с чистым INI-файлом поведение тоже проверялось?

Именно так.

Можно ли как-то запретить Quick View для директорий? За последние 15 лет ниразу не пригодилось, а вот мешает частенько: смотришь, значит, быстрым просмотром файлы, забываешь его отключить, выходишь из директории и TC начинает рассчитывать её размер и всё такое, что для больших директорий зачастую означает зависание TC наглухо секунд на 20...

Добавлено:
И такая проблема: при копировании/переносе больших объёмов данных (десятков гигабайт) в какой-то момент что-то затыкается и скорость падает до очень маленькой (единицы тысячь вместо десятков тысячь килобайт в секунду). ОС - Win7 32-bit. Если делать то же самое на том же компе под XP нормальная скорость поменьше, но и затыка этого и перехода на очень маленькую не происходит. UltraCopier всё то же самое и под Семёркой копирует/переносит без проблем. Может есть какой твик для изменения параметров копирования/переноса чтобы это победить? Антивирусник выключен - не в нём дело.

grayfog 03:44 13-08-2014
Цитата:

Можно ли как-то запретить Quick View для директорий?.. выходишь из директории и TC начинает рассчитывать её размер и всё такое, что для больших директорий зачастую означает зависание TC наглухо секунд на 20...

Отключить быстрый просмотр (ещё раз нажать Ctrl+Q) сразу же прерывает этот процесс. Если этого не происходит, значит, дело в плагинах (IEView, VisualDirSize и т.п.)


Цитата:

при копировании/переносе больших объёмов данных (десятков гигабайт) в какой-то момент что-то затыкается и скорость падает до очень маленькой (единицы тысячь вместо десятков тысяч килобайт в секунду)... Может есть какой твик для изменения параметров копирования/переноса чтобы это победить?

Можно попробовать использовать копирование через системный Проводник (в настройках TC: Preferences => Copy/Delete => Use copy+paste via Explorer). Есть и ещё всякие тонкие настройки.
Но, скорее всего, в описанном вами случае не скорость копирования падает, а просто индикатор (прогресс-бар) неравномерно работает. Это уже много раз обсуждалось тут в топике. Самое простое решение: вообще не смотреть на индикатор в ходе копирования, а закрыть глаза и дождаться завершения процесса

oshizelly

Цитата:

Отключить быстрый просмотр (ещё раз нажать Ctrl+Q) сразу же прерывает этот процесс.

Спастибо, проверю.


Цитата:

Но, скорее всего, в описанном вами случае не скорость копирования падает, а просто индикатор (прогресс-бар) неравномерно работает.

Нет. Во-первых начинает сильно тупить вся система и в нормальный режим возвращается только перезагрузкой. Во-вторых вряд ли прогресс-бар показывал бы, скажем, 15% когда 100 гигов ( нет, не миллиарды маленьких файлов, а просто коллекция фильмов, например) копировались всю ночь и процесс на самом деле завершён.

Гислер выкладывает upx-версию 64-битного ТС? По ссылке http://www.ghisler.com/packed_download/ только 32-битная лежит.

spirit21
UPX до недавнего времени не умел жать 64-битные файлы, только в 3.91 (30 Sep 2013) добавлено в порядке эксперимента.

Цитата:

UPX до недавнего времени не умел жать 64-битные файлы, только в 3.91 (30 Sep 2013) добавлено в порядке эксперимента.

То есть нет?