View previous topic :: View next topic |
Author |
Message |
GrafKun
Joined: 14 Oct 2015 Posts: 2 Location: Питер
|
(Separately) Posted: Wed Oct 14, 2015 12:21 Post subject: Поиск папок со знаками подчеркивания вместо точек |
|
|
На сетевом ресурсе находятся папки с названием вида АБВГ_123456_789
Но в строке поиска хочется вводить АБВГ.123456.789
Иначе приходися каждый раз менять "." на "_"
Возможно ли это осуществить? Если да - то как? |
|
Back to top |
|
 |
Avada

Joined: 01 Aug 2008 Posts: 10419 Location: Россия, Саратов
|
(Separately) Posted: Wed Oct 14, 2015 13:16 Post subject: |
|
|
GrafKun wrote: | Но в строке поиска хочется вводить АБВГ.123456.789
Иначе приходися каждый раз менять "." на "_" |
Проблема пока не очень понятна. Зачем приходится менять? Что за сетевой ресурс? _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
 |
GrafKun
Joined: 14 Oct 2015 Posts: 2 Location: Питер
|
(Separately) Posted: Wed Oct 14, 2015 13:26 Post subject: |
|
|
Avada
В локальной сети предприятия находится сетевой ресурс с выложенными документами конструкторской документации (КД).
Во всех документах название КД вида АБВГ.123456.789
Но на сетевом ресурсе папки называются АБВГ_123456_789
Поэтому при поиске, после копирования названия вида АБВГ.123456.789 приходится вносить изменения в строку поиска и менять "." на "_" |
|
Back to top |
|
 |
Avada

Joined: 01 Aug 2008 Posts: 10419 Location: Россия, Саратов
|
(Separately) Posted: Wed Oct 14, 2015 14:27 Post subject: |
|
|
GrafKun
Во-первых, не надо полностью цитировать моё предыдущее сообщение. Излишества удалены.
Во-вторых, автоматического преобразования при поиске точек в знаки подчёркивания, разумеется, не существует. Возможные варианты обходного решения, возможно, кто-то подскажет.
Кроме того, заголовок "Поиск файлов по маске" не соответствует поставленной задаче, где нет никаких масок, а на основе одного точного имени надо найти другое точное имя с изменением строго определённых символов. Заголовок изменён. _________________ Даже самая богатая фантазия
Не представит себе наши безобразия. |
|
Back to top |
|
 |
Flasher

Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) 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) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
 |
sa
Joined: 29 Apr 2009 Posts: 2693
|
(Separately) Posted: Wed Oct 14, 2015 16:55 Post subject: |
|
|
Flasher wrote: | самое банальное - это включать опцию "Рег. выраж." | Мне кажется, это не банально, а изящно! |
|
Back to top |
|
 |
Flasher

Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Oct 14, 2015 17:04 Post subject: |
|
|
sa wrote: | это не банально, а изящно! | Не банально, а "самое банальное" действие из возможных. А в части "изящно" - только при прочих равных, как изначально поясняется. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
 |
|