Поиск в тексте вложенного файла - VBA

Формулировка задачи:

Доброго времени суток. С VBA вообще не знаком по этому прошу помощи. Написал скрипт который по правилу сохраняет файлы из приходящей почты все работает, но не как не могу написать что бы он смотрел в файл и находил нужный текст и через условие хотя бы выдавал его как msgbox. Файлы приходят как текстовые документы, но в них есть разделители что дает корректно открыть его любой версией exel. Надеюсь на вашу помощь, если надо могу выложить скрипт сохранялкуДобавлено через 35 минутЗабыл написать что правило и скрипт работают в Outlook vbaДобавлено через 23 часа 37 минутнаписал такой кусок кода, но по моему я не правильно делаю сравнение или смотрю в нужную строку... кто может помочь ? 1.Сохраняется файл на жесткий диск 2. Открывается и ищется нужная строка 3. Сравниваю значение строки с моим значением ([id=36174_24]) 4. Сохраняю с новым значением vAdress = Файл сохраняется, строка ищется (проверяю через (MsgBox MyFile.ReadLine) значение строки), но проблема с проверкой.
vAdres = "xxxxx"
EndSaveFile = saveFolder & j & objAtt.FileName & "_" & vAdres & ext
objAtt.SaveAsFile EndSaveFile
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile(EndSaveFile, 1, True)
MyFile.SkipLine
MyFile.SkipLine
MsgBox MyFile.ReadLine
 
 
If MyFile.ReadLine = "[id=36174_24]" Then
    vAdress = "Плюшкина_стрит-12"
    objAtt.SaveAsFile EndSaveFile
 
End If

Код к задаче: «Поиск в тексте вложенного файла - VBA»

textual
s = Array("36174_44", _
              "99974_12")

14   голосов, оценка 4.071 из 5


СОХРАНИТЬ ССЫЛКУ