精易模块的文件_搜索改进建议

MIKAZE3

精易模块的文件_搜索是个实用并强大的功能，但是它只能把搜索到的文件放到列表框内存放，不支持部分界面支持库或者其他输出
建议以数组形式返回文件，以上是我的改进建议，下面是我的实例代码，是通过改进文件_搜索做出来的

  

子程序名	返回值类型	公开	备 注
文件_搜索_数组	整数型		可以设置显示标签和自动加入到列表框,可以当成枚举文件命令,返回文件数量
参数名	类 型	参考	可空	数组	备 注
欲寻找的目录	文本型				如：C:,表示C盘,记得C字后面两点一定要写，目录不以\结尾会自动添加
文件数组	文本型				投递的文件名数组
文件类型	文本型				可空：默认为*.*,也就是全部类型。 如填 *.txt只找txt类型的文件
文件名包含关键字	文本型				搜索文件名中 包含的关键字。如： 精易论坛.exe 只需要 精易就可以了
显示标签	标签				用来显示搜索路径的标签
是否带路径	逻辑型				默认为假； 真=带目录路径，如C:\012.txt； 假=不带，如 012.txt；

变量名	类 型	静态	数组	备 注
局_子目录	文本型
局_文件名	文本型
LabelDisplay	逻辑型
Keyword	逻辑型
ListBoxDisplay	逻辑型

欲寻找的目录 ＝ 选择 (取文本右边 (欲寻找的目录, 1) ≠ “\”, 欲寻找的目录 ＋ “\”, 欲寻找的目录)
文件类型 ＝ 选择 (是否为空 (文件类型), “*.*”, 文件类型)
Keyword ＝ 选择 (是否为空 (文件名包含关键字), 假, 真)
LabelDisplay ＝ 选择 (是否为空 (显示标签), 假, 真)
局_文件名 ＝ 寻找文件 (欲寻找的目录 ＋ 文件类型, )
判断循环首 (局_文件名 ≠ “”)
如果真 (LabelDisplay)
显示标签.标题 ＝ 欲寻找的目录 ＋ 局_文件名
显示标签.刷新显示 ()
判断 (Keyword ＝ 假)
判断 (是否带路径)
加入成员 (文件数组, 欲寻找的目录 ＋ 局_文件名)
加入成员 (文件数组, 局_文件名)

判断 (寻找文本 (到小写 (局_文件名), 到小写 (文件名包含关键字), , 假) ≠ -1)
判断 (是否带路径)
加入成员 (文件数组, 欲寻找的目录 ＋ 局_文件名)
加入成员 (文件数组, 局_文件名)




