Windows 7 пакетный поиск адресов электронной почты

Question

Заранее за вашу помощь. Я должен выполнить задачу на своем офисном компьютере, что означает, что я не могу установить какое-либо дополнительное программное обеспечение, поэтому я думаю, что пакетный файл может быть самым простым способом сделать это, даже если он не самый эффективный (хотя я приветствую другие решения, которые я может обойтись без установки программного обеспечения на моем офисном компьютере). Кроме того, имейте в виду, что у меня очень мало опыта программирования в ваших ответах :)

В принципе, у меня есть папка с рядом подпапок в ней, каждая из которых полна файлов разных типов (текст, электронные письма, текстовые pdf-файлы, текстовые документы). У меня также есть текстовый файл (или столбец Excel) с сотнями адресов электронной почты. Я хочу использовать командный файл (или аналогичный метод) для запуска каждого адреса электронной почты в списке и поиска по содержимому различных файлов в каждой папке, например, в Windows Search. Файлы, содержащие поисковую фразу, должны автоматически перемещаться в предварительно определенную папку (возможно, ее необходимо переименовать или поместить в новую подпапку, так как многие из этих файлов могут иметь одно и то же имя). В конце концов, у нас должна быть одна папка (а также ее вложенные папки), которая не содержит файлов, которые имеют какие-либо из адресов электронной почты из списка в их содержимом, и другую папку, в которой есть только файлы с содержанием, содержащим адреса электронной почты в их файлы (они могут быть в подпапках или переименованы, или что самое удобное, просто не удаляются).

(Поскольку список адресов электронной почты в Excel, другой вариант, я мог развлечь будет использовать какие-то VBA макросов, если это может искать содержимое файлов в папке рекурсивно.)

Я надеюсь, что это имеет смысл, и я рад прояснить, если это не так. Опять же, спасибо за любую помощь, которую вы можете предоставить!

Answer 1

Существует вызов языка программирования vbscript, который находится на всех компьютерах Windows с Windows 95. Это может сделать работу. Я думаю, вы можете сделать это с помощью партии. Плюс это устарело.

Answer 2

VBScript - Google для «содержимого файла поиска VBscript»
Результаты, такие как http://www.codeproject.com/Questions/524842/VbscriptplusToplussearchplusforplusaplusstringplus, должны помочь. Также, если у вас возникли проблемы с рекурсивной поисковой системой, то может помочь http://blogs.technet.com/b/heyscriptingguy/archive/2004/10/20/how-can-i-get-a-list-of-all-the-files-in-a-folder-and-its-subfolders.aspx.

VBScript почти идентичен VBA. Возможно, этот код может быть изменен для запуска внутри Excel в виде макроса, если хотите.

Я бы рекомендовал использовать FileSystemObject и TextStream вместо собственных файлов VBA, если вы имеете дело с файлами unicode.

Answer 3

Вот простая процедура VBA, которая запрашивает поиск на рабочем столе Windows с использованием поставщика ADO. Этот скрипт мой единственный опыт работы с ней на сегодняшний день, поэтому если у вас есть вопросы, вы можете проверить здесь: http://msdn.microsoft.com/en-us/library/windows/desktop/bb231256(v=vs.85).aspx

Поиск файлов является относительно сложная часть - перемещение их должно быть легко, _0

Sub Tester() 

    Set objConnection = CreateObject("ADODB.Connection") 
    Set objRecordset = CreateObject("ADODB.Recordset") 

    objConnection.Open "Provider=Search.CollatorDSO;" & _ 
         "Extended Properties='Application=Windows';" 

    objRecordset.Open "SELECT System.ItemName, System.ItemFolderPathDisplay " & _ 
         " FROM SystemIndex" & _ 
         " WHERE SCOPE = 'file:C:/_Stuff/local files' " & _ 
         " and contains('joe@corp.com')", objConnection 

    If Not objRecordset.EOF Then 
     objRecordset.MoveFirst 
     Do Until objRecordset.EOF 
      With objRecordset.Fields 
       Debug.Print .Item("System.ItemName"), _ 
          .Item("System.ItemFolderPathDisplay") 
      End With 
      objRecordset.MoveNext 
     Loop 
    Else 
     Debug.Print "no records found" 
    End If 

    objRecordset.Close 
    Set objRecordset = Nothing 
    objConnection.Close 
    Set objConnection = Nothing 

End Sub