精易模块,文件_枚举_升级版,代码已写好,就看能不能收录到精易模块里了

福仔

        增加功能:

                1. 支持多种扩展名
                2. 支持多层目录
                3. 还是一样的简单实用,只用了核心库命令
                4. 比现有的 文件_枚举() 稍微强大一些

  

子程序名	返回值类型	公开	备 注
文件_枚举_升级版	整数型		提供一个目录,获取目录下指定格式文件,成功返回获取到的数量,失败返回0
参数名	类 型	参考	可空	数组	备 注
目录	文本型				提供一个目录,比如 “c:\”
文件类型	文本型				提供一个或多个扩展名,多个扩展名请用"|" 隔开,扩展名的点可加可不加,比如: ".jpg|exe|png|.e" 留空则获取全部搜索到的文件
路径数组	文本型				提供一个文本型的数组变量,接受结果
获取格式	整数型				0为获取完整路径,比如"c:\123.txt" 1为获取文件名,含扩展名,比如"123.txt" 2为文件名,不含扩展名 比如"123" 默认为0,获取完整路径
是否包含子目录	逻辑型				为真则子目录下文件也搜索,默认为假,不搜索子目录

变量名	类 型	静态	数组	备 注
局_搜索文件	文本型
局_扩展名	文本型		0
局_搜到文件	文本型
局_加入的文件	文本型
i	整数型

如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
局_搜索文件 ＝ 寻找文件 (目录 ＋ “*.*”, )
判断循环首 (局_搜索文件 ≠ “”)
判断 (取反 (是否为空 (文件类型)))
局_扩展名 ＝ 分割文本 (文件类型, “|”, )
计次循环首 (取数组成员数 (局_扩展名), i)
如果真 (取文本左边 (局_扩展名 [i], 1) ≠ “.”)
局_扩展名 [i] ＝ “.” ＋ 局_扩展名 [i]
如果真 (局_扩展名 [i] ＝ 取文本右边 (局_搜索文件, 取文本长度 (局_扩展名 [i])))
局_搜到文件 ＝ 局_搜索文件
跳出循环 ()

计次循环尾 ()
局_搜到文件 ＝ 局_搜索文件

如果真 (局_搜到文件 ≠ “”)
判断 (获取格式 ＝ 0)
局_加入的文件 ＝ 目录 ＋ 局_搜到文件
判断 (获取格式 ＝ 1)
局_加入的文件 ＝ 局_搜到文件
判断 (获取格式 ＝ 2)
局_加入的文件 ＝ 取文本左边 (局_搜到文件, 倒找文本 (局_搜到文件, “.”, , 假) － 1)
局_加入的文件 ＝ 目录 ＋ 局_搜到文件 ' 其他情况都返回全路径
加入成员 (路径数组, 局_加入的文件)
局_搜到文件 ＝ “”
局_搜索文件 ＝ 寻找文件 (, )
判断循环尾 ()
如果真 (是否包含子目录)
局_搜索文件 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录 )
判断循环首 (局_搜索文件 ≠ “”)
如果真 (取文本左边 (局_搜索文件, 1) ≠ “.”)
文件_枚举_升级版 (目录 ＋ 局_搜索文件, 文件类型, 路径数组, 获取格式, 是否包含子目录) ' 递归
局_搜索文件 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
返回 (取数组成员数 (路径数组))

