文件_枚举

qq小鸭

文件_枚举 (编辑框EX_视频文件.内容, “*.mp4|*.MP4”, 视频文件夹, 真, , )

数组:4{“d:\文档\桌面\新建文件夹\13306755018801524.mp4”,“d:\文档\桌面\新建文件夹\13306944786591696.mp4”,“d:\文档\桌面\新建文件夹\13306755018801524.mp4”,“d:\文档\桌面\新建文件夹\13306944786591696.mp4”}

为什么我文件夹只有两个文件 枚举了四个出来

Suky

  

子程序名	返回值类型	公开	备 注
文件_枚举	整数型		枚举某个目录下的指定类型文件；成功返回文件数量；
参数名	类 型	参考	可空	数组	备 注
欲寻找的目录	文本型				文件目录
欲寻找的文件名	文本型				如果寻找全部文件可以填入*.*，或*.txt只找txt文件, 多个后缀中间用“|”隔开
文件数组	文本型				用于装载文件数组的变量；把寻找到的文件都放在这个数组里，并返回；
是否带路径	逻辑型				默认为假； 真=带目录路径，如C:\012.txt； 假=不带，如 012.txt；
是否按字母排序	逻辑型				默认为假；真=按字母a-z排序  假=不排序
是否遍历子目录	逻辑型				留空默认为假；为真时文件数组不主动清空

变量名	类 型	静态	数组	备 注
局_文件名	文本型
局_目录	文本型
局_后缀数组	文本型		0
局_后缀总数	整数型
局_计次	整数型

如果真 (是否遍历子目录 ＝ 假)
清除数组 (文件数组)
局_目录 ＝ 欲寻找的目录
如果真 (取文本右边 (局_目录, 1) ≠ “\”)
局_目录 ＝ 局_目录 ＋ “\”
局_后缀数组 ＝ 分割文本 (欲寻找的文件名, “|”, )
局_后缀总数 ＝ 取数组成员数 (局_后缀数组)
' Suky 2022年9月21日 添加↓↓=====================
计次循环首 (局_后缀总数, 局_计次)
局_文件名 ＝ 文本_取右边 (局_后缀数组 [局_计次], “.”, , )
局_后缀数组 [局_计次] ＝ 子文本替换 (局_后缀数组 [局_计次], 局_文件名, 到小写 (局_文件名), , , 真)
计次循环尾 ()
局_后缀总数 ＝ 数组_去重复 (局_后缀数组, )
' 局_后缀总数 ＝ 取数组成员数 (局_后缀数组)
' ================================================
计次循环首 (局_后缀总数, 局_计次)
局_文件名 ＝ 寻找文件 (局_目录 ＋ 局_后缀数组 [局_计次], )
判断循环首 (局_文件名 ≠ “”)
如果真 (是否带路径)
局_文件名 ＝ 局_目录 ＋ 局_文件名
加入成员 (文件数组, 局_文件名)
系统_处理事件1 ()
局_文件名 ＝ 寻找文件 (, )
判断循环尾 ()
计次循环尾 ()
如果真 (是否按字母排序)
数组_排序 (文件数组, 0, )
如果真 (是否遍历子目录)
局_文件名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录 )
判断循环首 (局_文件名 ≠ “”)
如果真 (局_文件名 ≠ “.” 且 局_文件名 ≠ “..”)
文件_枚举 (局_目录 ＋ 局_文件名, 欲寻找的文件名, 文件数组, 是否带路径, 是否按字母排序, 是否遍历子目录)
系统_处理事件1 ()
局_文件名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()
返回 (取数组成员数 (文件数组))

