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

blackttea1

有意思，学习了。

nicktf

向大佬们请教：如果要获得根分支第一级的字符串数组，应该怎么处理呢,比如TD("A")("1")
TD("A")("3")
TD("A")("11")
TD("B")("2")
TD("B")("33")
TD("C")("21")
TD("C")("42")

我向获得根下A、B、C三个字符串数组，该怎么处理？

山中老人

nicktf 发表于 2022-4-25 16:00
向大佬们请教：如果要获得根分支第一级的字符串数组，应该怎么处理呢,比如TD("A")("1")
TD("A")("3")
TD( ...

    Dim Arr As Variant
    Dim TD As New TreeDic, Branch As TreeDic
    Set Branch = TD("A")("1")
    Set Branch = TD("A")("2")
    Set Branch = TD("A")("3")
    Set Branch = TD("A")("11")
    Arr = TD("A").Keys

监视：

山中老人

micch

不知道VB或者别的语言中，有没有类似这个功能的对象，我觉得这个还是挺有意思的

山中老人

micch 发表于 2022-5-8 01:45
不知道VB或者别的语言中，有没有类似这个功能的对象，我觉得这个还是挺有意思的

TreeDic在VB中,可以一样使用！

nicktf

山中老人 发表于 2022-5-7 20:51
Dim Arr As Variant
    Dim TD As New TreeDic, Branch As TreeDic
    Set Branch = TD("A")("1" ...

感谢指点！！

金刚菩提888

虽然看不懂，但也要表示一下敬佩

一招秒杀

看了一下TreeDic类，洋洋洒洒1千多行代码，如果用数据库实现它，只需要1个表，3个字段，实现每个功能，一般只需要1-3行代码。看不出有什么价值。

今铭昔

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

树型结构的处理，一般是先构建树型结构，这个用嵌套字典就能完成，然后再做一次深度优先遍历就可以了