【两周一训练NO.0092】比对指定目录相同文件

熊运生

老师怎么还没看作业啊?

熊运生

作业:比对指定目录下是否有相同文件

花了二个多小时,我是新手,见笑了

水仙哥

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
目录1	文本型			指定目录1
文件组1	文件名和大小		0
目录2	文本型			指定目录2
文件组2	文件名和大小		0
相同文件组	文件名和大小		0
当前文件	文件名和大小
相同文件名字	文本型		0
相同文件内容	文本型		0
相同文件时间	文本型		0
计次	整数型
计次2	整数型
输出文本	文本型

清除数组 (文件组1)
清除数组 (文件组2)
清除数组 (相同文件组)
清除数组 (相同文件名字)
清除数组 (相同文件内容)
清除数组 (相同文件时间)
列表框1.清空 ()
' 判断输入的参数是否合法
如果真 (到文本 (编辑框_目录1.内容) ＝ “” 或 到文本 (编辑框_目录2.内容) ＝ “”)
信息框 (“请输入正确的目录名”, 0, , )
返回 ()
' 取得两个目录并补全
目录1 ＝ 到文本 (编辑框_目录1.内容)
目录2 ＝ 到文本 (编辑框_目录2.内容)
目录1 ＝ 选择 (取文本右边 (目录1, 1) ≠ “\”, 目录1 ＋ “\”, 目录1)
目录2 ＝ 选择 (取文本右边 (目录2, 1) ≠ “\”, 目录2 ＋ “\”, 目录2)
' 找出目录下的所有文件名,放入对应数组内
当前文件.文件名字 ＝ 寻找文件 (目录1 ＋ “*.*”, 32)
判断循环首 (当前文件.文件名字 ≠ “”)
如果真 (当前文件.文件名字 ≠ “.” 且 当前文件.文件名字 ≠ “..”)
当前文件.文件大小 ＝ 取文件尺寸 (目录1 ＋ 当前文件.文件名字)
当前文件.文件时间 ＝ 取文件时间 (目录1 ＋ 当前文件.文件名字)
调试输出 (当前文件)
加入成员 (文件组1, 当前文件)
当前文件.文件名字 ＝ 寻找文件 (, )
判断循环尾 ()
当前文件.文件名字 ＝ 寻找文件 (目录2 ＋ “*.*”, 32)
判断循环首 (当前文件.文件名字 ≠ “”)
如果真 (当前文件.文件名字 ≠ “.” 且 当前文件.文件名字 ≠ “..”)
当前文件.文件大小 ＝ 取文件尺寸 (目录2 ＋ 当前文件.文件名字)
当前文件.文件时间 ＝ 取文件时间 (目录2 ＋ 当前文件.文件名字)
调试输出 (当前文件)
加入成员 (文件组2, 当前文件)
当前文件.文件名字 ＝ 寻找文件 (, )
判断循环尾 ()
' 对比两个数组,将相同的部分放入相同数组
计次循环首 (取数组成员数 (文件组1), 计次)
计次循环首 (取数组成员数 (文件组2), 计次2)
如果真 (选择框_对比名字.选中 ＝ 真)
如果真 (文件组1 [计次].文件名字 ＝ 文件组2 [计次2].文件名字)
加入成员 (相同文件名字, 文件组1 [计次].文件名字)


如果真 (选择框_对比内容.选中 ＝ 真)
如果真 (文件组1 [计次].文件大小 ＝ 文件组2 [计次2].文件大小)
如果真 (读入文件 (目录1 ＋ 文件组1 [计次].文件名字) ＝ 读入文件 (目录2 ＋ 文件组2 [计次2].文件名字))
加入成员 (相同文件内容, 文件组1 [计次].文件名字 ＋ “   ======  ” ＋ 文件组2 [计次2].文件名字)



如果真 (选择框_对比时间.选中 ＝ 真)
如果真 (文件组1 [计次].文件时间 ＝ 文件组2 [计次2].文件时间)
加入成员 (相同文件时间, 文件组1 [计次].文件名字 ＋ “  ======  ” ＋ 文件组2 [计次2].文件名字 ＋ “, ======时间:   ” ＋ 到文本 (文件组2 [计次2].文件时间))


计次循环尾 ()
计次循环尾 ()
' 将信息输出到列表框
列表框1.加入项目 (“ ”, )
如果真 (取数组成员数 (相同文件名字) ＞ 0)
列表框1.加入项目 (“有相同文件名的共” ＋ 到文本 (取数组成员数 (相同文件名字)) ＋ “条,如下:”, )
计次循环首 (取数组成员数 (相同文件名字), 计次)
输出文本 ＝ “    ” ＋ 到文本 (计次) ＋ “).” ＋ 相同文件名字 [计次]
列表框1.加入项目 (输出文本, )
计次循环尾 ()
列表框1.加入项目 (“ ”, )

