大神进来看看

娱乐哟

' 源码存在两个问题求大神帮忙解决, 另外如果可以希望大神优化下搜索速度

' 一、写法存在问题桌面文件扫描不到
' 二、文件搜索希望避开指定目录 如 Program Files、Windows等多个文件夹 一级或二级目录  希望写法调用 常量_避开目录+换行符

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
磁盘	文本型		0
I	整数型

输出调试文本 (“- 搜索开始 -” ＋ #换行符 )
磁盘 ＝ 取驱动器列表 ( #接口常量 .硬盘驱动器)
计次循环首 (取数组成员数 (磁盘), I)
文件搜索 (磁盘 [I], “*.*”)
' 输出调试文本 (“查找磁盘” ＋ 磁盘 [I])
计次循环尾 ()
输出调试文本 ( #换行符 ＋ “- 搜索完毕 -”)

子程序名	返回值类型	公开	备 注
文件搜索
参数名	类 型	参考	可空	数组	备 注
目录	文本型
文件名	文本型

变量名	类 型	静态	数组	备 注
局部文件名	文本型
子目录	文本型
内容	文本型
文件类型	文本型		0
i	整数型

如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”

局部文件名 ＝ 寻找文件 (目录 ＋ 文件名, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
判断循环首 (局部文件名 ≠ “”)
如果真 (局部文件名 ＝ “.” 或 局部文件名 ＝ “..”)
局部文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
到循环尾 ()
如果真 (取文件属性 (目录 ＋ “\” ＋ 局部文件名) ＝ #子目录 )
文件搜索 (目录 ＋ “” ＋ 局部文件名, “*.*”)
局部文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
到循环尾 ()

文件类型 ＝ 分割文本 ( #常量_文件类型, #换行符, )  ' 文件类型
计次循环首 (取数组成员数 (文件类型), i)
如果真 (取文本右边 (局部文件名, 4) ＝ 文件类型 [i])
' 删除文件 (目录 ＋ 局部文件名)  ' 删除命令
输出调试文本 (目录 ＋ 局部文件名)

计次循环尾 ()
局部文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)
处理事件 ()
判断循环尾 ()

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 磁盘, 文本型, , "0"<br /> .局部变量 I, 整数型<br /> <br /> 输出调试文本 (“- 搜索开始 -” ＋ #换行符)<br /> 磁盘 ＝ 取驱动器列表 (#接口常量.硬盘驱动器)<br /> .计次循环首 (取数组成员数 (磁盘), I)<br />     文件搜索 (磁盘 [I], “*.*”)<br />     ' 输出调试文本 (“查找磁盘” ＋ 磁盘 [I])<br /> .计次循环尾 ()<br /> 输出调试文本 (#换行符 ＋ “- 搜索完毕 -”)<br /> <br /> .子程序 文件搜索<br /> .参数 目录, 文本型<br /> .参数 文件名, 文本型, 可空<br /> .局部变量 局部文件名, 文本型<br /> .局部变量 子目录, 文本型<br /> .局部变量 内容, 文本型<br /> .局部变量 文件类型, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> <br /> .如果真 (取文本右边 (目录, 1) ≠ “\”)<br />     目录 ＝ 目录 ＋ “\”<br /> .如果真结束<br /> <br /> 局部文件名 ＝ 寻找文件 (目录 ＋ 文件名, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br /> .判断循环首 (局部文件名 ≠ “”)<br />     .如果真 (局部文件名 ＝ “.” 或 局部文件名 ＝ “..”)<br />         局部文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br />         到循环尾 ()<br />     .如果真结束<br />     .如果真 (取文件属性 (目录 ＋ “\” ＋ 局部文件名) ＝ #子目录)<br />         文件搜索 (目录 ＋ “” ＋ 局部文件名, “*.*”)<br />         局部文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br />         到循环尾 ()<br /> <br />     .如果真结束<br /> <br />     文件类型 ＝ 分割文本 (#常量_文件类型, #换行符, )  ' 文件类型<br />     .计次循环首 (取数组成员数 (文件类型), i)<br />         .如果真 (取文本右边 (局部文件名, 4) ＝ 文件类型 <i>)<br />             ' 删除文件 (目录 ＋ 局部文件名)  ' 删除命令<br />             输出调试文本 (目录 ＋ 局部文件名)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     局部文件名 ＝ 寻找文件 (, 1 ＋ 2 ＋ 4 ＋ 16 ＋ 32)<br />     处理事件 ()<br /> .判断循环尾 ()

补充内容 (2017-5-17 17:03):
帮忙做好10元红包

娱乐哟

希望可以解决,源码已上传

dycolumbia

这个是什么东西，指定文件搜索器吗

娱乐哟

dycolumbia 发表于 2017-5-17 16:37
这个是什么东西，指定文件搜索器吗

是的         

dycolumbia

这个太多了估计不一定有人给你写，除非你发红包

娱乐哟

哎 估计标题写错了