Тема: VBS: Поиск документа Word по ключевым словам в документе
На AHK я написал скрипт выполняющий поиск файлов Word в папках с подпапками по содержащимся в документе
ключевым словам. Все бы хорошо, но на работе компьютеры согласно корпоративной политики защищены от установки посторонних программ, и AHK я не могу установить. Что если написать тот же скрипт но на языке VBS или JS (какой лучше подойдет не знаю)? Вот исходный код:
InputBox, tip, Выберите тип файла, Введите расширение файла`,`nпо умолчанию "doc"
if tip=
tip=doc
MsgBox ".%tip%"
FileSelectFolder, SFolder, , , Выберите папку для поиска
if SFolder=
return
InputBox, wd, Ввод ключей, Введите ключевые слова:`n(ввод через запятую-`nнапример:"желтый`,января`,Иванов`,563")
if wd=
return
Loop, parse, wd, `, ;узнаем количество ключей
{
if (A_Index=1)
Name:=A_LoopField
++N1
}
MsgBox, 4, Запуск поиска, Все готово для поиска`nВы хотите продолжить?`n(Нажмите Да или Нет)
IfMsgBox No
return
Loop, %SFolder%\*.%tip%, , 1 ; Рекурсия в подпапки.
{
DirFile=%A_LoopFileFullPath%
oWord:=ComObjCreate("Word.Application")
Word:=oWord.Documents.Open(DirFile)
text:=word.ActiveWindow.Document.Range().Text
Word.Close()
oWord.Quit()
N2=
Loop, parse, wd, `, ;подбираем ключи
{
IfInString, text, %A_LoopField%
++N2
}
if (N2=N1)
{
FileAppend, %word%`n%DirFile%`n, %A_Desktop%\Поиск %Name%.txt
Break
}
}
if (N2=N1)
MsgBox Поиск завершен`nданные сохранены`nна рабочем столе`nв файле Поиск %Name%
else
MsgBox Файл не найден
Если кому то интересно, помогите преобразовать код в VBS( JS) .