Загрузка каталога древовидной структуры в Excel

[rodas]

Необходимо произвести загрузку данных из текстового файла вида:
Каталог1 Каталог2 Элемент1
Каталог1 Элемент2
Каталог1 Каталог3 Элемент3
...
в файл Excel вида:
Каталог1
Каталог2
Элемент
Каталог3
Элемент3
Элемент2
...

Подскажите как проще реализовать?

[zHackLeX]

с трудом улавливаю суть...

но если имеется в виду, что надо записать дерево так, что
при встрече "элемента" уровень автоматически уменьшался, то, вроде, просто... при условии, что каждый каталог содержит, и при том один,
элемент...
тогда весьма несложно..

Код: Выделить всё


'---- Class TreeNode
Public Value As String 'The single ELEMENT
Public Name As String ' the NODE NAME
Public Nodes as Collection 'for all childs

Sub Class_Initialize()
    Set Nodes = new collection
End sub
Sub Class_terminate()
    Set Nodes = nothing
End Sub
'----End Class

'Думаю, процедуру загрузки дерева не надо писать?
'Если надо - напишу, а то лениво)

'о записи: считаем, что переменная MyOutput$ глобальна
Sub WriteOut(rootnode as TreeNode)
    MyOutput=MyOutput & rootnode.Name & vbnewline
    for each Child in rootnode.Nodes
        WriteOut(Child)
    Next
    MyOutput=MyOutput & rootnode.value
End Sub