大神们帮看一下这是为啥！-强烈要求磊哥来帮看一下！

3826678 · 发表于 2012-4-27 17:39:11

本帖最后由 3826678 于 2012-4-28 05:51 编辑

文件查找.rar (6.85 KB, 下载次数: 8)

执着 · 发表于 2012-4-27 18:21:30

先下载去分析！一般搜索文件都是多线程可以多个没有必要这么麻烦！

3826678 · 发表于 2012-4-27 18:57:17

他不让同时收索啊

3826678 · 发表于 2012-4-27 20:30:21

还有人吗帮看一下吧

执着 · 发表于 2012-4-28 12:58:09

搞不懂你同时要查询多个文件如果同查文件你得设计好同步的问题

3826678 · 发表于 2012-4-28 18:48:12

磊哥来啊！！哎其它人连标题都没看明白呢！！

小磊 · 发表于 2012-4-28 21:10:18

.版本 2

.子程序搜寻文件, , 公开, 如提供搜索目录路径，将会搜索此目录所有在内的文件。
.参数目录, 文本型, , 目录，如“D:\”盘。
.参数拓展名, 文本型, , “*.exe”
.参数装载函数, 子程序指针, , 第一个参数传递文件名的指针
.参数文件夹路径, 逻辑型, 可空, 是否返回文件夹路径
.局部变量文本, 文本型

处理事件 ()
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录＝目录＋ “\”
.如果真结束
文本＝寻找文件 (目录＋拓展名, )
.判断循环首 (文本 ≠ “”)
文本＝目录＋文本
CALL (到整数 (装载函数), lstrcpyn字节集 (文本, 文本, 0))
文本＝寻找文件 (, )
.判断循环尾 ()
文本＝寻找文件 (目录＋ “*.*”, #子目录)
.判断循环首 (文本 ≠ “”)
.如果真 (取文本左边 (文本, 1) ≠ “.”)
      文本＝目录＋文本
      .如果真 (文件夹路径)
         CALL (到整数 (装载函数), lstrcpyn字节集 (文本, 文本, 0))
      .如果真结束
      搜寻文件 (文本, 拓展名, 装载函数, 文件夹路径)
.如果真结束
文本＝寻找文件 (, #子目录)
.判断循环尾 ()

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

[已解决] 大神们帮看一下这是为啥！-强烈要求磊哥来帮看一下！