Flasher
|
 Posted: Wed Oct 14, 2015 15:28 Post subject: |
 |
|
GrafKun
Если кроме знака подчёркивания при таком наборе символов там быть ничего не может, то самое банальное - это включать опцию "Рег. выраж.", ибо в них точка - это любой символ. А чтобы не отмечать опцию постоянно, достаточно создать шаблон и вызывать диалог с ним по LOADSEARCH с кнопки или по хоткею, как угодно.
Другой вариант - ввод в промежуточном окне.
| Code: | '======================= VBS =======================
' Поиск с автозаменой в вводимых символах
' Условие: путь запуска - пустой
' Параметры: <строка поиска> <строка замены>
' Пример: . _
'=============== Путь к утилите TCFS2 ==============
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'===================================================
Set Arg = WScript.Arguments
Header = " Поиск с заменой в маске " & Arg(0) & " на " & Arg(1)
Path = InputBox(String(5, vbnewline) & "Введите текст для поиска:", Header, "АБВГ.123456.789")
If Trim(Path) <> "" Then
With CreateObject("WSCript.Shell")
Set Exec = .Exec("%COMMANDER_EXE% /O /S=F """ & .CurrentDirectory & """")
PID = Exec.ProcessID : Do : A = .AppActivate(PID) : Loop Until A
.Run TCFS2 & " /ef ""send(@`" & Replace(Path, Arg(0), Arg(1)) & "`,0)"""
End With
End if |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
