文件寻找定义过滤器方式，支持更多文件寻找

.子程序 寻找文件1, 整数型, , 汉族 返回共用ms 时间
.参数 目录, 文本型
.参数 过滤器, 文本型, 数组, {“*.png”, “*.jpg”, “*.gif”, “*.bmp”}
.参数 返回数组, 文本型, 参考 数组
.局部变量 a, 整数型
.局部变量 file, 文本型
.局部变量 time, 整数型

time ＝ 取启动时间 ()
.如果真 (取数组成员数 (过滤器) ＝ 0 或 目录 ＝ “”)
返回 (0)
.如果真结束
.如果真 (取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
.如果真结束
清除数组 (返回数组)
.计次循环首 (取数组成员数 (过滤器), a)
file ＝ 寻找文件 (目录 ＋ 过滤器 [a], )
.判断循环首 (file ≠ “”)
加入成员 (返回数组, 目录 ＋ file)
file ＝ 寻找文件 (, )
.判断循环尾 ()
处理事件 ()
.计次循环尾 ()
time ＝ 取启动时间 () － time
返回 (time)