Обработка логов спутникового ТВ сигнала

[getikalex]

Прошу помочь в обработке лога работы программы. Речь идет о спутниковом телевидении и обработке ключей канала в потоке. Вот кусочек лога.Он изначально в текстовом txt файле.

[LOG031]2011/01/09 12:16:37 11478 c01 dvbapi: new program number: 0004 (0000:0004 unknown)
[LOG032]2011/01/09 12:16:46 11478 c01 dvbapi: new program number: 283E (ТНТ)
[LOG033]2011/01/09 12:16:46 11478 c01 root (0500&023700/283E/0FA2/4E:5E83/78-0C): found (61 ms) by all - ТНТ
[LOG092]2011/01/09 12:21:48 11478 c01 root (0500&030600/3716/0BBA/4F:8BC8/64-00): not found (59 ms) - 0500:3716 unknown
[LOG093]2011/01/09 12:21:48 11478 c01 root (0500&040610/3716/138A/55:F376/64-00): rejected user ident (120 ms) - 0500:3716 unknown
[LOG000]2011/01/09 12:09:36 11478 c01 root (0500&023700/283E/0FA2/4E:5E83/54-7F): found (806 ms) by all - ТНТ
[LOG037]2011/01/09 12:16:57 11478 c01 root (0500&023700/2842/0FA6/45:39F2/41-B0): found (68 ms) by all - СТС-Москва
[LOG038]2011/01/09 12:16:57 11478 c01 dvbapi: Start descrambling CAID: 0500

Ключ найден только в трех строчках, где есть фраза found (...) а вот в других - где not found, или другие фразы - ключей нет
В каждой строке, где ключ найден - в скобках перед ним - данные канала Caid,Ident,Sid,EcmPid
(0500&023700/283E/0FA2/4E:5E83/78-0C)
из чисел в скобках интересуют только первые четыре числа, т.е 0500 023700 283E 0FA2
Именно эти четверки для случаев когда есть found - надо выделить на отдельном листе (желательно без повторов. Т.е повторные значения четверок, вносить не надо.

В приложении кусок реального лога(oscam), и excel файл(oscam_pids) с логом на первой странице, и желаемым результатом на другой странице. Наверное такой парсинг можно организовать скриптом с построчной обработкой каждой отдельной строки. На форуме видел что-то похожее, но сам не справлюсь.

[raxp]

если вы хотите, чтобы сделали за вас, то в раздел фриланс.

[EugeneS]

можно сделать так, см. вложение, кнопка "Start"

[EducatedFool]

Могу предложить несколько иное решение:

Sub ОбработкаФайла()
    ИмяФайла = GetFilePath("Выберите файл с логами", ThisWorkbook.Path, "Спутниковые логи", "*.log")      ' запрашиваем имя файла
    If ИмяФайла = "" Then Exit Sub    ' выход, если пользователь отказался от выбора файла
    On Error Resume Next: Dim coll As New Collection
    ТекстЛогов = ReadTXTfile(ИмяФайла)
    arr = Split(ТекстЛогов, vbNewLine)    ' разбиваем на строки
    For i = LBound(arr) To UBound(arr)
        txt = arr(i)
        If txt Like "*: found *" Then
            txt = Split(txt, ": found ")(0): txt = Replace(Split(txt, "(")(1), "&", "/")
            arr2 = Split(txt, "/"): txt = arr2(0) & "/" & arr2(1) & "/" & arr2(2) & "/" & arr2(3)
            coll.Add txt, txt
        End If
    Next i
    Application.ScreenUpdating = False
    For Each Item In coll ' выводим уникальные наборы значений на лист
        Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 4).Value = Split(Item, "/")
    Next Item
End Sub

Этот макрос выводит диалоговое окно выбора файла лога, после чего выводит на лист подходящие четвёрки значений.

[getikalex]

Большууууущее СПАСИБО.