词条信息

子程序名	返回值类型	公开	备 注
文件_新寻找文件			可递归寻找
参数名	类 型	参考	可空	数组	备 注
目录	文本型				欲寻找的目录
子目录数组	文本型				存储子目录的数组，不设定将不寻找子目录且不使用递归
文件数组	文本型				存储文件的数组，不设定将不寻找文件
完整文件名	逻辑型				是否输出完整文件名。默认为假
使用递归	逻辑型				需要开启寻找子目录。开启后将遍历目录
目录筛选器	文本型				默认为所有目录
文件筛选器	文本型				默认为所有文件

变量名	类 型	静态	数组	备 注
文件名	文本型
递归文件	文本型
递归目录	文本型
计次
计次1

如果真 (是否为空 (使用递归)) ' 初始化
使用递归 ＝ 真
如果真 (是否为空 (目录筛选器))
目录筛选器 ＝ “*”
如果真 (是否为空 (文件筛选器))
文件筛选器 ＝ “*.*”
如果真 (取文本右边 (目录, 1) ≠ “/” 或 取文本右边 (目录, 1) ≠ “\”)
目录 ＝ 目录 ＋ “\”
如果真 (是否为空 (文件数组) ＝ 假) ' 找文件
重定义数组 (文件数组, 假, 0)
文件名 ＝ 寻找文件 (目录 ＋ 文件筛选器, )
如果真 (文件名 ≠ “”)
如果 (完整文件名)
加入成员 (文件数组, 目录 ＋ 文件名)
加入成员 (文件数组, 文件名)
判断循环首 (真)
文件名 ＝ 寻找文件 (, )
如果真 (文件名 ≠ “”)
如果 (完整文件名)
加入成员 (文件数组, 目录 ＋ 文件名)
加入成员 (文件数组, 文件名)
到循环尾 ()
跳出循环 ()
判断循环尾 ()
如果真 (是否为空 (子目录数组) ＝ 假) ' 找子目录
重定义数组 (子目录数组, 假, 0)
文件名 ＝ 寻找文件 (目录 ＋ 目录筛选器, 16)
如果真 (文件名 ≠ “”)
如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
如果 (完整文件名)
加入成员 (子目录数组, 目录 ＋ 文件名)
加入成员 (子目录数组, 文件名)

判断循环首 (真)
文件名 ＝ 寻找文件 (, 16)
如果真 (文件名 ≠ “”)
如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
如果 (完整文件名)
加入成员 (子目录数组, 目录 ＋ 文件名)
加入成员 (子目录数组, 文件名)

到循环尾 ()
跳出循环 ()
判断循环尾 ()
如果真 (使用递归) ' 递归
计次循环首 (取数组成员数 (子目录数组), 计次)
如果 (完整文件名)
如果 (是否为空 (文件数组))
文件_新寻找文件 (子目录数组 [计次], 递归目录, , 真, , 目录筛选器, 文件筛选器)
文件_新寻找文件 (子目录数组 [计次], 递归目录, 递归文件, 真, , 目录筛选器, 文件筛选器)
计次循环首 (取数组成员数 (递归文件), 计次1)
加入成员 (文件数组, 递归文件 [计次1])
计次循环尾 ()计次循环首 (取数组成员数 (递归目录), 计次1)
加入成员 (子目录数组, 递归目录 [计次1])
计次循环尾 ()如果 (是否为空 (文件数组))
文件_新寻找文件 (目录 ＋ 子目录数组 [计次], 递归目录, , 真, , 目录筛选器, 文件筛选器)
文件_新寻找文件 (目录 ＋ 子目录数组 [计次], 递归目录, 递归文件, 真, , 目录筛选器, 文件筛选器)
如果真 (是否为空 (文件数组) ＝ 假)
计次循环首 (取数组成员数 (递归文件), 计次1)
加入成员 (文件数组, 取文本右边 (递归文件 [计次1], 取文本长度 (递归文件 [计次1]) － 取文本长度 (目录)))
计次循环尾 ()
计次循环首 (取数组成员数 (递归目录), 计次1)
加入成员 (子目录数组, 取文本右边 (递归目录 [计次1], 取文本长度 (递归目录 [计次1]) － 取文本长度 (目录)))
计次循环尾 ()

计次循环尾 ()




词条作者信息 使用例程