|
发表于 2013-12-11 13:18:24
|
显示全部楼层
广西壮族自治区梧州市
[e]
.版本 2
.子程序 小林_递归文件搜索, , 公开
.参数 路径, 文本型
.参数 扩展名, 文本型, 参考 可空, 空时为“*”
.参数 取路径加扩展名, 逻辑型, 可空
.参数 存放结果的数组, 文本型, 可空 数组
.局部变量 文件名, 文本型
.局部变量 表项, 整数型
.如果真 (取文本右边 (路径, 1) ≠ “\”)
路径 = 路径 + “\”
.如果真结束
文件名 = 寻找文件 (路径 + “*.” + 选择 (是否为空 (扩展名), “*”, 扩展名), )
.判断循环首 (文件名 ≠ “”)
处理事件 ()
.如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
.如果 (取路径加扩展名 = 真)
加入成员 (存放结果的数组, 路径 + 文件名)
.否则
加入成员 (存放结果的数组, 文件名)
.如果结束
.如果真结束
文件名 = 寻找文件 (, )
.判断循环尾 ()
文件名 = 寻找文件 (路径 + “*.*”, #子目录)
.判断循环首 (文件名 ≠ “”)
处理事件 ()
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
小林_递归文件搜索 (路径 + 文件名, 扩展名, 假)
.如果真结束
文件名 = 寻找文件 (, #子目录)
.判断循环尾 ()
[/e] |
评分
-
参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^*) 嘻嘻 |
查看全部评分
|