Total Commander

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

'========================================================================= 
' Выделить элементы с заданным интервалом, начиная с элемента под курсором

' Необходима регистрация Script Helper ActiveX for TC

' Параметры: %N <режим выделения> <шаг>
' Режим выделения: 1 - всё; 2 - только файлы; 3 - только папки
' Пример: %N 2 5
'========================================================================= 
On Error Resume Next
With WScript.Arguments
  Start = .Item(0)
  Mode  = .Item(1)
  Step  = .Item(2)
End With

Set D = CreateObject("Scripting.Dictionary") 
With CreateObject("TCScript.Helper")
  .LockTC True
  T = .GetTextFromClip
  .SendCommand 330&Mode
  List = .GetSrcSelectedFiles(0)
  UL = UBound(List)
  .SendCommand 524
  i = 0
  For Each F in List
    D.Add F, i
    i = i + 1
  Next
  If Abs(UL) >= Abs(Step) Then
    For n = D.Item(Start) To UL
      Sp = Sp & List(n) & vbNewLine
      n = n + Step
    Next
    .SetTextToClip CStr(Sp)
    .SendCommand 2033, True
  End If
  .SetTextToClip(T)
  .LockTC False
End With
Set D = Nothing
WScript.Quit

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

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\TCMC\TCMC.exe
cm540 cm2026 cm543 cm2023 cm524 cm537 cm2053 cm525
WCMICONS.DLL,70
Выделить в подкаталогах дубликаты файла под курсором по имени+расширению


-1

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

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe
/ef  "run_item(locktc, 1) tcm(540) tcm(2026) tcm(543) tcm(2023) tcm(524) tcm(537) tcm(2053) tcm(525) run_item(locktc, 0) run_item(update)"
WCMICONS.DLL,70
Выделить в подкаталогах дубликаты файла под курсором по имени+расширению


-1

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

'================================================================
'  Описание:  Выделить дубликаты файла под курсором,
'            находящиеся в папке и подпапках пассивной панели.
'             Имя файла может быть дополнено маской,
'            задаваемой вторым параметром скрипта. Например,
'            строка параметров %P%N%Z * позволит выделить файлы
'            с именами, начинающимися с имени файла под курсором.
' Параметры: %P%N%Z [маска]
'Требования: Необходима регистрация WSH Helper for TC by Volniy
'================================================================
Option Explicit
Dim FSO, TCS, P_N, P_N_Suf, PosPnt, PasDir, TextClip
If WScript.Arguments.Count < 1 Then
  MsgBox "Не указаны параметры: %P%N%Z", _
   vbOKOnly + vbCritical, "Выделение дубликатов файла"
  WScript.Quit
End If
P_N = WScript.Arguments(0)
PosPnt = InStrRev(P_N,".")
If WScript.Arguments.Count > 1 Then
   If PosPnt > InStrRev(P_N,"\") Then
      P_N_Suf = Mid(P_N, 1, PosPnt - 1) & WScript.Arguments(1) _
       & Mid(P_N, PosPnt)
   Else
      P_N_Suf = P_N & WScript.Arguments(1)
   End If
Else
   P_N_Suf = P_N
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(P_N) or InStrRev(P_N,"\") = Len(P_N) Then
  MsgBox "Курсор должен располагаться на файле", _
   vbOKOnly + vbCritical,  "Выделение дубликатов файла"
  Set FSO = Nothing
  WScript.Quit
End If
Set TCS = CreateObject("TCScript.Helper")
TextClip = TCS.GetTextFromClip
TCS.LockTC True
TCS.SendKeystroke "{TAB}"
TCS.SendCommand  "cm_RereadSource", True
PasDir = TCS.GetSrcPath
TCS.SendCommand "cm_DirBranch", True
TCS.SetTextToClip "*""" & Mid(P_N_Suf, InStrRev(P_N_Suf,"\") + 1) & """"
TCS.SendCommand "cm_LoadSelectionFromClip", True
TCS.SendCommand "cm_ShowOnlySelected", True
If InStr(LCase(P_N), LCase(PasDir)) = 1 Then
   TCS.SetTextToClip Mid(P_N, Len(PasDir) + 2)
   TCS.SendCommand "cm_LoadSelectionFromClip", True
   TCS.SendCommand "cm_ExchangeSelection", True
End If
TCS.SendKeystroke "{TAB}"
TCS.LockTC False
TCS.SetTextToClip(TextClip)
Set FSO = Nothing
Set TCS = Nothing
Wscript.Quit

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

TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\VBS\Выделить дубликаты на пассивной панели.vbs"
%P%N%Z
WCMICONS.DLL,70
Выделить дубликаты на пассивной панели


-1

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

'=============================================================
' Выделить файлы, одноразмерные с первыми в группах дубликатов
' Параметр: %P
'=================== Путь к утилите TCFS2 ====================
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'=============================================================
If WScript.Arguments.Count Then WScript.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
R = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
With CreateObject("WScript.Shell")
  .Run TCFS2 & " /ef msg($0B,0) tcm(3302) tcm(2018) tcm(3304)",,True
  On Error Resume Next
  A = .RegRead(R) : If A > 0 Or Err.Number <> 0 Then .RegWrite R, 0, "REG_DWORD"
  List = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
  For Each F in Split(List, vbNewLine)
    Size1 = FSO.GetFile(F).Size
    If CStr(Size1) = CStr(Size2) Then S = S & vbNewLine & F
    Size2 = Size1
  Next : Temp = CreateObject("Shell.Application").NameSpace(._
  Environment("Process")("TEMP")).Self.Path & "\" & FSO.GetTempName
  FSO.CreateTextFile(Temp,,True).Write S
  .Run "%comspec% /c clip < """ & Temp & """", 0, True
  .Run TCFS2 & " /ef msg($0B,1) tcm(2033)"
  .Run "%comspec% /c type|clip ", 0
  FSO.DeleteFile Temp, 1 : If A > 0 Then .RegWrite R, A, "REG_DWORD"
End With