Total Commander

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

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

.

Есть. SCP.

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

.

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

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

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

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

Простенький? Без 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 писал(а):переменная будет задаваться через авторан

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

спасибо

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

спасибо

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

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

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

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

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

.

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

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

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

Total Commander

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

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