如果真 (取数组成员数 (相同文件内容) ＞ 0)
列表框1.加入项目 (“有相同文件内容的共” ＋ 到文本 (取数组成员数 (相同文件内容)) ＋ “条,如下:”, )
计次循环首 (取数组成员数 (相同文件内容), 计次)
输出文本 ＝ “    ” ＋ 到文本 (计次) ＋ “).” ＋ 相同文件内容 [计次]
列表框1.加入项目 (输出文本, )
计次循环尾 ()
列表框1.加入项目 (“ ”, )

如果真 (取数组成员数 (相同文件时间) ＞ 0)
列表框1.加入项目 (“有相同文件时间的共” ＋ 到文本 (取数组成员数 (相同文件时间)) ＋ “条,如下:”, )
计次循环首 (取数组成员数 (相同文件时间), 计次)
输出文本 ＝ “    ” ＋ 到文本 (计次) ＋ “).” ＋ 相同文件时间 [计次]
列表框1.加入项目 (输出文本, )
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 目录1, 文本型, , , 指定目录1<br /> .局部变量 文件组1, 文件名和大小, , "0"<br /> .局部变量 目录2, 文本型, , , 指定目录2<br /> .局部变量 文件组2, 文件名和大小, , "0"<br /> .局部变量 相同文件组, 文件名和大小, , "0"<br /> .局部变量 当前文件, 文件名和大小<br /> .局部变量 相同文件名字, 文本型, , "0"<br /> .局部变量 相同文件内容, 文本型, , "0"<br /> .局部变量 相同文件时间, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 计次2, 整数型<br /> .局部变量 输出文本, 文本型<br /> <br /> 清除数组 (文件组1)<br /> 清除数组 (文件组2)<br /> 清除数组 (相同文件组)<br /> 清除数组 (相同文件名字)<br /> 清除数组 (相同文件内容)<br /> 清除数组 (相同文件时间)<br /> 列表框1.清空 ()<br /> <br /> ' 判断输入的参数是否合法<br /> .如果真 (到文本 (编辑框_目录1.内容) ＝ “” 或 到文本 (编辑框_目录2.内容) ＝ “”)<br />     信息框 (“请输入正确的目录名”, 0, , )<br />     返回 ()<br /> <br /> .如果真结束<br /> ' 取得两个目录并补全<br /> 目录1 ＝ 到文本 (编辑框_目录1.内容)<br /> 目录2 ＝ 到文本 (编辑框_目录2.内容)<br /> 目录1 ＝ 选择 (取文本右边 (目录1, 1) ≠ “\”, 目录1 ＋ “\”, 目录1)<br /> 目录2 ＝ 选择 (取文本右边 (目录2, 1) ≠ “\”, 目录2 ＋ “\”, 目录2)<br /> <br /> ' 找出目录下的所有文件名,放入对应数组内<br /> <br /> 当前文件.文件名字 ＝ 寻找文件 (目录1 ＋ “*.*”, 32)<br /> .判断循环首 (当前文件.文件名字 ≠ “”)<br />     .如果真 (当前文件.文件名字 ≠ “.” 且 当前文件.文件名字 ≠ “..”)<br />         当前文件.文件大小 ＝ 取文件尺寸 (目录1 ＋ 当前文件.文件名字)<br />         当前文件.文件时间 ＝ 取文件时间 (目录1 ＋ 当前文件.文件名字)<br />         调试输出 (当前文件)<br />         加入成员 (文件组1, 当前文件)<br />     .如果真结束<br />     当前文件.文件名字 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> 当前文件.文件名字 ＝ 寻找文件 (目录2 ＋ “*.*”, 32)<br /> .判断循环首 (当前文件.文件名字 ≠ “”)<br />     .如果真 (当前文件.文件名字 ≠ “.” 且 当前文件.文件名字 ≠ “..”)<br />         当前文件.文件大小 ＝ 取文件尺寸 (目录2 ＋ 当前文件.文件名字)<br />         当前文件.文件时间 ＝ 取文件时间 (目录2 ＋ 当前文件.文件名字)<br />         调试输出 (当前文件)<br />         加入成员 (文件组2, 当前文件)<br />     .如果真结束<br />     当前文件.文件名字 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> ' 对比两个数组,将相同的部分放入相同数组<br /> .计次循环首 (取数组成员数 (文件组1), 计次)<br />     .计次循环首 (取数组成员数 (文件组2), 计次2)<br /> <br />         .如果真 (选择框_对比名字.选中 ＝ 真)<br />             .如果真 (文件组1 [计次].文件名字 ＝ 文件组2 [计次2].文件名字)<br />                 加入成员 (相同文件名字, 文件组1 [计次].文件名字)<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />         .如果真 (选择框_对比内容.选中 ＝ 真)<br />             .如果真 (文件组1 [计次].文件大小 ＝ 文件组2 [计次2].文件大小)<br />                 .如果真 (读入文件 (目录1 ＋ 文件组1 [计次].文件名字) ＝ 读入文件 (目录2 ＋ 文件组2 [计次2].文件名字))<br />                     加入成员 (相同文件内容, 文件组1 [计次].文件名字 ＋ “   ======  ” ＋ 文件组2 [计次2].文件名字)<br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />         .如果真 (选择框_对比时间.选中 ＝ 真)<br />             .如果真 (文件组1 [计次].文件时间 ＝ 文件组2 [计次2].文件时间)<br />                 加入成员 (相同文件时间, 文件组1 [计次].文件名字 ＋ “  ======  ” ＋ 文件组2 [计次2].文件名字 ＋ “, ======时间:   ” ＋ 到文本 (文件组2 [计次2].文件时间))<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> ' 将信息输出到列表框<br /> 列表框1.加入项目 (“ ”, )<br /> .如果真 (取数组成员数 (相同文件名字) ＞ 0)<br />     列表框1.加入项目 (“有相同文件名的共” ＋ 到文本 (取数组成员数 (相同文件名字)) ＋ “条,如下:”, )<br />     .计次循环首 (取数组成员数 (相同文件名字), 计次)<br />         输出文本 ＝ “    ” ＋ 到文本 (计次) ＋ “).” ＋ 相同文件名字 [计次]<br />         列表框1.加入项目 (输出文本, )<br />     .计次循环尾 ()<br />     列表框1.加入项目 (“ ”, )<br /> .如果真结束<br /> <br /> .如果真 (取数组成员数 (相同文件内容) ＞ 0)<br />     列表框1.加入项目 (“有相同文件内容的共” ＋ 到文本 (取数组成员数 (相同文件内容)) ＋ “条,如下:”, )<br />     .计次循环首 (取数组成员数 (相同文件内容), 计次)<br />         输出文本 ＝ “    ” ＋ 到文本 (计次) ＋ “).” ＋ 相同文件内容 [计次]<br />         列表框1.加入项目 (输出文本, )<br />     .计次循环尾 ()<br />     列表框1.加入项目 (“ ”, )<br /> .如果真结束<br /> <br /> <br /> .如果真 (取数组成员数 (相同文件时间) ＞ 0)<br />     列表框1.加入项目 (“有相同文件时间的共” ＋ 到文本 (取数组成员数 (相同文件时间)) ＋ “条,如下:”, )<br />     .计次循环首 (取数组成员数 (相同文件时间), 计次)<br />         输出文本 ＝ “    ” ＋ 到文本 (计次) ＋ “).” ＋ 相同文件时间 [计次]<br />         列表框1.加入项目 (输出文本, )<br />     .计次循环尾 ()<br /> <br /> .如果真结束

