[nexochyka]

Проверь формат ячейки (as string ?). У меня твой пример работает.

Код:

y=InStr(1, my_arr(10), "польз", vbTextCompare)

[Iska]

с конца самого файла. »

и:

положить в одномерный массив »

входят в явное противоречие. Используйте базу данных.

внутри ячейки одномерного массива? »

У массивов нет ячеек. Есть элементы.

а вот такой нет (всегда 0): »

Чушь.

Упакуйте образец лог-файла в архив и приложите к сообщению. Опишите задачу.

[matson]

задача: есть лог от 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

[greg zakharov]

По логу (ровно как и по самой постановке задачи) ничего не понятно: нужно извлекать данные из лога по какому критерию? На какие значения нужно опираться? Зачем каждую строку пихать в массив, чай ведь не экономный расход ресурсов?

[matson]

Смотрите: в логах ищем строку "Задание "BackGTD" завершено. Ошибок:". При нахождении подстроки в элементе массива (InStr >0) начинаем работать со строкой и получать дату-время, количество ошибок и т.п., а это отправляется на zabbix.

Зачем каждую строку пихать в массив, чай ведь не экономный расход ресурсов? »

Если вы подскажете более правильный и красивый вариант, я буду очень признателен. Не нашел пока более правильного варианта поиска данных в строке, если строк с одинаковым текстом может быть несколько (то есть несколько одинаковых строк "Задание "BackGTD" завершено. Ошибок:", только разное количество ошибок)

[greg zakharov]

Есть такая штука, RegExp называется. Открываете файл на чтение, читаете построчно, и если строкка соответствует шаблону регулярного выражения, извлекаете данные из подгрупп регулярки (дату, количество ошибок, обработанных файлов и дыр и пыр).

[matson]

Толи лыжи не едут...
пытаюсь сделать проверку на чтении построчно

Код:

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)
SearchString = "Теневая копия создана"

Do Until F.AtEndOfStream ' пока наступит конец файла
		Str = F.ReadLine
		If (InStr(1, Str, SearchString) > 0) Then
		MsgBox Str
		End If
Loop
F.Close

Но тишина! Хотя строчка, содержащая "Теневая копия создана" точно присутствует в файле

[matson]

дело было не в бобине, дело было в кодировке...

[Iska]

дело было не в бобине, дело было в кодировке... »

Вот потому и предлагалось:

Упакуйте образец лог-файла в архив и приложите к сообщению. »

а не копировать «кусок лога» в виде текста.