задача: есть лог от Cobian Backup, необходимо получить данные о успешном/не успешном резервном копировании и количестве ошибок (если есть). Задание может выполняться несколько раз за сутки, следовательно необходима самая последняя запись в txt (поэтому читаем лог снизу вверх). По завершении задачи будет запускаться данный скрипт (средствами Cobian).
нет никакого смысла использовать бд для такой простой задачи, не люблю плодить сущности.
Для вашего "чушь" гифка по ссылке как это работает (точнее как не работает)
GIF
msgbox (TypeName(my_arr(9))) говорит что лежит строка
Кусок лога имеет такой вид
Код:
2017-06-07 18:10 --
2017-06-07 21:00 *** Запущено новое копирование. Заданий в очереди: 1 ***
2017-06-07 21:00 Отключение возможности входа в спящий режим...
2017-06-07 21:00 ** Выполнение задания "BackGTD" **
2017-06-07 21:00 Подсчёт файлов в задании "BackGTD"...
2017-06-07 21:00 Запуск теневого копирования тома: D:\
2017-06-07 21:01 Теневая копия создана
2017-06-07 21:01 Соединение с "192.168.3.8:21"...
2017-06-07 21:01 TLS недоступен на указанном сервере, попытка обычного соединения...
2017-06-07 21:01 Пользователь "administrator" начал сеанс связи с "192.168.3.8:21"
2017-06-07 21:01 Каталог "BackGTD 2017-06-07 21;01;07 (Разностный)" создан
2017-06-07 21:01 Каталог cменён на "BackGTD 2017-06-07 21;01;07 (Разностный)"
2017-06-07 21:01 Закачка каталога "GLOBALROOT\Device\HarddiskVolumeShadowCopy11\BackGTD"
2017-06-07 21:44 Удаление теневой копии "587861c8-ae9a-494f-b00d-428cd458c070"
2017-06-07 21:44 Теневая копия удалена
2017-06-07 21:44 Общее время выполнения задания "BackGTD": 0 ч., 44 мин., 11 сек.
2017-06-07 21:44 ** Задание "BackGTD" завершено. Ошибок: 0, обработано файлов: 45789, скопировано файлов: 5131, общий размер: 25,91 GB **
2017-06-07 21:44 --
2017-06-07 21:44 Возможность входа в спящий режим включена
2017-06-07 21:44 Общее время копирования: 0 ч., 44 мин., 15 сек.
2017-06-07 21:44 *** Копирование завершено. Ошибок: 0, обработано файлов: 45789, скопировано файлов: 5131, общий размер: 25,91 GB ***
2017-06-07 21:44 --
вот таким скриптом получаю строки. В 9 элементе массива лежит строка "2017-06-07 23:01 Пользователь....". На количество переменных не обращайте внимания,
Код:
Dim F, i, s, fn, FSO, ForReading, AllTxt, listLines, str, x, arr_Line, my_arr(), y, z, nStrok, SearchString
ForReading = 1
fn = "C:\Users\root\Desktop\log 2017-06-07.txt" '// <-- full path
arr_Line = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.OpenTextFile(fn, ForReading, False, -2)
Do Until F.AtEndOfStream ' пока наступит конец файла
Redim Preserve my_arr(arr_Line)
my_arr(arr_Line) = F.ReadLine ' Считываем строку
arr_Line = arr_Line + 1
nStrok = UBound(my_arr)
Loop
F.Close
msgbox my_arr(9)
'z = "2017-06-07 23:01 Пользователь sadfasdasd qwddsda dqwd sad qwdsad asd"
y = InStr(1, my_arr(9), "Польз", vbTextCompare)
msgbox y
