按钮单击搜索指定文件夹目录，要源码

精易⌒小齐

cunanhai

111111.e (965.49 KB, 下载次数: 9)

2026-8-3 04:07 上传

点击文件名下载附件

算法艺术家

  

子程序名	返回值类型	公开	备 注
文件_枚举文件和目录	整数型		代替 枚举某个目录下的指定类型文件；成功只返回文件数量；
参数名	类 型	参考	可空	数组	备 注
欲寻找的目录	文本型				文件目录
欲寻找的文件名	文本型				如果寻找全部文件可以填入*.*，或*.txt只找txt文件, 多个后缀中间用“|”隔开
是否遍历子目录	逻辑型
文件数组	文本型				用于装载文件数组的变量；把寻找到的文件都放在这个数组里，并返回；
目录数组	文本型

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

如果真 (是否遍历子目录 ＝ 假)
清除数组 (文件数组)
局_目录 ＝ 欲寻找的目录
如果真 (取文本右边 (局_目录, 1) ≠ “\”)
局_目录 ＝ 局_目录 ＋ “\”
局_后缀数组 ＝ 分割文本 (欲寻找的文件名, “|”, )
局_后缀总数 ＝ 取数组成员数 (局_后缀数组)
计次循环首 (局_后缀总数, 局_计次)
局_文件名 ＝ 寻找文件 (局_目录 ＋ 局_后缀数组 [局_计次], )
判断循环首 (局_文件名 ≠ “”)
局_文件名 ＝ 局_目录 ＋ 局_文件名
加入成员 (文件数组, 局_文件名)
局_文件名 ＝ 寻找文件 (, )
判断循环尾 ()
计次循环尾 ()
如果真 (是否遍历子目录)
局_文件名 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录 )
判断循环首 (局_文件名 ≠ “”)
如果真 (局_文件名 ≠ “.” 且 局_文件名 ≠ “..”)
局_文件名 ＝ 局_目录 ＋ 局_文件名
判断 (是否为空 (目录数组) ＝ 真)
文件_枚举文件和目录 (局_文件名, 欲寻找的文件名, 是否遍历子目录, 文件数组)
加入成员 (目录数组, 局_文件名)
文件_枚举文件和目录 (局_文件名, 欲寻找的文件名, 是否遍历子目录, 文件数组, 目录数组)

局_文件名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()

返回 (取数组成员数 (文件数组))

子程序名	返回值类型	公开	备 注
文件搜索			搜索一个目录下包含某些关键字的 的全部目录和文件 包括子目录
参数名	类 型	参考	可空	数组	备 注
目录	文本型
文件名关键字	文本型				文件名中包含的关键字，多个关键字用空格分开
欲寻找的文件类型	文本型				注明：如果寻找全部文件可以填入*.*，或*.txt只找txt文件, 多个后缀中间用“|”隔开。
不区分大小写	逻辑型				默认,假:区分大小写。 真:不区分大小写。
返回文件数组	文本型
返回目录数组	文本型

变量名	类 型	静态	数组	备 注
文件数组	文本型		0
目录数组	文本型		0
i	整数型
n	整数型
结果文件数组	文本型		0
结果目录数组	文本型		0
关键字组	文本型		0
关键字	文本型
关键字数量	整数型
找到次数	整数型
文件名	文本型

如果真 (欲寻找的文件类型 ＝ “”)
欲寻找的文件类型 ＝ “*.*”
文件_枚举文件和目录 (目录, 欲寻找的文件类型, 真, 文件数组, 目录数组)
关键字 ＝ 文本_删首尾空 (文件名关键字)
计次循环首 (50, )
关键字 ＝ 子文本替换 (关键字, “  ”, “ ”, , 10, 真)
计次循环尾 ()
关键字组 ＝ 分割文本 (关键字, “ ”, )
关键字数量 ＝ 取数组成员数 (关键字组)
调试输出 (关键字组)
计次循环首 (取数组成员数 (目录数组), i)
文件名 ＝ 目录_取尾部目录名或文件名 (目录数组 [i])
计次循环首 (关键字数量, n)
如果真 (寻找文本s (文件名, 关键字组 [n], , 不区分大小写) ≠ -1)
找到次数 ＝ 找到次数 ＋ 1

计次循环尾 ()
如果真 (找到次数 ＝ 关键字数量)
加入成员 (结果目录数组, 目录数组 [i])
找到次数 ＝ 0
计次循环尾 ()
计次循环首 (取数组成员数 (文件数组), i)
文件名 ＝ 文件_取文件名 (文件数组 [i], 真)
计次循环首 (关键字数量, n)
如果真 (寻找文本s (文件名, 关键字组 [n], , 不区分大小写) ≠ -1)
找到次数 ＝ 找到次数 ＋ 1

