<强>非递归算法遍历目录
第2版。本
。支持库壳
。支持库EDataStructure
。支持库iext
。程序集窗口程序集1
,子程序_按钮_浏览_被单击
编辑框_目录。内容=浏览文件夹(“选择目录:”,假)
,子程序枚举文件
。参数目录,文本型
。局部变量队列,队列
。局部变量节点,节点
。局部变量节点1节点
。局部变量路径,文本型
。局部变量文件夹名称,文本型
。局部变量文件名,文本型
。局部变量文件数目,整数型
节点。加入属性(“路径”,目录)
“把初始目录加到队列
队列。压入(节点)
(队。判断循环首列。是否为空()=假)
“弹出队列最前一个元素作为目录,对该目录进行文件夹枚举和文件枚举
队列。弹出(节点1)
节点1。取文本值(“路径”,路径)
路径=选择(取文本右边(路径,1)≠“\”,路径+“\”,路径)
文件夹名称=寻找文件(路径+”*。*”,#子目录)
,判断循环首(文件夹名称≠" ")
。如果真(文件夹名称≠”。“且文件夹名称≠“. .”)
“如果在当前目录下找到了文件夹,则把该文件夹压入到队列,等待扫描该文件夹的下一级目录和文件名
节点。修改属性(“路径”,路径+文件夹名称)
队列。压入(节点)
。如果真结束
文件夹名称=寻找文件(#子目录)
,判断循环尾()
处理事件()
“寻找当前目录的所有文件
文件名=寻找文件(路径+”*。*”,)
,判断循环首(文件名≠" ")
超级列表框1。插入表项(,路径+文件名,,,,)
文件数目=文件数目+ 1
标签3。标题=到文本(文件数目)
文件名=寻找文件(,)
,判断循环尾()
,判断循环尾()
,子程序_按钮_枚举_被单击
超级列表框1。全部删除()
枚举文件(编辑框_目录。内容)
信息框(“完毕!”,0,)
<>强运行结果:
<强>总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对的支持。如果你想了解更多相关内容请查看下面相关链接
