снова TreeView

[Chuvak]

проблема такая:
1). надо сохранить информацию из TreeView в файл в таком формате
(подуровни сдвинуты [Tab]'ами).

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

NodeOne
    UnderNodeOne_One
    UnderNodeOne_Two
        UnderNodeOne_Two_One
NodeTwo
    UnderNodeTwo_One
NodeThree
    UnderNodeThree_One
    UnderNodeThree_Two
        UnderNodeThree_Two_One
        UnderNodeThree_Two_Two
    UnderNodeThree_Three
NodeFour
    UnderNodeFour_One
    UnderNodeFour_Two


2). необходимо загрузить из файла в TreeView

[RayShade]

Ну сохранение примерно так:



sub savetree(level as long, lwhat as node)

dim obj as node

set obj = lwhat

do until obj is nothing

print #1,string(chr(9),level) & obj.text

if obj.children>0 then call savetree(level+1,obj,child)

set obj = obj.next

loop

end sub



Ну и вызываешь ее типа savetree 0,mytree.nodes(1) и все.



Ну а загрузку я думаю по аналогии сам напишешь.

[Chuvak]

сохранение я по-своему сделал, а вот с загрузкой какие-то гоны получаются

[RayShade]

Какие именно? Хоть бы код что ли запостил

[Chuvak]

код сохранения поболее, но без рекурсии (не очень люблю рекурсию- "с детства это")

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

Private Sub Command1_Click()
  Dim outData, level As String
  Dim n As Node
  Dim i As Integer
  Open "qwerty" For Output As #1
  For Each n In TV.Nodes
    level = Chr(9)
    For i = 1 To Len(n.FullPath)
      If Mid(n.FullPath, i, 1) = "\" Then
        level = level + Chr(9)
      End If
    Next i
    outData = level + n
    Print #1, outData
  Next n
  Close
End Sub


ну и загрузку хотелось бы без рекурсии

[RayShade]

А тенбе обязательно в текстовик это хранить? Может, лучше XML? Тогда все получается очень просто

И чем тебе рекурсия не нравится?

[Cyrax]

вот примерчик сохранения содержимого TreeView в файл и восстановления его из файла.

[GSerg]

Когда передо мной встала такая проблема, я немного поэкспериментировал, и вот что получилось.

Тезис первый
Для добавления нода не первого уровня нужно указать код его родителя.
Тезис второй
Если пробежать по коллекции нодов с помощью For Each, то сначала будут последовательно вызываться все ноды сначала первого уровня, затем все ноды второго уровня и т.д.

Из этих тезисов следует, что для сохранения дерева нужно сначала определить пользовательский тип

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

Type NodeData
  Text As String
  Key As String
  ParentKey as String
End Type


а затем простым циклом For Each сделать этим нодам Put в файл Random доступа.

При загрузке же дерева - просто чтение Get'ом. Отсутствие ошибки присваивания дочки несуществующему ноду гарантируется тезисом 2.

[Chuvak]

to RayShade

если не в облом, напиши загрузку с рекурсией данных из файла в формате, приведенным в начальном сообщении

[goro]

А тенбе обязательно в текстовик это хранить? Может, лучше XML? Тогда все получается очень просто
И чем тебе рекурсия не нравится?

Если сможешь напиши как с XML работать. Мне тоже интересно.

[RayShade]

В двух словах это описать не получится.

Можно почитать в MSDN в разделе Microsoft XML 3.0 - XML Developer's Guide статью XML DOM User Guide



Ну и вопросы задавайте что непонятно будет

[Chuvak]

to RayShade

ну все-таки напиши загрузку по аналогии твоего метода сохранения

[Chuvak]

ПАМАГИТЕ, ПЛИЗ, ГОРЮ

[Vi]

Так можно

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

  Dim s As String, ss() As String
  Dim n As Node, indent As Integer

Сохранение.

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

    Open "qwerty" For Output As #1
      For Each n In TreeView1.Nodes
        ss = Split(n.FullPath, TreeView1.PathSeparator)
        Print #1, String(UBound(ss) + 1, Chr(9)) & n.Text
      Next n
    Close #1

Восстановление

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

    TreeView1.Nodes.Clear
    Open "qwerty" For Input As #1
      Do While Not EOF(1)
        Line Input #1, s
        ss = Split(s, Chr(9))
        If n Is Nothing Then
          indent = 1
          Set n = TreeView1.Nodes.Add(, , , ss(UBound(ss)))
        ElseIf indent = UBound(ss) Then
          Set n = TreeView1.Nodes.Add(n.Index, tvwNext, , ss(UBound(ss)))
        ElseIf indent < UBound(ss) Then
          indent = UBound(ss)
          Set n = TreeView1.Nodes.Add(n.Index, tvwChild, , ss(UBound(ss)))
        ElseIf UBound(ss) < i Then
          Do While UBound(ss) < i
            Set n = n.Parent
            indent = indent - 1
          Loop
          Set n = TreeView1.Nodes.Add(n.Index, tvwNext, , ss(UBound(ss)))
        End If
      Loop
    Close #1

[Chuvak]

я так понял "i" - это "indent", да?

[Chuvak]

в принцине всё ништяк, но появилась другая проблема:
у меня есть какое-то дерево в treeview, каждый узел имеет индекс (1-самый верхний, 2-следующий и т.д.). Во время работы мне необходимо перемещать узлы. В результате получается, что узел с индексом = 1 оказывается где-то внизу. И когда происходит сохранение, то в файл сохраняются узлы последовательно по значениям индексов. В результате все мои перемещения узлов оказываются напрасными. Вопрос: можно ли чего сделать с этим?