VBA编程有偿代做

microyip · 发表于 2022-3-24 11:03

附上附件以供参考

chenjx80 · 发表于 2022-3-24 13:11

从输出结果来看，着实出乎我的逆料：
去重之后，还剩53796个闭环，如果不去重，总数竟然达到了575481个。
这也导致了去重用字典的效率大幅度下降。

附件仅供参考，我并不熟悉递归算法，不敢肯定输出结果一定正确，请自行核对。

寻找所有闭环.v2203241230.Copy.part1.rar (2 MB, 下载次数: 29)

寻找所有闭环.v2203241230.Copy.part2.rar (98.3 KB, 下载次数: 15)
得闲再优化下。

寻找所有闭环.v2203241230.gif

microyip · 发表于 2022-3-25 01:26

chenjx80 发表于 2022-3-24 13:11
从输出结果来看，着实出乎我的逆料：
去重之后，还剩53796个闭环，如果不去重，总数竟然达到了575481个。
...

没代码？还想学习一下你时间这么短的逻辑呢

chenjx80 · 发表于 2022-4-2 09:52

本帖最后由 chenjx80 于 2022-4-2 12:48 编辑

microyip 发表于 2022-3-25 01:26
没代码？还想学习一下你时间这么短的逻辑呢

总体流程：
1. 把客户、供应商装入嵌套字典dic
2. 对每个键（key1）调用递归函数GetRing

GetRing流程：
对key1字典的每个键key2
如果这个环是闭环
   记录这个位置
   不存在这个闭环
      记录这个闭环，同时构造、记录这个闭环的所有闭环排列
   退回环的上一个位置
否则，如果key2未使用过
   如果dic(key2)存在
      记录这个位置
      递归调用GetRing
      退回环的上一个位置
其它情形不做处理

以上就是我的代码流程，你可以参考下。
我也不精通递归，略懂罢了。我是经过持续的调试、修改，才完成这个递归函数的。
多练习递归才有进步啊，共勉。

粗略看过你的代码，我们的思路有很多相同的地方。
这里只提些不成熟的优化建议：
1. 对于环的记录，应使用数组替代字符串
2. 循环次数很多的情形下，避免拼接字符串
3. 循环次数很多的情形下，避免ReDim Preserve Array(1 To n)
4. 暂存Dictionary.Keys到数组，然后访问这个数组的元素，而非Dictionary.Keys(i)
这一点，不知有没有速度提升？我未学哈希表算法。

内存的重新分配和销毁是需要时间的，应尽量减少内存的分配和销毁操作。
我一般采用空间换时间的方法（一次性分配足够的空间）。
如果你有更好的方法，欢迎讨论。

shitbagboy · 发表于 2024-3-7 00:11

这应该就是查找有向图中的环。

时间的音符 · 发表于 2024-3-7 10:37

提示: 作者被禁止或删除内容自动屏蔽

hhxq001 · 发表于 2024-3-7 11:17

时间的音符发表于 2024-3-7 10:37
......................

我运行你的代码没反应啊

时间的音符 · 发表于 2024-3-7 11:27

提示: 作者被禁止或删除内容自动屏蔽

		自动登录	找回密码
密码			免费注册

[求助] VBA编程有偿代做

评分

时间的音符时间的音符当前离线性别保密 UID 3708493 阅读权限 0 注册时间 2017-3-30 在线时间小时最后登录 1970-1-1 积分 787 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2024-3-7 10:37 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

时间的音符时间的音符当前离线性别保密 UID 3708493 阅读权限 0 注册时间 2017-3-30 在线时间小时最后登录 1970-1-1 积分 787 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2024-3-7 11:27 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报