0 0 1
分享排行榜
修正错误贡献榜
词条信息
子程序名返回值类型公开备 注
文件_新寻找文件 可递归寻找
参数名类 型参考可空数组备 注
目录文本型欲寻找的目录
子目录数组文本型存储子目录的数组,不设定将不寻找子目录且不使用递归
文件数组文本型存储文件的数组,不设定将不寻找文件
完整文件名逻辑型是否输出完整文件名。默认为假
使用递归逻辑型需要开启寻找子目录。开启后将遍历目录
目录筛选器文本型默认为所有目录
文件筛选器文本型默认为所有文件
变量名类 型静态数组备 注
文件名文本型 
递归文件文本型
递归目录文本型
计次  
计次1  
如果真 (是否为空 (使用递归)) ' 初始化
使用递归 = 真
如果真 (是否为空 (目录筛选器))
目录筛选器 = “*”
如果真 (是否为空 (文件筛选器))
文件筛选器 = “*.*”
如果真 (取文本右边 (目录, 1)“/” 取文本右边 (目录, 1)“\”)
目录 = 目录 + “\”
如果真 (是否为空 (文件数组)) ' 找文件
重定义数组 (文件数组, 假, 0)
文件名 = 寻找文件 (目录 + 文件筛选器, )
如果真 (文件名 ≠ “”)
如果 (完整文件名)
加入成员 (文件数组, 目录 + 文件名)
加入成员 (文件数组, 文件名)
判断循环首 ()
文件名 = 寻找文件 (, )
如果真 (文件名 ≠ “”)
如果 (完整文件名)
加入成员 (文件数组, 目录 + 文件名)
加入成员 (文件数组, 文件名)
到循环尾 ()
跳出循环 ()
判断循环尾 ()
如果真 (是否为空 (子目录数组)) ' 找子目录
重定义数组 (子目录数组, 假, 0)
文件名 = 寻找文件 (目录 + 目录筛选器, 16)
如果真 (文件名 ≠ “”)
如果真 (文件名 ≠ “.” 文件名 ≠ “..”)
如果 (完整文件名)
加入成员 (子目录数组, 目录 + 文件名)
加入成员 (子目录数组, 文件名)

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

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

计次循环尾 ()




词条作者信息 使用例程
评论列表   发现违规评论、广告、刷屏,请点击举报(有奖)
无评论 评论
  • Copyright © 125.LA All Rights Reserved.