以下源码调用了精易模块,增加了返回空文本已标志遍历结束。
|
文件_枚举1_优化 | | | |
目录 | 文本型 | | | | 拓展名 | 文本型 | | | | 装载函数 | 子程序指针 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 | 文本 | 文本型 | | | 文件夹 | 文本型 | | | 局_目录 | 文本型 | | | 返回空 | 逻辑型 | | |
局_目录 = 目录 如果真 (取文本右边 (目录, 1 ) ≠ “\”)局_目录 = 目录 + “\”文本 = 寻找文件 (局_目录 + 拓展名, )判断循环首 (文本 ≠ “”)程序_Call (到整数 (装载函数 ), lstrcpyn_文本型 (局_目录, 局_目录, 0 ), lstrcpyn_文本型 (文本, 文本, 0 )) 文本 = 寻找文件 (, )判断循环尾 ()文本 = 寻找文件 (局_目录 + “*.*”, #子目录 )判断循环首 (文本 ≠ “”)如果真 (取文本左边 (文本, 1 ) ≠ “.”)文本 = 局_目录 + 文本 文件_枚举1_优化 (文本, 拓展名, 装载函数 )文本 = 寻找文件 (, #子目录 )系统_处理事件1 ()判断循环尾 ()如果真 (文本 = “” 且 返回空 = 假)程序_Call (到整数 (装载函数 ), lstrcpyn_文本型 (“”, “”, 0 ), lstrcpyn_文本型 (“”, “”, 0 )) 返回空 = 真
补充内容 (2019-10-3 23:16):
更好的代码在置顶帖中 |