Прочитать файл конфигурации F5 в Excel (получить значения в скобках в разных строках)

Question

У меня есть файл конфигурации со многими блоками, как показано ниже (с вложенными скобками).

ltm pool /Common/This_Is_The_Name {
    load-balancing-mode least-connections-member
    members {
        /Common/Member01 {
            address 1.2.3.4
        }
        /Common/Member02 {
            address 2.3.4.5
        }
    }
    monitor /Common/tcp
}

Я пытался искать символы, такие как } или {, но они появляются в тексте более одного раза, и макрос не выполняется. Кроме того, не все конфигурации одинаковы или имеют одинаковый порядок.

То, что я сделал, слишком долго для вставки и не работает.

Как я могу напечатать это в excel в формате, например:

POOL NAME | LOAD-BALANCING MODE | MEMBER 01 NAME | MEMBER 01 IP | MEMBER 02 NAME | MEMBER 02 IP | MONITOR
This is the name | Least-connection-member | Member01 | 1.2.3.4 | Member02 | 2.3.4.5 | /common/tcp

Я читаю эти значения из текстового файла.

Answer 1

Это синтаксический анализ файла методом перебора, хотя возможен и другой простой способ анализа файла. Вы можете попробовать это и изменить в соответствии с вашими требованиями. Используемый массив затемняется как (от 1 до 100) для быстрого тестирования, но вы можете использовать Redim для его эффективного использования. Я сделал формат вывода чем-то отличным от моего выбора, также могу изменить его по вашему выбору.

Очевидно, что код будет работать правильно, только если каждая начальная фигурная скобка имеет соответствующую закрывающую фигурную скобку и правильно вложена.

Код:

Option Explicit
Sub ParseConfigFile()
Dim Fno As Integer, Xstr As String, Fname As String
Dim lvl As Integer, i As Integer, x As Integer, y As Integer, Rw As Integer
Dim Ws As Worksheet, Xchr As String
Set Ws = ThisWorkbook.ActiveSheet

Fno = FreeFile
Fname = "C:\Users\user\Desktop\ConfigSample.txt"
Open Fname For Input As #Fno
Xstr = Input(LOF(Fno), Fno)
Close #Fno

Xstr = Replace(Xstr, vbCrLf, "")
Xstr = Replace(Xstr, "/", "|")


Dim Snest(1 To 100, 1 To 100) As Variant, Enest(1 To 100, 1 To 100) As Variant
Dim path(1 To 100) As Variant

For x = 1 To 100
For y = 1 To 100
Snest(x, y) = 0
Enest(x, y) = 0
Next
Next

lvl = 1
path(lvl) = 1
Snest(path(lvl), 1) = 1
Rw = 1
    For x = 1 To Len(Xstr)
    Xchr = Mid(Xstr, x, 1)
        If Xchr = "{" Then
        'Debug.Print "{", x, lvl, path(lvl)
        Enest(path(lvl), lvl) = x - 1
            'rw = rw + 1
            'For i = 1 To lvl
            'Ws.Cells(rw, i).Value = Trim(Mid(Xstr, Snest(path(i), i), Enest(path(i), i) - Snest(path(i), i) + 1))
            'Next
        lvl = lvl + 1
        path(lvl) = path(lvl) + 1
        Snest(path(lvl), lvl) = x + 1
        End If

        If Xchr = "}" Then
        'Debug.Print x, lvl, path(lvl)
        Enest(path(lvl), lvl) = x - 1
            Rw = Rw + 1
            For i = 1 To lvl
            Ws.Cells(Rw, i).Value = Trim(Mid(Xstr, Snest(path(i), i), Enest(path(i), i) - Snest(path(i), i) + 1))
            Next
        lvl = lvl - 1
        path(lvl) = path(lvl) + 1
        Snest(path(lvl), lvl) = x + 1
        End If
Next
End Sub

Вывод из файла примера, созданного путем копирования образца текста 4 раза, выглядит следующим образом

Дальнейшее упрощение для получения чистой древовидной структуры в ячейках Excel

Option Explicit
Sub ParseConfigSimple()
Dim Fno As Integer, Xstr As String, Fname As String
Dim lvl As Integer, i As Integer, x As Integer, y As Integer, Rw As Integer
Dim Ws As Worksheet, Xchr As String
Set Ws = ThisWorkbook.ActiveSheet

Fno = FreeFile
Fname = "C:\Users\user\Desktop\ConfigSample.txt"
Open Fname For Input As #Fno
Xstr = Input(LOF(Fno), Fno)
Close #Fno

Xstr = Replace(Xstr, vbCrLf, "")
Xstr = Replace(Xstr, "/", "|")


Dim Spos As Long, Epos As Long, Plen As Long
Dim path(1 To 100) As Variant


lvl = 1
Spos = 1
Rw = 1
    'Make heading
    For x = 1 To 50
    Ws.Cells(Rw, x).Value = "Level " & x
    Next

    'Parse each item in nested level
    For x = 1 To Len(Xstr)
    Xchr = Mid(Xstr, x, 1)

        If Xchr = "{" Or Xchr = "}" Then
        Epos = x - 1
        Plen = Epos - Spos + 1
        path(lvl) = Trim(Mid(Xstr, Spos, Plen))
            If Len(path(lvl)) > 1 Then
            Rw = Rw + 1
            Ws.Cells(Rw, lvl).Value = path(lvl)
            End If
        Spos = x + 1
        Epos = x - 1
            If Xchr = "{" Then
            lvl = lvl + 1
            Else
            lvl = lvl - 1
            End If
        End If
Next
End Sub

Вывод будет выглядеть как