|
发表于 2011-10-6 01:12:13
|
显示全部楼层
上海市上海市
quan pan sou suo
本帖最后由 爱家的小懒虫 于 2011-10-6 01:12 编辑
- .版本 2
- .支持库 eAPI
- .程序集 窗口程序集1
- .子程序 全盘搜索, 文本型
- .参数 _关键字, 文本型
- .局部变量 驱动器列表, 文本型, , "0"
- .局部变量 i, 整数型
- .局部变量 结果, 文本型, , "0"
- 驱动器列表 = 取驱动器列表 (#接口常量.硬盘驱动器)
- .计次循环首 (取数组成员数 (驱动器列表), i)
- 搜索文件 (驱动器列表 [i], _关键字, 结果, 真, 1, 真)
- .如果真 (取数组成员数 (结果) ≠ 0)
- 跳出循环 ()
- .如果真结束
- .计次循环尾 ()
- .如果 (取数组成员数 (结果) ≠ 0)
- 信息框 (结果 [1], 0, )
- 返回 (结果 [1])
- .否则
- 信息框 (“找不到”, 0, )
- 返回 (“”)
- .如果结束
- .子程序 搜索文件, , , 递归寻找文件
- .参数 寻找目录, 文本型
- .参数 关键字, 文本型, , 如 image*.pak
- .参数 结果数组, 文本型, 参考 数组, 获取文件名添加到数组
- .参数 搜索子目录, 逻辑型, 可空, 默认真
- .参数 搜索个数, 整数型, 可空, 欲搜索文件最多个数,默认无限制
- .参数 完整路径结果, 逻辑型, 可空, 默认真
- .局部变量 文件名, 文本型
- .局部变量 i, 整数型
- .局部变量 n, 整数型
- .局部变量 时间, 整数型
- .如果真 (是否为空 (搜索子目录))
- 搜索子目录 = 真
- .如果真结束
- .如果真 (是否为空 (完整路径结果))
- 完整路径结果 = 真
- .如果真结束
- .如果真 (取文本右边 (寻找目录, 1) ≠ “\”)
- 寻找目录 = 子文本替换 (寻找目录 + “\”, “/”, “\”, , , 真)
- .如果真结束
- 文件名 = 寻找文件 (寻找目录 + 关键字, )
- .判断循环首 (文件名 ≠ “”)
- .如果 (是否为空 (搜索个数) 或 取数组成员数 (结果数组) < 搜索个数)
- .如果真 (完整路径结果)
- 文件名 = 寻找目录 + 文件名
- .如果真结束
- 加入成员 (结果数组, 文件名)
- 文件名 = 寻找文件 (, )
- .否则
- 返回 ()
- .如果结束
- .判断循环尾 ()
- .如果真 (搜索子目录)
- 文件名 = 寻找文件 (寻找目录 + “*.*”, #子目录)
- .判断循环首 (文件名 ≠ “”)
- .如果真 (取文本左边 (文件名, 1) ≠ “.”)
- .如果 (是否为空 (搜索个数))
- 搜索文件 (寻找目录 + 文件名, 关键字, 结果数组, 搜索子目录, , 完整路径结果)
- .否则
- 搜索文件 (寻找目录 + 文件名, 关键字, 结果数组, 搜索子目录, 搜索个数, 完整路径结果)
- .如果结束
- .如果真结束
- 文件名 = 寻找文件 (, #子目录)
- .判断循环尾 ()
复制代码
|
|