精易模块优化

墨影0620

以下源码调用了精易模块，增加了返回空文本已标志遍历结束。

  

子程序名	返回值类型	公开	备 注
文件_枚举1_优化			如提供搜索目录路径，将会搜索此目录所有在内的文件。（全部检索完毕后第三个参数会传递两个空文本表示结束！）
参数名	类 型	参考	可空	数组	备 注
目录	文本型				目录，如“D:\”盘，目录不以\结尾会自动添加
拓展名	文本型				“*.exe”
装载函数	子程序指针				二个参数，1=目录【文本型】；2=文件名【文本型】（全部检索完毕后会返回空文本表示结束！）

变量名	类 型	静态	数组	备 注
文本	文本型
文件夹	文本型
局_目录	文本型
返回空	逻辑型

局_目录 ＝ 目录
如果真 (取文本右边 (目录, 1) ≠ “\”)
局_目录 ＝ 目录 ＋ “\”
文本 ＝ 寻找文件 (局_目录 ＋ 拓展名, )
判断循环首 (文本 ≠ “”)
程序_Call (到整数 (装载函数), lstrcpyn_文本型 (局_目录, 局_目录, 0), lstrcpyn_文本型 (文本, 文本, 0))
文本 ＝ 寻找文件 (, )
判断循环尾 ()
文本 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录 )
判断循环首 (文本 ≠ “”)
如果真 (取文本左边 (文本, 1) ≠ “.”)
文本 ＝ 局_目录 ＋ 文本
文件_枚举1_优化 (文本, 拓展名, 装载函数)
文本 ＝ 寻找文件 (, #子目录 )
系统_处理事件1 ()
判断循环尾 ()
如果真 (文本 ＝ “” 且 返回空 ＝ 假)
程序_Call (到整数 (装载函数), lstrcpyn_文本型 (“”, “”, 0), lstrcpyn_文本型 (“”, “”, 0))
返回空 ＝ 真

.版本 2<br /> <br /> .子程序 文件_枚举1_优化, , 公开, 如提供搜索目录路径，将会搜索此目录所有在内的文件。（全部检索完毕后第三个参数会传递两个空文本表示结束！）<br /> .参数 目录, 文本型, , 目录，如“D:\”盘，目录不以\结尾会自动添加<br /> .参数 拓展名, 文本型, , “*.exe”<br /> .参数 装载函数, 子程序指针, , 二个参数，1=目录【文本型】；2=文件名【文本型】（全部检索完毕后会返回空文本表示结束！）<br /> .局部变量 文本, 文本型<br /> .局部变量 文件夹, 文本型<br /> .局部变量 局_目录, 文本型<br /> .局部变量 返回空, 逻辑型, 静态<br /> <br /> 局_目录 ＝ 目录<br /> .如果真 (取文本右边 (目录, 1) ≠ “\”)<br />     局_目录 ＝ 目录 ＋ “\”<br /> .如果真结束<br /> 文本 ＝ 寻找文件 (局_目录 ＋ 拓展名, )<br /> .判断循环首 (文本 ≠ “”)<br />     程序_Call (到整数 (装载函数), lstrcpyn_文本型 (局_目录, 局_目录, 0), lstrcpyn_文本型 (文本, 文本, 0))<br />     文本 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> 文本 ＝ 寻找文件 (局_目录 ＋ “*.*”, #子目录)<br /> .判断循环首 (文本 ≠ “”)<br />     .如果真 (取文本左边 (文本, 1) ≠ “.”)<br />         文本 ＝ 局_目录 ＋ 文本<br />         文件_枚举1_优化 (文本, 拓展名, 装载函数)<br />     .如果真结束<br />     文本 ＝ 寻找文件 (, #子目录)<br />     系统_处理事件1 ()<br /> .判断循环尾 ()<br /> .如果真 (文本 ＝ “” 且 返回空 ＝ 假)<br />     程序_Call (到整数 (装载函数), lstrcpyn_文本型 (“”, “”, 0), lstrcpyn_文本型 (“”, “”, 0))<br />     返回空 ＝ 真<br /> .如果真结束

补充内容 (2019-10-3 23:16):
更好的代码在置顶帖中

墨影0620

以下代码源自于@汉族 ，经过一丢丢优化。
至于如何选择制定后缀的问题暂未解决。

先用 文件_取扩展名 凑合一下吧（源自精易模块）

  

子程序名	返回值类型	公开	备 注
文件_枚举3			取自精易模块，由汉族优化。返回执行完毕后枚举出的文件数量
参数名	类 型	参考	可空	数组	备 注
文件目录	文本型				如果末尾没有“\”会自动添加你
回调	子程序指针				直接回调显示文本，被调用的子程序应有一个文本型参数

变量名	类 型	静态	数组	备 注
目录名	文本型
完整路径	文本型
i	整数型
计次	整数型
标记点	整数型

文件目录 ＝ 选择 (取文本右边 (文件目录, 1) ≠ “\”, 文件目录 ＋ “\”, 文件目录)
目录名 ＝ 寻找文件 (文件目录 ＋ “*.*”, #只读文件 ＋ #隐藏文件 ＋ #系统文件 ＋ #子目录 ＋ #存档文件 )
判断循环首 (目录名 ≠ “”)
如果真 (目录名 ≠ “.” 且 目录名 ≠ “..”)
完整路径 ＝ 文件目录 ＋ 目录名
判断 (GetFileAttributes (完整路径) ＝ 16)  ' //为文件夹  取文件类型（）   一样的
文件_枚举3 (完整路径, 回调)  ' //递归
调用子程序 (回调, , , 完整路径)
' 调试输出 (完整路径)
目录名 ＝ 寻找文件 (, #只读文件 ＋ #隐藏文件 ＋ #系统文件 ＋ #子目录 ＋ #存档文件 )
判断循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 文件_枚举3, , 公开, 取自精易模块，由汉族优化。返回执行完毕后枚举出的文件数量<br /> .参数 文件目录, 文本型, , 如果末尾没有“\”会自动添加你<br /> .参数 回调, 子程序指针, 可空, 直接回调显示文本，被调用的子程序应有一个文本型参数<br /> .局部变量 目录名, 文本型<br /> .局部变量 完整路径, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 标记点, 整数型<br /> <br /> 文件目录 ＝ 选择 (取文本右边 (文件目录, 1) ≠ “\”, 文件目录 ＋ “\”, 文件目录)<br /> 目录名 ＝ 寻找文件 (文件目录 ＋ “*.*”, #只读文件 ＋ #隐藏文件 ＋ #系统文件 ＋ #子目录 ＋ #存档文件)<br /> .判断循环首 (目录名 ≠ “”)<br />     .如果真 (目录名 ≠ “.” 且 目录名 ≠ “..”)<br />         完整路径 ＝ 文件目录 ＋ 目录名<br />         .判断开始 (GetFileAttributes (完整路径) ＝ 16)  ' //为文件夹  取文件类型（）   一样的<br />             文件_枚举3 (完整路径, 回调)  ' //递归<br />         .默认<br />             调用子程序 (回调, , , 完整路径)<br />         .判断结束<br />         ' 调试输出 (完整路径)<br />     .如果真结束<br />     目录名 ＝ 寻找文件 (, #只读文件 ＋ #隐藏文件 ＋ #系统文件 ＋ #子目录 ＋ #存档文件)<br /> .判断循环尾 ()

墨影0620

墨影0620 发表于 2019-10-4 18:50
关于筛选后缀的问题。。。

我试过了，那样只搜索第一个文件夹。子文件夹就不行了@汉族

墨影0620

汉族 发表于 2019-9-12 19:06
速度 还有些慢因为分开执行 子目录的 要同时执行 只需要判断 文件类型=子目录 即可

关于筛选后缀的问题。。。

墨影0620

墨影0620 发表于 2019-10-3 22:04
回调那里貌似少了一个参数

@汉族 问题是调用子程序子程序指针那里既不是全局变量也不是静态变量，不能直接扔掉的吧。。。

墨影0620

以下代码源自于@汉族 ，经过一丢丢优化。
至于如何选择制定后缀的问题暂未解决。
先用 文件_取扩展名 凑合一下吧（源自精易模块）

  

子程序名	返回值类型	公开	备 注
文件_枚举3			取自精易模块，由汉族优化。返回执行完毕后枚举出的文件数量
参数名	类 型	参考	可空	数组	备 注
文件目录	文本型				如果末尾没有“\”会自动添加你
回调	子程序指针				直接回调显示文本，被调用的子程序应有一个文本型参数

变量名	类 型	静态	数组	备 注
目录名	文本型
完整路径	文本型
i	整数型
计次	整数型
标记点	整数型

文件目录 ＝ 选择 (取文本右边 (文件目录, 1) ≠ “\”, 文件目录 ＋ “\”, 文件目录)
目录名 ＝ 寻找文件 (文件目录 ＋ “*.*”, #只读文件 ＋ #隐藏文件 ＋ #系统文件 ＋ #子目录 ＋ #存档文件 )
判断循环首 (目录名 ≠ “”)
如果真 (目录名 ≠ “.” 且 目录名 ≠ “..”)
完整路径 ＝ 文件目录 ＋ 目录名
判断 (GetFileAttributes (完整路径) ＝ 16)  ' //为文件夹  取文件类型（）   一样的
文件_枚举3 (完整路径, 回调)  ' //递归
调用子程序 (回调, , , 完整路径)
' 调试输出 (完整路径)
目录名 ＝ 寻找文件 (, #只读文件 ＋ #隐藏文件 ＋ #系统文件 ＋ #子目录 ＋ #存档文件 )
判断循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 文件_枚举3, , 公开, 取自精易模块，由汉族优化。返回执行完毕后枚举出的文件数量<br /> .参数 文件目录, 文本型, , 如果末尾没有“\”会自动添加你<br /> .参数 回调, 子程序指针, 可空, 直接回调显示文本，被调用的子程序应有一个文本型参数<br /> .局部变量 目录名, 文本型<br /> .局部变量 完整路径, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 计次, 整数型<br /> .局部变量 标记点, 整数型<br /> <br /> 文件目录 ＝ 选择 (取文本右边 (文件目录, 1) ≠ “\”, 文件目录 ＋ “\”, 文件目录)<br /> 目录名 ＝ 寻找文件 (文件目录 ＋ “*.*”, #只读文件 ＋ #隐藏文件 ＋ #系统文件 ＋ #子目录 ＋ #存档文件)<br /> .判断循环首 (目录名 ≠ “”)<br />     .如果真 (目录名 ≠ “.” 且 目录名 ≠ “..”)<br />         完整路径 ＝ 文件目录 ＋ 目录名<br />         .判断开始 (GetFileAttributes (完整路径) ＝ 16)  ' //为文件夹  取文件类型（）   一样的<br />             文件_枚举3 (完整路径, 回调)  ' //递归<br />         .默认<br />             调用子程序 (回调, , , 完整路径)<br />         .判断结束<br />         ' 调试输出 (完整路径)<br />     .如果真结束<br />     目录名 ＝ 寻找文件 (, #只读文件 ＋ #隐藏文件 ＋ #系统文件 ＋ #子目录 ＋ #存档文件)<br /> .判断循环尾 ()

墨影0620

汉族 发表于 2019-9-12 19:08
[e=1].版本 2

.子程序 枚举目录文件回调

回调那里貌似少了一个参数

sfqosk

谢谢分享 下载备用

shituo

发错了地方 发到 精易产品中心才对

aufhur

谢谢分享！不错不错……