一个有意思的字典，树形字典 TreeDic！

xiaofan1999

山中老人 发表于 2021-4-25 08:24
您如果有需要应用到树形结构的地方，您可以提一个需求，我写对应的代码来实现！

谢谢大侠，我找一个！！！

xiaofan1999

大侠您看这个例子您能教小弟怎么做吗？我看这种就挺难的了！！！

山中老人

教程2 Branch 进一步了解

接前面，

第一步：其实我们可以直接完成教程1的三步工作。
     Dim TD As New TreeDic
     Dim Brc As TreeDic ： Set Brc = TD("中国") ("四川")

    在这里，我们就很容易看懂2楼的代码【Set whq = TD("中国")("四川")("成都")("武侯区")】表达的意思了吧！



后面内容已经修改，请参见  【教程5 文本导入导出】

代码已经修改，请使用新版 树形分类统计2.rar

larer

学习数据结构的好贴,谢谢大神分享!

山中老人

xiaofan1999 发表于 2021-4-25 10:02
大侠您看这个例子您能教小弟怎么做吗？我看这种就挺难的了！！！

副本Xl0000092.rar (77.04 KB, 下载次数: 62)

2021-4-25 14:13 上传

点击文件名下载附件

山中老人

喔！
差点搞完了，加入[上级]Parent属性后， 使用完了记得用Class_Terminate释放内存，避免上下级相互锁定一直占用内存。

TD.Class_Terminate '结束，释放内存


副本Xl0000092.rar (77.88 KB, 下载次数: 60)

2021-4-25 14:47 上传

点击文件名下载附件

xiaofan1999

山中老人 发表于 2021-4-25 10:13
教程2 Branch 进一步了解

接前面，

大侠您真是太牛了，小弟万分敬仰！！！

xiaofan1999

山中老人 发表于 2021-4-25 13:37

这是我目前看到的最复杂的代码，能够认识您小弟真是幸运！！！

山中老人

教程3 Object 与 Value

接前面，我们的树结构搭建好了，现在可以在上面挂东西了（存取数据）！

第一步：通过 Object 我们可以给任何Branch挂上一些果子（对象）。
    Dim TD As New TreeDic
    Dim whq As TreeDic: Set whq = TD.PathBranch("/中国/四川/成都/武侯区", , True) '依据字符串，创建结构
    Dim RS As New ADODB.Recordset
    Set whq.Object("数据集") = RS
    Set RS = whq.Object("数据集")


TreeDic.Object 的声明：可读写
Public Property Get Object (Key As Variant) As Object '对象
Public Property Set Object (Key As Variant, RHS As Object) '对象


TreeDic与Object 相关的属性和方法：
Public Function ObjectExist(Key As Variant) As Boolean '确定对象是否存在
Public Property Get ObjectCount() As Long '对象计数
Public Property Get Objects() As TreeDic() '获得对象的数组
Public Function ObjectRemove(Key As Variant) As Boolean '移除一个对象
Public Sub ObjectRemoveAll() '移除全部对象

第二步：通过 Value我们可以给任何Branch挂上一些树叶(值)。

     Dim TD As New TreeDic
     Dim Brc As TreeDic ： Set Brc = TD("中国")("四川")("成都")("武侯区")
     Brc.Value("面积") = 76.99
     Debug.Print Brc .ValueStr("面积")
输出:
     /中国/四川/成都/武侯区.面积=76.99

TreeDic.Value的声明：可读写
Public Property Get Value(Key As Variant) As Object '值
Public Property Let Value(Key As Variant, RHS As Object) '值


TreeDic与Value相关的属性和方法：
Public Function ValueExist(Key As Variant) As Boolean '确定值是否存在
Public Property Get ValueCount() As Long '值计数
Public Property Get Values() As TreeDic() '获得值的数组
Public Function ValueRemove(Key As Variant) As Boolean '移除一个值
Public Sub ValueRemoveAll() '移除全部值
Public Function ValueStr(ByVal Key As Variant) As String '值的(带路径)表达式 见：【教程5 文本导入导出】

副本Xl0000092.rar (75.76 KB, 下载次数: 56)

2021-4-25 16:04 上传

点击文件名下载附件

山中老人

教程4 其他方法与属性
接前面，

第一步：通过 Parent 获得Branch的上一级。
TreeDic.Parent 的声明：只读
Public Property Get Parent() As TreeDic '上级


第二步：通过 Name 读写Branch的名称。Branch.Name 与 Branch的访问Key一致。

TreeDic.Name 的声明：可读写
Public Property Get Name(Key As Variant) As Variant
Public Property Let Name(Key As Variant, RHS As Variant)


演示一下：
    Dim TD As New TreeDic    Dim whq As TreeDic: Set whq = TD.PathBranch("/中国/四川/成都/武侯区", , True)
    whq.Name = "锦江区"
    Debug.Print "Path=" & whq.Path & ",   Name=" & whq.Name
输出:
     Path=/中国/四川/成都/锦江区,   Name=锦江区

注意：在TreeDic中禁止使用对象作为Key或Name


第三步： ItemType
Public Function ItemType(Key As Variant) As ItemTypeEnum '主键分类
确定一个Key是否存在及Item类型，返回结果参考 枚举 ItemTypeEnum：
Public Enum ItemTypeEnum
    NoItem = 0 '没有
    IsBranch = 1  '树枝 Branch
    IsObject = 2  '果实（对象）Object
    IsValue = 3   '树叶（值）Variant
End Enum


第四步： Level
Public Property Get Level () As Long 'Branch的等级


第五步： 全域访问，遍历所有的 Branch
Public Function AllBranchS() As TreeDic() '以数组方式，输出树桩所有Branch对象