精易模块优化 - 精易论坛

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

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

如果真 (取文本右边 (目录, 1) ≠ “\”)

局_目录＝目录＋ “\”
文本＝寻找文件 (局_目录＋拓展名, )

判断循环首 (文本 ≠ “”)

程序_Call (到整数 (装载函数), lstrcpyn_文本型 (局_目录, 局_目录, 0), lstrcpyn_文本型 (文本, 文本, 0))

文本＝寻找文件 (, )

判断循环尾 ()
文本＝寻找文件 (局_目录＋ “*.*”, #子目录 )

判断循环首 (文本 ≠ “”)

如果真 (取文本左边 (文本, 1) ≠ “.”)

文本＝局_目录＋文本

文件_枚举1_优化 (文本, 拓展名, 装载函数)

文本＝寻找文件 (, #子目录 )

系统_处理事件1 ()

判断循环尾 ()

如果真 (文本＝ “” 且返回空＝假)

程序_Call (到整数 (装载函数), lstrcpyn_文本型 (“”, “”, 0), lstrcpyn_文本型 (“”, “”, 0))

返回空＝真

子程序名	返回值类型	公开	备注
枚举目录文件回调
参数名	类型	参考	可空	数组	备注
文件目录	文本型				必须加\结尾
回调	子程序指针				直接回调显示文本

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

目录名＝寻找文件 (文件目录＋ “*.*”, #只读文件＋ #隐藏文件＋ #系统文件＋ #子目录＋ #存档文件 )

判断循环首 (目录名 ≠ “”)

如果真 (目录名 ≠ “.” 且目录名 ≠ “..”)

如果 (GetFileAttributes (完整路径) ＝ 16) ' //为文件夹取文件类型（）一样的

枚举目录文件回调 (完整路径＋ “\”) ' //递归

调用子程序 (回调, , , 完整路径)

调试输出 (完整路径)

目录名＝寻找文件 (, #只读文件＋ #隐藏文件＋ #系统文件＋ #子目录＋ #存档文件 )

判断循环尾 ()

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

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

文件目录＝选择 (取文本右边 (文件目录, 1) ≠ “\”, 文件目录＋ “\”, 文件目录)
目录名＝寻找文件 (文件目录＋ “*.*”, #只读文件＋ #隐藏文件＋ #系统文件＋ #子目录＋ #存档文件 )

判断循环首 (目录名 ≠ “”)

如果真 (目录名 ≠ “.” 且目录名 ≠ “..”)

判断 (GetFileAttributes (完整路径) ＝ 16) ' //为文件夹取文件类型（）一样的

文件_枚举3 (完整路径, 回调) ' //递归

调用子程序 (回调, , , 完整路径)

' 调试输出 (完整路径)

目录名＝寻找文件 (, #只读文件＋ #隐藏文件＋ #系统文件＋ #子目录＋ #存档文件 )

判断循环尾 ()

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

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

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

文件目录＝选择 (取文本右边 (文件目录, 1) ≠ “\”, 文件目录＋ “\”, 文件目录)
目录名＝寻找文件 (文件目录＋ “*.*”, #只读文件＋ #隐藏文件＋ #系统文件＋ #子目录＋ #存档文件 )

判断循环首 (目录名 ≠ “”)

如果真 (目录名 ≠ “.” 且目录名 ≠ “..”)

判断 (GetFileAttributes (完整路径) ＝ 16) ' //为文件夹取文件类型（）一样的

文件_枚举3 (完整路径, 回调) ' //递归

调用子程序 (回调, , , 完整路径)

' 调试输出 (完整路径)

目录名＝寻找文件 (, #只读文件＋ #隐藏文件＋ #系统文件＋ #子目录＋ #存档文件 )

判断循环尾 ()

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