Вывод номеров с Unreasonable Value

[zenner]

Добрый день! Помогите пожалуйста переделать макрос прикрепленный ниже так чтобы он искал в лог файле номера которые имеют текст "Unreasonable Value" и выводил их в колонку А. В данном логе номер с Unreasonable Value это 430098. Спасибо!
Unreasonable value.rar

[EducatedFool]

А сами не пробовали сделать?

uv = InStr(1, t, "UNREASONABLE VALUE") > 0  ' ищем  UNREASONABLE VALUE
....
If uv Then ДобавитьУслугу .EntireRow, "UNREASONABLE VALUE"

Результат:




PS: немного не то получилось... сейчас переделаю )

[zenner]

Я пробовал но у меня тоже 430099 вывел!

[EducatedFool]

Вот весь макрос:

Sub Поиск_AXE_10()
    On Error Resume Next: Application.ScreenUpdating = False
    Filename = GetTXTFileName: If Filename = "" Then Exit Sub

    Set fso = CreateObject("scripting.filesystemobject")    ' считываем текст из файла
    Set ts = fso.OpenTextFile(Filename, 1, True): txt = ts.ReadAll: ts.Close

    Set RegExp = CreateObject("VBScript.RegExp"): RegExp.Global = True: RegExp.MultiLine = True
    RegExp.Pattern = "UNREASONABLE VALUE\r\n {3,}\(0\)SNB=[\d]{6}"
    If RegExp.test(txt) = 0 Then Exit Sub

    For Each res In RegExp.Execute(txt)
        Range("a" & Rows.Count).End(xlUp).Offset(1) = Right(res.Value, 6)
    Next
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__15-01-13.zip

[zenner]

Спасибо! Все работает!