Господа, приветствую.
Есть задача - считывать определенные письма из Outlook. Из вложений в письмах считывать информацию (в pdf файлах) и сохранять данные в базу + создавать письма автоматом на те данные, что приходят из писем.
Ну и так как это действие долгоиграющее - прогрессбар для отрисовки сколько всего писем будет отработано, сколько информации в них, сколько отработано...
Весь процесс сделан, работал. Но попался комп, на котором есть проблема.
Комп значительно мощнее моего и многих, на которых пробовалось. Даже на виртуалке у себя пробовал.
Процесс:
Выборку нужных писем - предварительную, для значений прогрессбара и сохранение нужных писем в коллекцию.
Сохранение и конвертацию pdf в txt. (тоже не с первого раза нашел конвертер)
Проблема:
Часто(случайным образом, систему не смог вычислить) - после отработки конвертации - при попытке считать сам файл txt дает пустую строку. Дальше процесс "ложится".
Причем может первое письмо не обработать(считать сконвертированный txt), а может и где то в середине.
При проверке кода с точкой останова - все ок. Все везде считывается. При любом количестве писем.
Понимаю, что процесс идет асинхронно. Кто то за кем то не успевает.
Пробовал проверять наличие файла через
1.
If Dir(strNameFile, vbDirectory) <> "" Then
и потом (к сожалению код не сохранил, но принцип этот)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
FileName = "C:\1\1.txt"
f = FreeFile
Open FileName For Input As f
Do While Not EOF(f)
FileTxt = Input(1, #f)
Debug.Print UsefulTxt
Loop
Close #f
Показывает, что файл есть, а ничего не считывает с файла, точнее данные файла=""
Пробовал проверять через FSO.
1.
2.
3.
4.
5.
6.
7.
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(strNameFile) Then
Set FSTR = FSO.OpenTextFile(strNameFile)
BodyTxt = FSTR.ReadAll
FSTR.Close
Set FSTR = Nothing
End If
Проблема остается.
Пробовал ставить задержку до считывания
1.
2.
3.
4.
5.
6.
7.
For aa = 1 To 100
For ee = 1 To 110
If Dir(strMyFileNameTo, vbDirectory) <> "" Then
End If
Next ee
Next aa
помогает, но для каждого компа нужно подбирать свое значение задержки. Да и процесс удлиняет на много. Понятно что не климатит.
Да и если чуть перебрал в подборе - неприятное подвешивание самого акса, не системы.
Кстати, заметил, что процесс берет не больше 25% от процессора, правда по мере обработки писем - растет занятая память оперативы компа. Правда как то сразу не догадался проверить (сейчас не могу) - что съедает память. но в объем памяти - не упираюсь.
Переделал на построчное считывание файла txt (через клас), не помогло.
Запихнул проверку наличия файла перед построчным считыванием(тут на форуме нашел)
1.
2.
3.
4.
5.
6.
7.
While Dir(strNameFile) = ""
a = a + 1
If a = 10000 Then ' вставил иначе можно от сюда никогда и не выйти
GoTo ReadTXT_Error
End If
DoEvents
Wend
проблема может улучшилась, но не решилась полностью.
Пробовал даже сохранение и конвертацию вставлять в начало процесса - в момент выборки писем, а считывать
текстовый файл по мере обработки выбранных писем. Не помогло...
Может вопрос в том, что в этом процессе идет обращение к нескольким "сторонним приложениям"?
Сначала Outloook(выборка и сохранение вложений), потом конвертер( из pdf в txt), потом запись данных в базу, потом опять Outlook(создание писем, событий)
Кучу написал, уж простите, но это чтобы было видно что и как делал. Чтобы не повторяться с вариантами решения проблемы
Прошу помощи в вопросе:
Как мне побороть это не успевание или неправильное считывание конвертированного файла?
