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 

Single Post  Topic: Запуск из батника опции поиска файлов по файл-списку 
Author Message
BeardFury78



PostPosted: Mon Jul 23, 2018 20:07    Post subject: Reply with quote

Эх, форум во время отправки сообщения засбоил и долго не пускал, пришлось по новой набирать...
Как оказалось, строки 5664 в WCMD_RUS.INC имела вид
Quote:
5664="Ф&айлы на панель"

Решил просто сделать
Quote:
5664="Ф&айлы &- на панель"

После этого закрыл Тотал, запустил скрипт и после этого Тотал запустился, но в фоне, пришлось кликать на иконку, там оказалось окно поиска, но не в стадии процесса поиска, все еще нужно кликать на кнопку поиска.
Потом еще раз запустил скрипт, но внутри Тотала и я уже не закрывал программу и стал ждать. После завершения скрипта открылось окно поиска, но опять ничего не нажалось. Но после того как я закрыл это окно, то создалось еще одно новое окно поиска, но с пустым полем "Место поиска" и кнопка нажалась, но поиск велся по всем дискам компьютера. Такая вот история.

Убрал первый амперсанд у строки (который после Ф идет), не помогло, симптомы те же. Еще раз запустил скрипт, специально дождался окна поиска и после этого еще 5 минут прождал, кнопка не нажалась, но после закрытия еще раз создалось окно и немедленно начало поиск по компьютеру.

Как оказалось, был конфликт, в батнике на последней строке было
Code:
"e:\Programs Files\Total Commander\TOTALCMD64.EXE" /S=F:Lsearchpaths

в vbs
Code:
  PID = .Exec("%COMMANDER_EXE% /S=F:LFileList").ProcessID

убрал в батнике последнюю строку и на этот раз создалось только окно поиска с пустым полем и с поиском по всему компьютеру. Что не так сделано?
Батник полностью:
Code:
del /s g:\result.txt
split -l 8500 -a 4 g:\patterns.txt
for %%f in (g:\x????) do (
    grep -if %%f g:\paths.txt >> g:\result.txt
)
del /s g:\x????

Скрипт полностью
Code:
With CreateObject("WScript.Shell")
  .Run "g:\pathssearch.bat", 0, 1
  PID = .Exec("%COMMANDER_EXE% /S=F:LFileList").ProcessID
  Do: A = .AppActivate(PID) :Loop Until A : .SendKeys "~%-"
End With[quote][/quote]


Блин, торможу... сейчас еще проверю.
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group