Что нового
Автор:
Фильтры

Скрипт поиска с сохранением результатов в текстовый файл

T

texnar

Новичок
Сообщения
3
Репутация
0
Версия AutoIt:
3.3.12.0

Описание:
Cкрипт регистро независимого поиска ключевых слов, который будет искать заранее заданные в тело скрипта латинские и кирилические слова по именам папок, файлов и содержимому. Что бы искал вначале на компьютере затем если таковы будут - в сетевом окружении в общих папках с выводом результатов в *.txt файл. Без GUI.

Примечания:
Грубо говоря скрипт - аналог обычному Windows поиску "dipl OR курс " (найдет diplom и курсовая) с выставленными настройками "Всегда искать по именам файлов и содержимому" но с сохранением результатов поиска в текстовый файл в виде путей\имен файлов и папок.

Пример текстового файла с результатами:
Код: 
D:\Документы\Diplom
D:\Документы\Diplom\Курсовая.docx
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
alex33

alex33

Скриптер
Сообщения
1,457
Репутация
186
Re: Скрипт поиска с выводом результатов в файл

Вот написал, но только он ищет на диске С:, а чтобы в сети искал пока не получилось написать...
Код: 
#include <File.au3>
Global $aFiles, $sText, $hWriteFile
$sText = "script" ; искомый текст
$aFiles = _FileListToArrayRec(@HomeDrive, "*", 0, 1, 0, 2)
If @error Then Exit 1
$hWriteFile = FileOpen(@ScriptDir & "\result.txt", 1)
FileWriteLine($hWriteFile, "========== Запрос: " & $sText & " ; результатов: " & $aFiles[0] & " ==========")
For $i = 1 To $aFiles[0]
	If StringInStr(_GetFileName($aFiles[$i]), $sText) Or StringInStr(FileRead($aFiles[$i]), $sText) Then
		;ConsoleWrite(StringFormat("path: %s; name: %s; error: %s; extended: %s;\r\n", $aFiles[$i], _GetFileName($aFiles[$i]), @error, @extended))
		FileWriteLine($hWriteFile, $aFiles[$i])
	EndIf
Next
FileClose($hWriteFile)

Func _GetFileName($sPath)
	$sPath = StringRegExpReplace($sPath, ".*[\\/](.*)", "$1")
	Return $sPath
EndFunc   ;==>_GetFileName
 
C

Core2Duo76

Новичок
Сообщения
58
Репутация
1
Просто в гугле напиши "10-strike network file search" :smile: и сразу скачаешь все, что найдешь в сети общаги, хитрый студент :smile:
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
W Бот/скрипт для поиска изменений на экране с звуковым и текстовым сопровождением. Разработка ботов 1
L скрипт поиска свободных участков Стол заказов 0
A Не работает одинаковый скрипт поиска картинки _ImageSearch.au3 на одном из компьютеров Общие вопросы по AutoIt 3
J Окна, Диалоги Скрипт игнорирует область для поиска изображений ActiveX/COM (AutoItX) 0
K Скрипт пакетного поиска и замены в MS-office файлах Покупка/продажа, поиск услуг 0
Похожие темы
Бот/скрипт для поиска изменений на экране с звуковым и текстовым сопровождением.
скрипт поиска свободных участков
Не работает одинаковый скрипт поиска картинки _ImageSearch.au3 на одном из компьютеров
Окна, Диалоги Скрипт игнорирует область для поиска изображений
Скрипт пакетного поиска и замены в MS-office файлах
Верх