搜索磁盘目录与文件

292459453

.版本 2 .支持库 spec .子程序 范_磁盘_读子目录, 逻辑型, 公开, 欲读取指定目录下的子目录，成功返回真，失败返回假 .参数 参_目标目录, 文本型 .参数 参_被赋值数组, 文本型, 数组, 放个数组变量直接赋值结果 .局部变量 局_目录名, 文本型 .如果真 (取文本右边 (参_目标目录, 1) ≠ “\”)     参_目标目录 ＝ 参_目标目录 ＋ “\” .如果真结束 .如果真 (取文本右边 (取文本左边 (参_目标目录, 2), 1) ≠ “:”)     调试输出 (“格式错误 : 为半角 例如 C:”)     返回 (假) .如果真结束 局_目录名 ＝ 参_目标目录 ＋ “*.*” 局_目录名 ＝ 寻找文件 (局_目录名, #子目录) 重定义数组 (参_被赋值数组, 假, 0) .判断循环首 (局_目录名 ≠ “”)     .如果真 (局_目录名 ≠ “.” 且 局_目录名 ≠ “..”)         加入成员 (参_被赋值数组, 局_目录名)     .如果真结束     局_目录名 ＝ 寻找文件 (, #子目录) .判断循环尾 () 返回 (真) .子程序 范_磁盘_读存档文件, 逻辑型, 公开, 欲读取指定目录下的存档文件，成功返回真，失败返回假 .参数 参_目标目录, 文本型 .参数 参_被赋值数组, 文本型, 数组, 放个数组变量直接赋值结果 .局部变量 局_文件名, 文本型 .如果真 (取文本右边 (参_目标目录, 1) ≠ “\”)     参_目标目录 ＝ 参_目标目录 ＋ “\” .如果真结束 .如果真 (取文本右边 (取文本左边 (参_目标目录, 2), 1) ≠ “:”)     调试输出 (“格式错误 : 为半角 例如 C:”)     返回 (假) .如果真结束 局_文件名 ＝ 寻找文件 (参_目标目录 ＋ “*.*”, #存档文件) 重定义数组 (参_被赋值数组, 假, 0) .判断循环首 (局_文件名 ≠ “”)     .如果真 (局_文件名 ≠ “.” 且 局_文件名 ≠ “..”)         加入成员 (参_被赋值数组, 局_文件名)     .如果真结束     局_文件名 ＝ 寻找文件 (, #存档文件) .判断循环尾 () 返回 (真) 本文来自http://www.9909950.com/thread-176-1-1.html

william87682

不明觉厉

新颖轻

没看懂。。重点在哪？

292459453

新颖轻 发表于 2014-7-30 20:37
没看懂。。重点在哪？

不懂复制源码到易语言里面吗  ，  复制后  看很清晰的流程

笨.蛋

  估计没有错的话.....删前留名!

SaberMason

有点像推广呀