Total Commander

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

'===============================================================
' Affix rename (by helb)
' Add prefix and/or suffix to each file/dir in a list (UTF-16 encoded): 
' ‘:’ — prefix-suffix separator (e.g. “:suffix” or “prefix:suffix”)
' Добавляет префикс и/или суффикс к каждому файлу/папке в списке
' ‘:’ — разделитель префикса и суффикса
'
' Parameters: <listfile (UTF-16)> [<suggestion>]
' Total Commander parameters: %WL "%O"
'===============================================================
Option Explicit 
dim FSO, F, fobj, name, prefix, suffix, list, confirmed
set FSO = CreateObject("Scripting.FileSystemObject") 

if WScript.Arguments.length = 0 then
	WScript.Echo("No parameters specified")
	WScript.Quit
end if
if FSO.FileExists(WScript.Arguments(0)) then
	List = WScript.Arguments(0)
else
	WScript.Echo("No list")
	WScript.Quit
end if

if WScript.Arguments(1) <> "" then name = WScript.Arguments(1)
name = InputBox("Enter affix (use ‘:’ to denote suffix)", "Rename", name)
if name = "" then WScript.Quit

name = Split(name, ":")
prefix = name(0)
if Ubound(name) < 1 then suffix = "" else suffix = name(1)

for each F in Split(FSO.OpenTextFile(List, 1, false, -1).ReadAll, vbNewLine)
	if F <> "" then
		set fobj = getObj(F)
		if not fobj is nothing then
			name = fobj.ParentFolder.Path & "\" & prefix & FSO.GetBaseName(F) & suffix & "." & FSO.GetExtensionName(F)
			if objExists(name) > 0 and confirmed = Empty then
				confirmed = MsgBox("Name conflict. Overwrite all? (“No” to skip all)" & vbCrLf & "Note: overwriting folders will delete contents", vbExclamation + vbYesNoCancel, "Confirm")
				if confirmed = vbCancel then exit for
			end if
			if objExists(name) > 0 and confirmed = vbYes or objExists(name) = 0 then
				if objExists(name) > 0 then getObj(name).Delete
				fobj.Move(name)
			end if
		end if
	end if
next

WScript.Quit

function getObj(fl)
	if FSO.FileExists(fl) then
		set getObj = FSO.GetFile(fl)
	elseif FSO.FolderExists(fl) then
		set getObj = FSO.GetFolder(fl)
	else
		set getObj = nothing
	end if
end function

'0=not exists, 1=is file, 2=is folder
function objExists(name)
	if FSO.FileExists(name) then 
		objExists = 1
	elseif FSO.FolderExists(name) then
		objExists = 2
	else
		objExists = 0
	end if
end function

function getNewName(name)
	if Right(name, Len(ext)) = ext then getNewName = Left(name, Len(name) - Len(ext)) else getNewName = name & ext
end function

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

<job>
  <object id="f" progid="Scripting.FileSystemObject" />
  <script type="text/jscript" language="JScript"><![CDATA[
    var a=WScript.Arguments,b,c='';
    for(var i=0;i<a.length;i++){
      if(f.fileExists(a(i)))b=f.getFile(a(i));
      else if(f.folderExists(a(i)))b=f.getFolder(a(i));
      b.name=a(i).replace(/\s+/g,'.');
    }
  ]]></script>
</job>

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

'============================== VBS =============================
' Переименовать выбранные элементы с помощью регулярных выражений

' Параметры: %WL <строка поиска> <строка замены>
' /i  —  ключ отключения зависимости от регистра
'================================================================
Option Explicit
Dim C, List, S, R, REx, F, N, IsFold, Ln, BN, Ext, Path, FN, i
With WSH.Arguments
  C = .UnNamed.Count : If C = 0 Then WSH.Quit
  If C <> 3 Then MsgBox "Следует указать 3 параметра!",_
  4144, Space(12) & "Ошибка вводных данных" : WSH.Quit
  List = .Item(0) : S = .Item(1) : R = .Item(2)
  C = .Named.Exists("i")
End With: Set REx = New RegExp: REx.Global = 1
REx.Pattern = S : If C Then REx.IgnoreCase = 1

With CreateObject("Scripting.FileSystemObject")
  Set List = .OpenTextFile(List,,,-1)
  Do : F = List.ReadLine : N = .GetFileName(F) : IsFold = Right(F, 1) = "\"
    If IsFold Then Ln = Len(F) - 1 : BN = N Else Ln = Len(F) :_
    BN = .GetBaseName(F) : Ext = .GetExtensionName(F) :_
    If Len(Ext) Then Ext = "." & Ext
    Path = "\\?\" & .GetParentFolderName(F) & "\"
    If Ln > 259 Then F = "\\?\" & F
    BN = REx.Replace(BN, R) : FN = BN & Ext : i = 0
    While (.FileExists(Path & FN) OR .FolderExists(Path & FN)) And FN <> N
    i = i + 1 : FN = BN & " (" & i & ")" & Ext : Wend : If FN <> N Then _
    If IsFold Then .GetFolder(F).Name = FN Else .GetFile(F).Name = FN
  Loop Until List.AtEndOfStream
End With : CreateObject("WScript.Shell").SendKeys "^r"

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

([^\(|^\[])(\s+)((?!\)|\]))

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

TOTALCMD#BAR#DATA
%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe /ef "set_ini(`%COMMANDER_PATH%\usercmd.ini`, em_temp, cmd,
`MULTIRENAME Точки между словами, где пробелы`) tem(em_temp) delay(500) send(`{ENTER}`, findwnd(`TMultiRename`)) delay(500) send(`{ESC}`, findwnd(`TMultiRename`))"
WCMICONS.DLL,46
Мультипереименовать по шаблону "Точки между словами, где пробелы"


-1