Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Поиск папок со знаками подчеркивания вместо точек

 
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы printer-friendly view
View previous topic :: View next topic  
Author Message
GrafKun



Joined: 14 Oct 2015
Posts: 2
Location: Питер

Post (Separately) Posted: Wed Oct 14, 2015 12:21    Post subject: Поиск папок со знаками подчеркивания вместо точек Reply with quote

На сетевом ресурсе находятся папки с названием вида АБВГ_123456_789
Но в строке поиска хочется вводить АБВГ.123456.789
Иначе приходися каждый раз менять "." на "_"

Возможно ли это осуществить? Если да - то как?
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10419
Location: Россия, Саратов

Post (Separately) Posted: Wed Oct 14, 2015 13:16    Post subject: Reply with quote

GrafKun wrote:
Но в строке поиска хочется вводить АБВГ.123456.789
Иначе приходися каждый раз менять "." на "_"

Проблема пока не очень понятна. Зачем приходится менять? Что за сетевой ресурс?
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
GrafKun



Joined: 14 Oct 2015
Posts: 2
Location: Питер

Post (Separately) Posted: Wed Oct 14, 2015 13:26    Post subject: Reply with quote

Avada
В локальной сети предприятия находится сетевой ресурс с выложенными документами конструкторской документации (КД).
Во всех документах название КД вида АБВГ.123456.789
Но на сетевом ресурсе папки называются АБВГ_123456_789
Поэтому при поиске, после копирования названия вида АБВГ.123456.789 приходится вносить изменения в строку поиска и менять "." на "_"
Back to top
View user's profile Send private message
Avada



Joined: 01 Aug 2008
Posts: 10419
Location: Россия, Саратов

Post (Separately) Posted: Wed Oct 14, 2015 14:27    Post subject: Reply with quote

GrafKun
Во-первых, не надо полностью цитировать моё предыдущее сообщение. Излишества удалены.
Во-вторых, автоматического преобразования при поиске точек в знаки подчёркивания, разумеется, не существует. Возможные варианты обходного решения, возможно, кто-то подскажет.
Кроме того, заголовок "Поиск файлов по маске" не соответствует поставленной задаче, где нет никаких масок, а на основе одного точного имени надо найти другое точное имя с изменением строго определённых символов. Заголовок изменён.
_________________
Даже самая богатая фантазия
Не представит себе наши безобразия.
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Wed Oct 14, 2015 15:28    Post subject: Reply with quote

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
View user's profile Send private message
sa



Joined: 29 Apr 2009
Posts: 2694

Post (Separately) Posted: Wed Oct 14, 2015 16:55    Post subject: Reply with quote

Flasher wrote:
самое банальное - это включать опцию "Рег. выраж."
Мне кажется, это не банально, а изящно!
Back to top
View user's profile Send private message
Flasher



Joined: 06 Nov 2009
Posts: 14229
Location: Москва

Post (Separately) Posted: Wed Oct 14, 2015 17:04    Post subject: Reply with quote

sa wrote:
это не банально, а изящно!
Не банально, а "самое банальное" действие из возможных. А в части "изящно" - только при прочих равных, как изначально поясняется.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group