BeardFury78
|
Posted: Mon Jul 23, 2018 20:07 Post subject: |
|
|
Эх, форум во время отправки сообщения засбоил и долго не пускал, пришлось по новой набирать...
Как оказалось, строки 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] |
Блин, торможу... сейчас еще проверю. |
|