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

山中老人

最近需要处理一些树形结构的数据，在VBA中一直没有太好的办法。用自定义数据类型，没法转换成Variant数据类型传递，而且很不好进行扩展。
使用字典、数组用起来也很麻烦。

最后我用字典，衍生出来一个【树形字典TreeDic】，专门处理这种树形数据结构。

特点：
      1、来自字典，具备无限的扩展性。
      2、将Dictionary.Item，划分成3类：树枝 Branch（TreeDic）、果实Object（对象）、树叶Value（值），分别存放3种数据，数量无限制。
      3、通过树枝 Branch进行结构扩展，果实Object 和 树叶Value来存放该节点的数据。

在处理：行政区划，组织架构，文件系统，以及多级筛选的数据，非常好用！

实例及最新附件 在28、29楼  【教程5 文本导入导出】

补充内容 (2021-4-29 08:15):
最新的更新，翻最后的回复吧！

包括用TreeDic存储多维数据表的想法！

补充内容 (2021-5-1 08:49):
大家，对它有什么，新的要求，可以留言。我尽量满足！

山中老人

演示代码：
Sub cs11()
    Dim TD As New TreeDic
    TD.Value("总人口") = 335
    '--
    Dim whq As TreeDic:
    Set whq = TD("中国")("四川")("成都")("武侯区") 'Set whq = TD.Branch("中国").Branch("四川").Branch("成都").Branch("武侯区")
    whq.Value("面积") = 76.56 '平方公里
    whq.Value("面积单位") = "平方公里"
    Debug.Print whq.Value("面积") & TD("中国")("四川")("成都")("武侯区").Value("面积单位")
    '--
    Dim BZS As TreeDic: Set BZS = TD("中国")("四川")("巴中")
    BZS.Value("电话区号") = "0827"
    Debug.Print BZS.Value("电话区号")
   
    '--
    Dim JB As TreeDic: Set JB = BZS("江北区")
    JB.Value("邮政编码") = 636099
    Debug.Print TD("中国")("四川")("巴中")("江北区").Value("邮政编码")
    '--
    TD("中国")("四川").Value("人口") = 123456789
    Debug.Print TD("中国")("四川").Value("人口")
End Sub

opel-wong

这是怎么回事，

山中老人

opel-wong 发表于 2021-4-24 11:12
这是怎么回事，

可以运行通过啊？

chis3

有大神創作有用的好東西一定支持
先留名,看以後有否機會用它

山中老人

教程1 Branch：
首先我们要明确处理的数据，是一种多层结构，一层层的衍生出来。可以想象成树形。最常用的就是：文件系统结构，行政区划，单位的组织架构。
以【文件系统结构】为例，文件夹、它里面的子文件夹、它的子文件夹的子文件夹......  构成了 整个文件系统的骨架，而各个文件夹中的文件只是附属罢了。

第一步：我们创建一个树桩【TD】：
    Dim TD As New TreeDic

第二步：在树桩【TD】上长出一根树枝叫【中国】。
    Dim Brc As TreeDic
    Set Brc = TD.Branch("中国")
    由于TreeDic的Branch属性是默认的，所以也可以省略掉Branch
    Set Brc = TD("中国")


第三步：树枝【中国】上长出一根分支叫【四川】。
    Set Brc = Brc.Branch("四川")
    也可以写成：
    Set Brc = TD.Branch("中国") .Branch("四川")
    或者：
    Set Brc = TD("中国") ("四川")


TreeDic.Branch的声明：
Public Property Get Branch(Key As Variant) As TreeDic '【默认属性】 分支
说明： 获取一个已有的树枝Branch，如果没有就创建它。 只读。


TreeDic与Branch相关的属性和方法：
Public Function BranchExist(Key As Variant) As Boolean '确定分支是否存在
Public Property Get BranchCount() As Long '分支计数
Public Property Get Branchs() As TreeDic() '获得分支的数组
Public Function BranchRemove(Key As Variant) As Boolean '移除一个分支
Public Sub BranchRemoveAll() '移除全部分支

xiaofan1999

山中老人 发表于 2021-4-25 06:40
教程1 Branch：
首先我们要明确处理的数据，是一种多层结构，一层层的衍生出来。可以想象成树形。最常用的 ...

大侠您整个具体的实例试试呀？小弟弄了半天也没明白！

山中老人

xiaofan1999 发表于 2021-4-25 07:50
大侠您整个具体的实例试试呀？小弟弄了半天也没明白！

我嫌写实例太烦了，我现在写的程序又不好截取出来！

山中老人

xiaofan1999 发表于 2021-4-25 07:50
大侠您整个具体的实例试试呀？小弟弄了半天也没明白！

您如果有需要应用到树形结构的地方，您可以提一个需求，我写对应的代码来实现！

xiaofan1999

xiaofan1999 发表于 2021-4-25 07:50
大侠您整个具体的实例试试呀？小弟弄了半天也没明白！

谢谢大侠，我找一个有特点的例子再来麻烦您！！！