处理事件 ()
局_文件名 ＝ 寻找文件 (, )
判断循环尾 ()
局_子目录 ＝ 寻找文件 (欲寻找的目录 ＋ “*.*”, #子目录 )
判断循环首 (局_子目录 ≠ “”)
如果真 (取文本左边 (局_子目录, 1) ≠ “.”)
判断 (LabelDisplay)
文件_搜索_数组 (欲寻找的目录 ＋ 局_子目录 ＋ “\”, 文件数组, 文件类型, 文件名包含关键字, 显示标签, 是否带路径)
文件_搜索_数组 (欲寻找的目录 ＋ 局_子目录 ＋ “\”, 文件数组, 文件类型, 文件名包含关键字, , 是否带路径)
处理事件 ()
局_子目录 ＝ 寻找文件 (, #子目录 )
处理事件 ()
判断循环尾 ()
返回 (取数组成员数 (文件数组))

.版本 2<br /> <br /> .子程序 文件_搜索_数组, 整数型, , 可以设置显示标签和自动加入到列表框,可以当成枚举文件命令,返回文件数量<br /> .参数 欲寻找的目录, 文本型, , 如：C:,表示C盘,记得C字后面两点一定要写，目录不以\结尾会自动添加<br /> .参数 文件数组, 文本型, 参考 数组, 投递的文件名数组<br /> .参数 文件类型, 文本型, 可空, 可空：默认为*.*,也就是全部类型。 如填 *.txt只找txt类型的文件<br /> .参数 文件名包含关键字, 文本型, 可空, 搜索文件名中 包含的关键字。如： 精易论坛.exe 只需要 精易就可以了<br /> .参数 显示标签, 标签, 可空, 用来显示搜索路径的标签<br /> .参数 是否带路径, 逻辑型, 可空, 默认为假； 真=带目录路径，如C:\012.txt； 假=不带，如 012.txt；<br /> .局部变量 局_子目录, 文本型<br /> .局部变量 局_文件名, 文本型<br /> .局部变量 LabelDisplay, 逻辑型, , ,  <br /> .局部变量 Keyword, 逻辑型<br /> .局部变量 ListBoxDisplay, 逻辑型<br /> <br /> 欲寻找的目录 ＝ 选择 (取文本右边 (欲寻找的目录, 1) ≠ “\”, 欲寻找的目录 ＋ “\”, 欲寻找的目录)<br /> 文件类型 ＝ 选择 (是否为空 (文件类型), “*.*”, 文件类型)<br /> Keyword ＝ 选择 (是否为空 (文件名包含关键字), 假, 真)<br /> LabelDisplay ＝ 选择 (是否为空 (显示标签), 假, 真)<br /> 局_文件名 ＝ 寻找文件 (欲寻找的目录 ＋ 文件类型, )<br /> .判断循环首 (局_文件名 ≠ “”)<br />     .如果真 (LabelDisplay)<br />         显示标签.标题 ＝ 欲寻找的目录 ＋ 局_文件名<br />         显示标签.刷新显示 ()<br />     .如果真结束<br />     .判断开始 (Keyword ＝ 假)<br />         .判断开始 (是否带路径)<br />             加入成员 (文件数组, 欲寻找的目录 ＋ 局_文件名)<br />         .默认<br />             加入成员 (文件数组, 局_文件名)<br />         .判断结束<br /> <br />     .判断 (寻找文本 (到小写 (局_文件名), 到小写 (文件名包含关键字), , 假) ≠ -1)<br />         .判断开始 (是否带路径)<br />             加入成员 (文件数组, 欲寻找的目录 ＋ 局_文件名)<br />         .默认<br />             加入成员 (文件数组, 局_文件名)<br />         .判断结束<br /> <br />     .默认<br /> <br />     .判断结束<br /> <br />     处理事件 ()<br />     局_文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> 局_子目录 ＝ 寻找文件 (欲寻找的目录 ＋ “*.*”, #子目录)<br /> .判断循环首 (局_子目录 ≠ “”)<br />     .如果真 (取文本左边 (局_子目录, 1) ≠ “.”)<br />         .判断开始 (LabelDisplay)<br />             文件_搜索_数组 (欲寻找的目录 ＋ 局_子目录 ＋ “\”, 文件数组, 文件类型, 文件名包含关键字, 显示标签, 是否带路径)<br />         .默认<br />             文件_搜索_数组 (欲寻找的目录 ＋ 局_子目录 ＋ “\”, 文件数组, 文件类型, 文件名包含关键字, , 是否带路径)<br />         .判断结束<br />         处理事件 ()<br />     .如果真结束<br />     局_子目录 ＝ 寻找文件 (, #子目录)<br />     处理事件 ()<br /> .判断循环尾 ()<br /> 返回 (取数组成员数 (文件数组))

以下是使用示例
文件_搜索_数组.e (4.93 KB, 下载次数: 3)

2020-12-17 12:56 上传

点击文件名下载附件
文件_搜索_数组形式输出文件名（路径）
下载积分: 精币 -2 枚

项目部004

亲！了解下 文件_枚举 ！！！

瓶中仙子

感谢分享，学习学习~

喵帕斯和艾希

感谢楼主的分享