【两周一训练NO.0092】比对指定目录相同文件2.e (10.1 KB, 下载次数: 19)

2018-4-26 11:50 上传

点击文件名下载附件

走一回

通过寻找文件，加入节点属性，来比对是否有文件名重复了。 比对指定目录下是否有相同文件_寻找文件_递归算法.e (10.59 KB, 下载次数: 2)

2018-4-24 22:56 上传

点击文件名下载附件


补充内容 (2018-5-2 17:14):
谢谢,也是套用了易语言里的新建减肥达人递归算法

不吸烟的青蛙

比对指定目录相同文件.e (3.97 KB, 下载次数: 6)

2018-4-24 18:38 上传

点击文件名下载附件


补充内容 (2018-5-3 10:01):
@漩涡鸣人
并不仅仅是对比文件名，是文件名+文件大小+修改时间
在webservice和FTP这种写入来源单一，且每次写入都会照成修改时间变动的环境下
用来备份文件，这就是最简洁高效的代码了

hw1481826110

当当当 我做完了

ジ秋水

用精易模块算不算源码

q505078546

作业作业作业作业作业

zjchxj

取文件.e (655.04 KB, 下载次数: 3)

2018-4-14 14:55 上传

点击文件名下载附件
利用文件MD5对比，当然也可以直接字节集对比。效率变慢许多

qqqq

已回答
【两周一训练NO.0092】比对指定目录相同文件.e (675.9 KB, 下载次数: 2)

2018-4-8 23:58 上传

点击文件名下载附件