易语言遍历搜索目录指定文件

901

由于个人软件所需,故此写完顺便发布分享一下,有待优化 带进度条显示cha询进度

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
结果	逻辑型		901 有待优化 希望帮忙改进 【目前使用无问题】

子程序名	返回值类型	公开	备 注
文件是否存在_遍历	逻辑型		递归函数
参数名	类 型	参考	可空	数组	备 注
目录路径	文本型				请提供相对路径
文件名称	文本型				需要提供完整文件名 如   123.txt

变量名	类 型	静态	数组	备 注
i	整数型
zs	文本型		0
int	整数型

如果真 (取反 (结果))
如果真 (取文本右边 (目录路径, 1) ≠ “\”)
目录路径 ＝ 目录路径 ＋ “\”
int ＝ 目录_枚举子目录 (目录路径, zs, 真)
进度条1.最大位置 ＝ 进度条1.最大位置 ＋ int
计次循环首 (int, i)
进度条1.位置 ＝ 进度条1.位置 ＋ 1
标题 ＝ 到文本 (进度条1.位置)
处理事件 ()
如果真 (取反 (结果))
结果 ＝ 文件是否存在 (zs [i] ＋ “\” ＋ 文件名称)
文件是否存在_遍历 (zs [i] ＋ “\”, 文件名称)
计次循环尾 ()
返回 (结果)

子程序名	返回值类型	公开	备 注
遍历搜索指定文件	逻辑型		直接调用这个函数 即可对指定目录进行文件搜索 找到返回真 则 假
参数名	类 型	参考	可空	数组	备 注
目录路径	文本型
软件名称EXE	文本型

结果 ＝ 假
进度条1.位置 ＝ 0
进度条1.最大位置 ＝ 0
返回 (文件是否存在_遍历 (目录路径, 软件名称EXE))

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

标题 ＝ “共执行次数：” ＋ 标题 ＋ “   结果：” ＋ 选择 (遍历搜索指定文件 (编辑框1.内容, 编辑框2.内容), “已找到！！！”, “未找到！！！”)

子程序名	返回值类型	公开	备 注
目录_枚举子目录	整数型		'首先说明一下 这个函数是精易模块里的 用模块不代表模块大王 请某些人不要过于偏激评论抨击萌新发帖的热情 谢谢  本人发帖只做技术探讨
参数名	类 型	参考	可空	数组	备 注
父文件夹路径	文本型				如：D:\Program Files；目录分割符请用\，路径不以\结尾会自动添加
子目录数组	文本型				用来装载返回的子目录路径；
是否带路径	逻辑型				假=不带，真=带;

变量名	类 型	静态	数组	备 注
子目录名	文本型
局_目录	文本型

局_目录 ＝ 父文件夹路径
如果真 (取文本右边 (局_目录, 1) ≠ “\”)
局_目录 ＝ 局_目录 ＋ “\”
子目录名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录 )
判断循环首 (子目录名 ≠ “”)
如果真 (取文本左边 (子目录名, 1) ≠ “.”)
如果 (是否带路径 ＝ 假)
加入成员 (子目录数组, 子目录名)
加入成员 (子目录数组, 局_目录 ＋ 子目录名)


子目录名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
返回 (取数组成员数 (子目录数组))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 结果, 逻辑型, , ,  901 有待优化 希望帮忙改进 【目前使用无问题】<br /> <br /> .子程序 文件是否存在_遍历, 逻辑型, , 递归函数<br /> .参数 目录路径, 文本型, , 请提供相对路径<br /> .参数 文件名称, 文本型, , 需要提供完整文件名 如   123.txt<br /> .局部变量 i, 整数型<br /> .局部变量 zs, 文本型, , "0"<br /> .局部变量 int, 整数型<br /> <br /> .如果真 (取反 (结果))<br />     .如果真 (取文本右边 (目录路径, 1) ≠ “\”)<br />         目录路径 ＝ 目录路径 ＋ “\”<br />     .如果真结束<br />     int ＝ 目录_枚举子目录 (目录路径, zs, 真)<br />     进度条1.最大位置 ＝ 进度条1.最大位置 ＋ int<br />     .计次循环首 (int, i)<br />         进度条1.位置 ＝ 进度条1.位置 ＋ 1<br />         标题 ＝ 到文本 (进度条1.位置)<br />         处理事件 ()<br />         .如果真 (取反 (结果))<br />             结果 ＝ 文件是否存在 (zs <i> ＋ “\” ＋ 文件名称)<br />         .如果真结束<br />         文件是否存在_遍历 (zs <i> ＋ “\”, 文件名称)<br />     .计次循环尾 ()<br /> .如果真结束<br /> 返回 (结果)<br /> <br /> .子程序 遍历搜索指定文件, 逻辑型, , 直接调用这个函数 即可对指定目录进行文件搜索 找到返回真 则 假 <br /> .参数 目录路径, 文本型<br /> .参数 软件名称EXE, 文本型<br /> <br /> 结果 ＝ 假<br /> 进度条1.位置 ＝ 0<br /> 进度条1.最大位置 ＝ 0<br /> 返回 (文件是否存在_遍历 (目录路径, 软件名称EXE))<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 标题 ＝ “共执行次数：” ＋ 标题 ＋ “   结果：” ＋ 选择 (遍历搜索指定文件 (编辑框1.内容, 编辑框2.内容), “已找到！！！”, “未找到！！！”)<br /> <br /> <br /> <br /> .子程序 目录_枚举子目录, 整数型, 公开, '首先说明一下 这个函数是精易模块里的 用模块不代表模块大王 请某些人不要过于偏激评论抨击萌新发帖的热情 谢谢  本人发帖只做技术探讨<br /> .参数 父文件夹路径, 文本型, , 如：D:\Program Files；目录分割符请用\，路径不以\结尾会自动添加<br /> .参数 子目录数组, 文本型, 参考 可空 数组, 用来装载返回的子目录路径；<br /> .参数 是否带路径, 逻辑型, 可空, 假=不带，真=带;<br /> .局部变量 子目录名, 文本型<br /> .局部变量 局_目录, 文本型<br /> <br /> 局_目录 ＝ 父文件夹路径<br /> .如果真 (取文本右边 (局_目录, 1) ≠ “\”)<br />     局_目录 ＝ 局_目录 ＋ “\”<br /> .如果真结束<br /> 子目录名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录)<br /> .判断循环首 (子目录名 ≠ “”)<br />     .如果真 (取文本左边 (子目录名, 1) ≠ “.”)<br />         .如果 (是否带路径 ＝ 假)<br />             加入成员 (子目录数组, 子目录名)<br />         .否则<br />             加入成员 (子目录数组, 局_目录 ＋ 子目录名)<br />         .如果结束<br /> <br />     .如果真结束<br /> <br />     子目录名 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()<br /> 返回 (取数组成员数 (子目录数组))

xiaoshumiao1136

支持开源~！感谢分享

a16242911

{:7_436:}{:7_436:}{:7_436:}

a16242911

{:7_462:}{:7_462:}

Perfectzone

来学习下

Perfectzone

这个很不错啊

小迷人啦啦啦

支持开源~！感谢分享

醉卧美人膝

901

bing2019 发表于 2021-4-8 18:16
能找到吗

废话.......................

bing2019

能找到吗

没有南风

谢谢   希望有用