Групповое переименование

[sa]

parkone

См. описание ключа MultiRenameLoadSettings (файл wincmd.ini).

[Avada]

parkone
Кроме того, см. правила форума. Сначала ищем ответ в справке, потом задаём вопросы (если они останутся).

[parkone]

MultiRenameLoadSettings

Спасибо, то что нужно! Я просматривал файл wincmd.ini предварительно, но там этого параметра не было, теперь добавил, работает.

Кроме того, см. правила форума. Сначала ищем ответ в справке, потом задаём вопросы (если они останутся).

Я когда искал ответ, Ваши напоминания чаще видел, чем полезные ответы. Не все ведь знают где искать, поискал и не нашел, за направлением поиска я и обратился.

[Avada]

Я просматривал файл wincmd.ini предварительно, но там этого параметра не было, теперь добавил, работает.

Просмотр wincmd.ini был пустой тратой времени, нужного ключа по умолчанию там быть не могло: отстутствие ключа разнозначно его применению со значением по умолчанию.

Я когда искал ответ, Ваши напоминания чаще видел, чем полезные ответы. Не все ведь знают где искать, поискал и не нашел, за направлением поиска я и обратился.

Направление поиска ясно задано (со ссылками) в универсальном полезном ответе — уже упоминавшемся пункте 12 правил форума, соблюдение которых, кстати, здесь является обязательным. Повторять на форуме то, что есть в справке и вполне доступно для прочтения, здесь никто не обязан. Источник — этот раздел. Ctrl+F. Поисковая строка — хотя бы шаблон. Искомый ключ отыскивается немедленно, он по порядку вхождений первый.
А для полного комплекта ещё пункт 4 тех же правил рекомендую уяснить. Дискуссия закончена.

[Iori]

Serge Yolkin

А что нужно в вашем скрипте добавить или изменить что-бы он тоже самое делал с папками?

http://forum.wincmd.ru/viewpost.php?p=96752

Код: Выделить всё

TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\Utilities\Lst2Str\ReReName.wsf"
%S
shell32.dll,66
...

1
-1

[Flasher]

Iori, vbs устроит? По следам этого скрипта:

Код: Выделить всё

'============================================================================= 
' Добавить/убрать спереди имён выбранных в панели элементов знак подчёркивания 
' Параметр: %WL 
'============================================================================= 
If WScript.Arguments.Count = 0 Then WScript.Quit
With CreateObject("Scripting.FileSystemObject") 
  On Error Resume Next 
  For Each F in Split(.GetFile(WScript.Arguments(0)).OpenAsTextStream(1, -1).ReadAll, vbNewLine) 
    FN = .GetFileName(F) : If InStr(FN, "_") = 1 Then NN = Mid(FN, 2) Else NN = "_" & FN 
    If .FileExists(F) Then .GetFile(F).Name = NN Else .GetFolder(F).Name = NN 
  Next 
End With : CreateObject("WScript.Shell").SendKeys "^R"

[Iori]

Flasher

Спасибо. конечно vbs устроит.
Скрипт хорошо работает с файлами, но с папками небольшая проблемма.

Если название папки Папка 6.2.2, то скрипт изменит её в _Папка 6.2 То есть скрипт пропускает всё после последний точки.

[Flasher]

Iori
Да, поспешил немного. Исправил.

[Iori]

Flasher

Сейчас скрипт работает на папки тоже, но не всегда.

Это конечно не кретично, но например скрипт не может повлеять на папку ТC. Папка забирает 3.52ГБ и содержит 3248 файлов и ещё кучу sub директорий.

[Flasher]

Iori
В таком случае её и простым способом нельзя переименовать во время работы ТС.

В скрипте был лишний код, убрал.

[Iori]

Flasher

В том то и дело что это не рабочая папка ТС, а моя папка со сборками.

[Flasher]

Iori
Дела.. А из ТС папка нормально переименовывается?
И как с этим справляется команда cmd /c ren <имя папки> _<имя папки>?

[Iori]

Flasher

А из ТС папка нормально переименовывается?

Да.

Кнопка такого рода справляется с задачей тоже.

Код: Выделить всё

TOTALCMD#BAR#DATA
cmd /c
ren %N _%N
shell32.dll,134
Rename Folder / File Under Cursor into _FileName

1
-1

EDIT:

В скрипте был лишний код, убрал.

Вот это помогло. Теперь всё работает на ура.
Спасибо за вашу помощь

[Serge Yolkin]

Немного опаздал, но всё же:

Код: Выделить всё

<?xml version="1.0" standalone="yes" encoding="utf-8"?>
<job id="rrn" version="0.1">
  <object id="f" progid="Scripting.FileSystemObject" />
  <script type="text/jscript" language="JScript"><![CDATA[
    for(var i=0;i<WScript.Arguments.length;i++){
      if(f.fileExists(WScript.Arguments(i))){
        if(f.getFile(WScript.Arguments(i)).name.substring(0,1)=='_'){
          f.getFile(WScript.Arguments(i)).name=
           WScript.Arguments(i).substring(1);
        }else f.getFile(WScript.Arguments(i)).name='_'+WScript.Arguments(i);
      }else if(f.folderExists(WScript.Arguments(i))){
        if(f.getFolder(WScript.Arguments(i)).name.substring(0,1)=='_'){
          f.getFolder(WScript.Arguments(i)).name=
           WScript.Arguments(i).substring(1);
        }else f.getFolder(WScript.Arguments(i)).name='_'+WScript.Arguments(i);
      }
    }
  ]]></script>
</job>

[Koter]

Есть папка: folder
в ней есть файлы:
file.decrypted01.doc
file1.decrypted01.rar
file232.decrypted01.dbf
file3.decrypted01.pdf
file4.decrypted01.xls
file5.decrypted01.sft
file6.decrypted01.r01
file.doc
file1.rar
file232.dbf
file3.pdf
file4.xls
file5.sft
file6.r01


НАДО: выбрать файлы
file.decrypted01.doc
file1.decrypted01.rar
file232.decrypted01.dbf
file3.decrypted01.pdf
file4.decrypted01.xls
file5.decrypted01.sft
file6.decrypted01.r01

Переименовать их в
file.doc
file1.rar
file232.dbf
file3.pdf
file4.xls
file5.sft
file6.r01

С заменой тех которые есть в этой папке...