计次循环尾 ()
如果真 (找到次数 ＝ 关键字数量)
加入成员 (结果文件数组, 文件数组 [i])
找到次数 ＝ 0
计次循环尾 ()
返回目录数组 ＝ 结果目录数组
返回文件数组 ＝ 结果文件数组

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 文件_枚举文件和目录, 整数型, 公开, 代替 枚举某个目录下的指定类型文件；成功只返回文件数量；<br /> .参数 欲寻找的目录, 文本型, , 文件目录<br /> .参数 欲寻找的文件名, 文本型, , 如果寻找全部文件可以填入*.*，或*.txt只找txt文件, 多个后缀中间用“|”隔开<br /> .参数 是否遍历子目录, 逻辑型, 可空<br /> .参数 文件数组, 文本型, 参考 可空 数组, 用于装载文件数组的变量；把寻找到的文件都放在这个数组里，并返回；<br /> .参数 目录数组, 文本型, 参考 可空 数组<br /> .局部变量 局_文件名, 文本型<br /> .局部变量 局_目录, 文本型<br /> .局部变量 局_后缀数组, 文本型, , "0"<br /> .局部变量 局_后缀总数, 整数型<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 />         .如果真 (局_文件名 ≠ “.” 且 局_文件名 ≠ “..”)<br />             局_文件名 ＝ 局_目录 ＋ 局_文件名<br />             .判断开始 (是否为空 (目录数组) ＝ 真)<br />                 文件_枚举文件和目录 (局_文件名, 欲寻找的文件名, 是否遍历子目录, 文件数组)<br />             .默认<br />                 加入成员 (目录数组, 局_文件名)<br />                 文件_枚举文件和目录 (局_文件名, 欲寻找的文件名, 是否遍历子目录, 文件数组, 目录数组)<br />             .判断结束<br /> <br />         .如果真结束<br />         局_文件名 ＝ 寻找文件 (, #子目录)<br />     .判断循环尾 ()<br /> .如果真结束<br /> <br /> 返回 (取数组成员数 (文件数组))<br /> <br /> .子程序 文件搜索, , 公开, 搜索一个目录下包含某些关键字的 的全部目录和文件 包括子目录<br /> .参数 目录, 文本型<br /> .参数 文件名关键字, 文本型, , 文件名中包含的关键字，多个关键字用空格分开<br /> .参数 欲寻找的文件类型, 文本型, 可空, 注明：如果寻找全部文件可以填入*.*，或*.txt只找txt文件, 多个后缀中间用“|”隔开。<br /> .参数 不区分大小写, 逻辑型, 可空, 默认,假:区分大小写。 真:不区分大小写。<br /> .参数 返回文件数组, 文本型, 参考 可空 数组<br /> .参数 返回目录数组, 文本型, 参考 可空 数组<br /> .局部变量 文件数组, 文本型, , "0"<br /> .局部变量 目录数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 结果文件数组, 文本型, , "0"<br /> .局部变量 结果目录数组, 文本型, , "0"<br /> .局部变量 关键字组, 文本型, , "0"<br /> .局部变量 关键字, 文本型<br /> .局部变量 关键字数量, 整数型<br /> .局部变量 找到次数, 整数型<br /> .局部变量 文件名, 文本型<br /> <br /> .如果真 (欲寻找的文件类型 ＝ “”)<br />     欲寻找的文件类型 ＝ “*.*”<br /> .如果真结束<br /> 文件_枚举文件和目录 (目录, 欲寻找的文件类型, 真, 文件数组, 目录数组)<br /> <br /> 关键字 ＝ 文本_删首尾空 (文件名关键字)<br /> .计次循环首 (50, )<br />     关键字 ＝ 子文本替换 (关键字, “  ”, “ ”, , 10, 真)<br /> .计次循环尾 ()<br /> 关键字组 ＝ 分割文本 (关键字, “ ”, )<br /> 关键字数量 ＝ 取数组成员数 (关键字组)<br /> 调试输出 (关键字组)<br /> <br /> .计次循环首 (取数组成员数 (目录数组), i)<br />     文件名 ＝ 目录_取尾部目录名或文件名 (目录数组 <i>)<br />     .计次循环首 (关键字数量, n)<br />         .如果真 (寻找文本s (文件名, 关键字组 [n], , 不区分大小写) ≠ -1)<br />             找到次数 ＝ 找到次数 ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (找到次数 ＝ 关键字数量)<br />         加入成员 (结果目录数组, 目录数组 <i>)<br />     .如果真结束<br />     找到次数 ＝ 0<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (取数组成员数 (文件数组), i)<br />     文件名 ＝ 文件_取文件名 (文件数组 <i>, 真)<br />     .计次循环首 (关键字数量, n)<br />         .如果真 (寻找文本s (文件名, 关键字组 [n], , 不区分大小写) ≠ -1)<br />             找到次数 ＝ 找到次数 ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (找到次数 ＝ 关键字数量)<br />         加入成员 (结果文件数组, 文件数组 <i>)<br />     .如果真结束<br />     找到次数 ＝ 0<br /> .计次循环尾 ()<br /> <br /> 返回目录数组 ＝ 结果目录数组<br /> 返回文件数组 ＝ 结果文件数组