Модераторы: Avada, CaptainFlint, Nik, d-view, Моторокер
В принципе вы правы. Скрипт находит пробелы и знаки подчёркивания и меняет их на точки, просто две точки это не эстетично выглядитА про 2 точки - с точки зрения логики и исходной задачи так и должно быть.
Ну да ладно, такое редко встречается 
.Это как раз-таки не проблема для исходной задачи: %WL ([^\[\(])[_\s]+([^\]\)]) $1.$2Iori писал(а):просто две точки это не эстетично выглядит
Скорее всего, подгоняться пользователем будут только параметры, а не сам скрипт.Iori писал(а):Плюс его можно под себя подгонять.
Это и имелось в виду. Но и сам скрипт никто не мешает подгонять под себя. И пользователь здесь вполне конкретный, а не абстрактный.sa писал(а):Скорее всего, подгоняться пользователем будут только параметры, а не сам скрипт.
Фактора здесь как минимум два. И второй, где всё происходит без появления окна, ничуть не менее важен.sa писал(а):возможность внесения изменений в содержимом одной кнопки ... может стать для кого-то решающим фактором.
Код: Выделить всё
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(`{TAB 2}`, findwnd(`TMultiRename`))
send(@`([^\[\(])[_\s]+([^\]\)])`, findwnd(`TMultiRename`)) send(`{TAB}`, findwnd(`TMultiRename`)) send(@`$1.$2`, findwnd(`TMultiRename`)) send(`{TAB 3} {Tab} {ENTER}`, findwnd(`TMultiRename`)) delay(500) send(`{ESC}`, findwnd(`TMultiRename`))"
WCMICONS.DLL,46
Групповое переименование: "Найти:" ([^\[\(])[_\s]+([^\]\)]) "Заменить на:" $1.$2 без "[E]" с "Рег. выраж."
-1
Само собой разумеется.Flasher писал(а):Только это касается исключительно обрабатываемого в данный момент элемента.
Можно перенести его в строку "Путь запуска:" (для памяти), а в строке подсказки записать "Точки между словами, где пробелы и знаки подчёркивания" или что-то своё, более читабельное.Flasher писал(а):Название кнопки - не для слабонервных...
Ага, особенно актуально для ESC: начать дожидаться появления окна, когда оно уже давным-давно открыто.через eval(send_wait(
Зачем это мне рассказывать?sa писал(а):Можно перенести
Там вообще неясно, зачем эта задержка.sa писал(а):Ага, особенно актуально для ESC
В итоге кнопка растянулась на полкилОметра.Код: Выделить всё
'=============================================
' Переименовать файлы в активном каталоге,
' сопоставляя данные с вложенным CRC-файлом
' Условие: путь запуска - пустой
' Параметр: <CRC-сумма:md5|sha1|sha256|sha512>
' Автор: Flasher ©
'=============================================
CRC = UCase(WScript.Arguments(0))
Dim WSH : Set WSH = CreateObject("WScript.Shell")
If InStrRev(WScript.FullName, "WScript.exe") Then
WSH.Run "CScript.exe //I //D """ & WScript.ScriptFullName & """ " & CRC, 0
WScript.Quit
Else
Path = WSH.CurrentDirectory
Set Items = CreateObject("Shell.Application").NameSpace(Path).Items
Items.Filter 192, "*." & CRC
If Items.Count = 1 Then
Set Dict = CreateObject("Scripting.Dictionary")
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each F in Split(FSO.OpenTextFile(Items.Item(0)).ReadAll, vbnewline)
If F <> "" Then
E = InStr(F, " ") : Sum = Left(F, E - 1)
If Not Dict.Exists(Sum) Then Dict.Add Sum, Mid(F, E + 2)
End If
Next
For Each F in FSO.GetFolder(Path).Files
If UCase(FSO.GetExtensionName(F)) <> CRC Then
Set Exe = WSH.Exec("certutil -hashfile """ & F & """ " & CRC).StdOut
Exe.SkipLine : Sum = Replace(Exe.ReadLine, " ", "")
If Dict.Exists(Sum) Then
N = Dict.Item(Sum) : If Not FSO.FileExists(N) Then F.Name = N
End If
End If
Next : WSH.SendKeys "^R"
End If
End If