Total Commander

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

@ECHO off
SETLOCAL enabledelayedexpansion

for /f "tokens=1,2 delims== usebackq" %%i in ("%~dp0..\Bars\_TEMP.bar") do IF /i "%%i"=="Buttoncount" set tcPlusCOUNT=%%j

if DEFINED tcPlusCOUNT goto m2
goto m100
:m2
for /f "tokens=1,2 delims=> usebackq" %%i in ("%~dp0..\Bars\%2.bar") do (
	if /i "%%j"=="%1" (
		set tcPlusPARAM=%%i& set tcPlusPARAM=!tcPlusPARAM:~5,2!
		if "!tcPlusPARAM:~-1!"=="=" set tcPlusPARAM=!tcPlusPARAM:~0,1!
	)
)

if defined tcPlusPARAM goto m3
goto m100
:m3
set /a tcPlusCOUNT=%tcPlusCOUNT%+1

If !tcPlusPARAM! LSS 10 (Set tcPlusPOZ=1) Else Set tcPlusPOZ=2

echo. 2>"%~dp0TEMPTOCOPY.TXT"
( echo.
for /f "tokens=1,2 delims== usebackq" %%i in ("%~dp0..\Bars\%2.bar") do (
	set tcPlusTEST=%%i
	if /i "!tcPlusTEST:~-%tcPlusPOZ%!"=="!tcPlusPARAM!" (
		rem echo.
		echo !tcPlusTEST:~0,-%tcPlusPOZ%!%tcPlusCOUNT%=%%j
		set tcPlusFIND=1
	)
))>>"%~dp0TEMPTOCOPY.TXT"

if DEFINED tcPlusFIND goto m1
del /f /q "%~dp0TEMPTOCOPY.TXT"
goto m100
:m1


type "%~dp0TEMPTOCOPY.TXT">>"%~dp0..\Bars\_TEMP.bar"
del /f /q "%~dp0TEMPTOCOPY.TXT"

call "%~dp0nircmdc.exe" inisetval "%~dp0..\Bars\_TEMP.bar" "Buttonbar" "Buttoncount" "%tcPlusCOUNT%"

:m100
rem удаление переменных
For %%i In (tcPlusCOUNT tcPlusTEST tcPlusFIND cPlusNIRCMDC tcPlusPARAM) Do Set %%i=

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

'============================= VBS ==============================
' Удалить с панелей инструментов кнопку по коду из буфера обмена

' Параметры: "<путь к каталогу c BAR-файлами>" <имена BAR-файлов>
' Пример:    "%%COMMANDER_PATH%%\ButtonBars" Default.bar User.bar

' Автор - Flasher ©
'================================================================

Option Explicit
Dim Arg, Cnt, WSH, C, K, Clip, Keys, FSO, Path, Src, FPath, Chek

Set Arg = WScript.Arguments : Cnt = Arg.Count
If Cnt < 2 Then Msg "Укажите не менее 2-х параметров!", 4144
C = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
Set WSH = CreateObject("WScript.Shell")
With WSH
  On Error Resume Next
  K = .RegRead(C) : If K > 0 Or Err.Number <> 0 Then .RegWrite C, 0, "REG_DWORD"
  Clip = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
  If K > 0 Then .RegWrite C, K, "REG_DWORD"
  On Error Goto 0
End With
If Trim(Clip) = "" Then _
Msg "Буфер обмена не содержит текстовых данных!", 4144
C = Split(Clip, vbNewLine) : If C(0) <> "TOTALCMD#BAR#DATA" Then _
Msg    "В буфере обмена отсутствует код кнопки!", 4144