.版本 2<br /> <br /> .子程序 文件_枚举, 整数型, 公开, 枚举某个目录下的指定类型文件；成功返回文件数量；<br /> .参数 欲寻找的目录, 文本型, , 文件目录<br /> .参数 欲寻找的文件名, 文本型, , 如果寻找全部文件可以填入*.*，或*.txt只找txt文件, 多个后缀中间用“|”隔开<br /> .参数 文件数组, 文本型, 参考 可空 数组, 用于装载文件数组的变量；把寻找到的文件都放在这个数组里，并返回；<br /> .参数 是否带路径, 逻辑型, 可空, 默认为假； 真=带目录路径，如C:\012.txt； 假=不带，如 012.txt；<br /> .参数 是否按字母排序, 逻辑型, 可空, 默认为假；真=按字母a-z排序  假=不排序<br /> .参数 是否遍历子目录, 逻辑型, 可空, 留空默认为假；为真时文件数组不主动清空<br /> .局部变量 局_文件名, 文本型<br /> .局部变量 局_目录, 文本型<br /> .局部变量 局_后缀数组, 文本型, , "0"<br /> .局部变量 局_后缀总数, 整数型<br /> .局部变量 局_计次, 整数型<br /> <br /> .如果真 (是否遍历子目录 ＝ 假)<br />     清除数组 (文件数组)<br /> .如果真结束<br /> 局_目录 ＝ 欲寻找的目录<br /> .如果真 (取文本右边 (局_目录, 1) ≠ “\”)<br />     局_目录 ＝ 局_目录 ＋ “\”<br /> .如果真结束<br /> 局_后缀数组 ＝ 分割文本 (欲寻找的文件名, “|”, )<br /> 局_后缀总数 ＝ 取数组成员数 (局_后缀数组)<br /> ' Suky 2022年9月21日 添加↓↓=====================<br /> .计次循环首 (局_后缀总数, 局_计次)<br />     局_文件名 ＝ 文本_取右边 (局_后缀数组 [局_计次], “.”, , )<br />     局_后缀数组 [局_计次] ＝ 子文本替换 (局_后缀数组 [局_计次], 局_文件名, 到小写 (局_文件名), , , 真)<br /> .计次循环尾 ()<br /> 局_后缀总数 ＝ 数组_去重复 (局_后缀数组, )<br /> ' 局_后缀总数 ＝ 取数组成员数 (局_后缀数组)<br /> ' ================================================<br /> .计次循环首 (局_后缀总数, 局_计次)<br />     局_文件名 ＝ 寻找文件 (局_目录 ＋ 局_后缀数组 [局_计次], )<br />     .判断循环首 (局_文件名 ≠ “”)<br />         .如果真 (是否带路径)<br />             局_文件名 ＝ 局_目录 ＋ 局_文件名<br />         .如果真结束<br />         加入成员 (文件数组, 局_文件名)<br />         系统_处理事件1 ()<br />         局_文件名 ＝ 寻找文件 (, )<br />     .判断循环尾 ()<br /> .计次循环尾 ()<br /> .如果真 (是否按字母排序)<br />     数组_排序 (文件数组, 0, )<br /> .如果真结束<br /> .如果真 (是否遍历子目录)<br />     局_文件名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录)<br />     .判断循环首 (局_文件名 ≠ “”)<br />         .如果真 (局_文件名 ≠ “.” 且 局_文件名 ≠ “..”)<br />             文件_枚举 (局_目录 ＋ 局_文件名, 欲寻找的文件名, 文件数组, 是否带路径, 是否按字母排序, 是否遍历子目录)<br />             系统_处理事件1 ()<br />         .如果真结束<br />         局_文件名 ＝ 寻找文件 (, #子目录)<br />     .判断循环尾 ()<br /> .如果真结束<br /> 返回 (取数组成员数 (文件数组))

不确定效果   需要的自行添加

大司命

就知道挑bug！设计时候没考虑这种情况~

afu45

“*.mp4”

补充内容 (2022-9-20 21:20):
注明：如果寻找全部文件可以填入*.*，或*.txt只找txt文件, 多个后缀中间用“|”隔开
你填了两个 所以枚举了两遍

Suky

“*.mp4|*.MP4”    同类型枚举了两遍

补充内容 (2022-9-21 00:51):
你可以去看看模块源码，改成自己需要的形状

Suky

可以考虑在模块源码这个位置增加去除要枚举的类型去重的操作
后缀名分割分本之后、绿框之前


补充内容 (2022-9-21 00:59):
简单点就是，自己检查一下要寻找的文件名，保留不重复的
改善的话，有兴趣的可以改一改提交一下，后续模块更新时就会优化一下