.版本 2<br /> <br /> .子程序 文件_枚举_升级版, 整数型, 公开, 提供一个目录,获取目录下指定格式文件,成功返回获取到的数量,失败返回0<br /> .参数 目录, 文本型, , 提供一个目录,比如 “c:\”<br /> .参数 文件类型, 文本型, 可空, 提供一个或多个扩展名,多个扩展名请用"|" 隔开,扩展名的点可加可不加,比如: ".jpg|exe|png|.e" 留空则获取全部搜索到的文件<br /> .参数 路径数组, 文本型, 参考 可空 数组, 提供一个文本型的数组变量,接受结果<br /> .参数 获取格式, 整数型, 可空, 0为获取完整路径,比如"c:\123.txt" 1为获取文件名,含扩展名,比如"123.txt" 2为文件名,不含扩展名 比如"123" 默认为0,获取完整路径<br /> .参数 是否包含子目录, 逻辑型, 可空, 为真则子目录下文件也搜索,默认为假,不搜索子目录<br /> .局部变量 局_搜索文件, 文本型<br /> .局部变量 局_扩展名, 文本型, , "0"<br /> .局部变量 局_搜到文件, 文本型<br /> .局部变量 局_加入的文件, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (取文本右边 (目录, 1) ≠ “\”)<br /> 目录 ＝ 目录 ＋ “\”<br /> .如果真结束<br /> 局_搜索文件 ＝ 寻找文件 (目录 ＋ “*.*”, )<br /> .判断循环首 (局_搜索文件 ≠ “”)<br /> .判断开始 (取反 (是否为空 (文件类型)))<br /> 局_扩展名 ＝ 分割文本 (文件类型, “|”, )<br /> .计次循环首 (取数组成员数 (局_扩展名), i)<br /> .如果真 (取文本左边 (局_扩展名 <i>, 1) ≠ “.”)<br /> 局_扩展名 <i> ＝ “.” ＋ 局_扩展名 <i><br /> .如果真结束<br /> .如果真 (局_扩展名 <i> ＝ 取文本右边 (局_搜索文件, 取文本长度 (局_扩展名 <i>)))<br /> 局_搜到文件 ＝ 局_搜索文件<br /> 跳出循环 ()<br /> .如果真结束<br /> <br /> .计次循环尾 ()<br /> .默认<br /> 局_搜到文件 ＝ 局_搜索文件<br /> .判断结束<br /> <br /> .如果真 (局_搜到文件 ≠ “”)<br /> .判断开始 (获取格式 ＝ 0)<br /> 局_加入的文件 ＝ 目录 ＋ 局_搜到文件<br /> .判断 (获取格式 ＝ 1)<br /> 局_加入的文件 ＝ 局_搜到文件<br /> .判断 (获取格式 ＝ 2)<br /> 局_加入的文件 ＝ 取文本左边 (局_搜到文件, 倒找文本 (局_搜到文件, “.”, , 假) － 1)<br /> .默认<br /> 局_加入的文件 ＝ 目录 ＋ 局_搜到文件 ' 其他情况都返回全路径<br /> .判断结束<br /> 加入成员 (路径数组, 局_加入的文件)<br /> .如果真结束<br /> 局_搜到文件 ＝ “”<br /> 局_搜索文件 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> .如果真 (是否包含子目录)<br /> 局_搜索文件 ＝ 寻找文件 (目录 ＋ “*.*”, #子目录)<br /> .判断循环首 (局_搜索文件 ≠ “”)<br /> .如果真 (取文本左边 (局_搜索文件, 1) ≠ “.”)<br /> 文件_枚举_升级版 (目录 ＋ 局_搜索文件, 文件类型, 路径数组, 获取格式, 是否包含子目录) ' 递归<br /> .如果真结束<br /> 局_搜索文件 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()<br /> .如果真结束<br /> 返回 (取数组成员数 (路径数组))

本代码由论坛 非热心会员   叫我福仔   提供,不知道能不能收录到精易模块

wx169

收藏了 非常感谢

wincloud

楼主好厉害

进击

@福仔 话说我还以为你的源码被收录精易模块了 刚用了最新版要调用才发现不是

还是自己添加吧，丰衣足食。。。

66247

非常感谢，原版文件枚举不能枚举子目录，这个升级版很好用，谢谢。

hycody

希望楼主补充图片~

福仔

萧阳天 发表于 2016-6-18 21:07
支持多扩展名，不错，收录了

感谢萧大大   摸摸一个大

萧阳天

支持多扩展名，不错，收录了

福仔

叫我福仔 发表于 2016-6-13 17:51
附近也传一下

@萧阳天 这个有用么?
文件_枚举_升级版.zip (36.42 KB, 下载次数: 44)

2016-6-16 04:34 上传

点击文件名下载附件
这个附件优化了一点点功能

福仔

文件_枚举_升级版.zip (2.17 KB, 下载次数: 220)

2016-6-13 17:51 上传

点击文件名下载附件

附近也传一下