With New RegExp
  .Global = True : .Pattern = "([\$\(\)\*\+\.\[\?\^\{\|\\])"
  For K = 1 to 6
    C(K) = .Replace(C(K), "\$1")
    If Left(C(K), 1) = """" Then C(K) = """" & C(K) & """"
  Next : .Global = False
End With : Keys = "(cmd|param|button|menu|path|iconic)"
Set FSO = CreateObject("Scripting.FileSystemObject")
Path = WSH.ExpandEnvironmentStrings(Arg(0))
Src  = "^(Buttoncount=)[1-9][0-9]*$"
For K = 1 To Cnt - 1
  FPath = FSO.BuildPath(Path, Arg(K))
  If FSO.FileExists(FPath) Then Repl FPath, Chek
Next : If Chek Then _
Msg "Кнопка удалена со всех заданных панелей инструментов!", 4160
Msg  "Кнопка отсутствует на заданных панелях инстурментов!", 4144

Sub Msg(Text, Num)
  MsgBox Text, Num, " Удаление кнопки c панелей инструментов ТС      "
  WScript.Quit
End Sub

Sub Repl(BarFile, Test)
  Dim All, Count, n, i
  All = FSO.OpenTextFile(BarFile).ReadAll
  With New RegExp
    .Multiline = True : .Pattern = Src
    Count = Split(.Execute(All)(0),"=")(1)
    For n = 1 To Count
      .Pattern = "^cmd" & n & "=" & C(1) & "$"
      If .Test(All) Or C(1) = "" Then
        .Pattern = "^param" & n & "=" & C(2) & "$"
        If .Test(All) Or C(2) = "" Then
          .Pattern = "^button" & n & "=" & C(3) & "$"
          If .Test(All) Or C(3) = "" Then
            .Pattern = "^menu" & n & "=" & C(4) & "$"
            If .Test(All) Or C(4) = "" Then
              .Pattern = "^path" & n & "=" & C(5) & "$"
              If .Test(All) Or C(5) = "" Then
                .Pattern = "^iconic" & n & "=" & C(6) & "$"
                If .Test(All) Or C(6) = "" Then
                  .Pattern = Src : All = .Replace(All, "$1" & Count - 1)
                  .Global = True : .Pattern = "(\r?\n|^)" & Keys & n & "=.*$"
                  All = .Replace(All, "") : Test = 1
                  For i = n + 1 To Count
                    .Pattern = "^" & Keys & i & "(=.*)$"
                    All = .Replace(All, "$1" & i - 1 & "$2")
                  Next : Count = Count - 1 : .Global = False
                End If
              End If
            End If
          End If
        End If
      End If
    Next
    If Test Then
      With FSO.OpenTextFile(BarFile, 2) : .Write All : .Close : End With
    End If
  End With
End Sub

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

'============================= VBS ==============================
' Удалить с указанных панелей инструментов последнюю кнопку

' Параметры: "<путь к каталогу c BAR-файлами>" <имена BAR-файлов>
' Пример:    "%%COMMANDER_PATH%%\ButtonBars" Default.bar User.bar

' Автор - Flasher ©
'================================================================

Option Explicit : Dim Title, Arg, Cnt, Path, FSO, Par, FPath, Chek
Title = " Удаление последней кнопки c панелей инструментов      "
Set Arg = WScript.Arguments : Cnt = Arg.Count
If Cnt < 2 Then MsgBox "Укажите не менее 2-х параметров!", 4144, Title
Path = CreateObject("WScript.Shell").ExpandEnvironmentStrings(Arg(0))
Set FSO = CreateObject("Scripting.FileSystemObject")
For Par = 1 To Cnt - 1
  FPath = FSO.BuildPath(Path, Arg(Par))
  If FSO.FileExists(FPath) Then Repl FPath, Chek
Next : If Chek Then _
MsgBox "Кнопка удалена со всех заданных панелей инструментов!", 4160, Title

Sub Repl(BarFile, Test)
  Dim All, Count : All = FSO.OpenTextFile(BarFile).ReadAll : Test = 1
  With New RegExp
    .Multiline = True : .Pattern = "^(Buttoncount=)[1-9][0-9]*$"
    Count = Split(.Execute(All)(0),"=")(1) : All = .Replace(All, "$1" & Count - 1)
    .Global = True : .Pattern = "\r?\n(cmd|param|button|menu|path|iconic)" &_
    Count & "=.*$" : All = .Replace(All, "")
  End With : With FSO.OpenTextFile(BarFile, 2) : .Write All : .Close : End With
End Sub