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

KopBuH · Сообщение **KopBuH** » Сб янв 26, 2013 16:17

Avada писал(а):KopBuH
По-моему, всё определяется ответом на простой вопрос: есть ли в наличии WDX-плагины, умеющие работать с переменными?

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

.

Flasher

Есть. SCP.

KopBuH · Сообщение **KopBuH** » Сб янв 26, 2013 17:17

а других решений нет?, плагин вроде только под x86?, да и в VBS скриптах я не шарю

.

Flasher

Пока других нет (если говорить исключительно об ИГП). Да, 32 bit.
А какие вообще переменные могут понадобиться?

KopBuH · Сообщение **KopBuH** » Сб янв 26, 2013 17:31

Flasher писал(а):Пока других нет. Да, 32 bit.

не хочу показаться наглым, но можно попросить тебя набросать простенький скрипт, чтобы он переименовывал выделенные файлы, примерно в таком формате: "имя_файла_переменная1"?
если это не очень сложно

переменная будет задаваться через авторан, типо "RenameTemplate1"

Flasher

Простенький? Без SCP? Да легко:

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

'======================================================================== 
' Добавить/убрать у имён выбранных в панели элементов переменную среды
' Параметры: %WL <переменная среды> 
' Пример:    %WL %%USERNAME%%
'======================================================================== 
With WScript.Arguments 
  If .Count = 0 Then WScript.Quit 
  List = .Item(0) : Var = .Item(1) 
End With
Var = CreateObject("WScript.Shell").ExpandEnvironmentStrings(Var)
With CreateObject("Scripting.FileSystemObject")
  On Error Resume Next
  For Each F in Split(.GetFile(List).OpenAsTextStream(1, -1).ReadAll, vbNewLine) 
    FN = .GetFileName(F)
    If .FileExists(F) Then
      Ext = .GetExtensionName(F) : Test = InStrRev(FN, "_" & Var & "." & Ext)
      If Test Then NN = Left(FN, Test - 1) & "." & Ext Else NN = .GetBaseName(F) & "_" & Var & "." & Ext
      .GetFile(F).Name = NN
    Else
      Test = InStrRev(FN, "_" & Var)
      If Test Then NN = Left(FN, Test - 1) Else NN = .GetBaseName(F) & "_" & Var
      .GetFolder(F).Name = NN
    End If
  Next 
End With

KopBuH писал(а):переменная будет задаваться через авторан

Вот тут особенно интересует, что же это за переменные, которые нельзя получить из контентных плагинов?

KopBuH · Сообщение **KopBuH** » Сб янв 26, 2013 18:02

спасибо

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

Добавлено спустя 5 минут:

вообщем, обьясняю смысл этого шаманства:
я очень часто занимаюсь восстановление информации с битых флешек и т.п.
и вот скажем восстановил я 300 файлов DOC, XLS, и JPG. потом я каждый из открываю, если не открывается - переименовываю как "Имя файла_bad", чтобы потом знать, какие файлы битые. теперь я хочу добаить эту функцию в сборку, поэтому нужен скрипт для автоматизации процесса. задаю в ini файле шаблоны, создаю переменные с ними через авторан, и запускаю твой скрипт - ура, все быстро и не надо каждый раз жать CTRL+M и Enter

Добавлено спустя 3 минуты:

можно конечно всё это сделать и через cmd.exe, но ведь скриптом легче

Flasher

ОК, поправил скрипт.

KopBuH писал(а):если не открывается - переименовываю как "Имя файла_bad

А переменные из UnicodeTest/LockedTest не устраивают?

KopBuH · Сообщение **KopBuH** » Сб янв 26, 2013 18:34

Flasher писал(а):ОК, поправил скрипт.

KopBuH писал(а):если не открывается - переименовываю как "Имя файла_bad
А переменные из UnicodeTest/LockedTest не устраивают?

а что он выдает?, например на битом .doc он показывает ANSI

Добавлено спустя 6 минут:

а, кажется понял. нужно в поиске задавать =ошибка
ну, а отображение в панелях видимо пока не реализовано.

Добавлено спустя 3 минуты:

но опять же, битый вордовский файл он не находит по поиску в текущем каталоге, с поиском по "Тест юникодности=Ошибка"

Flasher

Ну, как-то так. А тест доступности не устраивает? Он только, похоже, записи касается, а не чтения.
Правка устроила хоть?

KopBuH писал(а):битый вордовский файл он не находит по поиску в текущем каталоге

Мы тут вроде ИГП рассматриваем, а не поиск.

KopBuH · Сообщение **KopBuH** » Сб янв 26, 2013 18:41

Flasher писал(а):Ну, как-то так. А тест доступности не устраивает?

пользуюсь, устраивает

(но он же для других целей сделан)))

Flasher писал(а):Правка устроила хоть?

спасибо

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

Flasher

KopBuH писал(а):спасибо , добавлю благодарность тебе рядом с функцией в списке изменений.

Пожалуйста. В каком списке? Это ж вроде для частных целей.

KopBuH · Сообщение **KopBuH** » Сб янв 26, 2013 18:50

Flasher писал(а):
KopBuH писал(а):спасибо , добавлю благодарность тебе рядом с функцией в списке изменений.
Пожалуйста. В каком списке? Это ж вроже для частных целей.

да, для личных. но я также автор TechAdmin, ты же помнишь

.

Flasher

Именно поэтому не понимаю, о каком списке речь. Ну, ладно, оставим оффтоп.

А автора UnicodeTest нужно просить, чтобы возвращал ошибку отдельным полем. Тогда можно чётко использовать и в ИГП и в колонках.

parkone

При перезапуске tc параметры переименования сбрасываются в состояние по умолчанию.
Как сделать чтобы при каждом вызове окна группового переименования были загружены параметры переименования одного из сохраненных профилей?
Здесь видел обсуждение скриптов, которые запускают один из профилей, но это несколько не то что нужно. Нужно чтобы определенный профиль автоматически загрузился при вызове окна и дальше я мог с минимальными телодвижениями его выполнить. Иногда параметры только изменить, а не:
1) щелкать постоянно на этот профиль в окошке по F2,
2) потом менять параметры при необходимости
3) и только потом его выполнять.
Т.е. в большинстве случаев 1 и 2 этапы не востребованы.

Total Commander

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

Сохранить параметры группового переименования по умолчанию