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