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

漩涡鸣人

作业练习区>作业题目交易币有偿征集贴
http://bbs.125.la/forum.php?mod=viewthread&tid=14063761

比对指定目录下是否有相同文件，达到效果60分，算法精简加分



满分100分，达到60及格线即可获得奖励，60分以下鼓励奖，作业请用源码形式提交，与作业无关内容将受到处罚。

注意：作业请用附件形式上传，不要回复跟作业无关的内容。

985778474

参加本周训练(～￣▽￣)～

阿寸大大

查文件重复.e (13.35 KB, 下载次数: 48)

2018-4-7 22:19 上传

点击文件名下载附件

水仙哥

  

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

子程序名	返回值类型	公开	备 注
_按钮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, 下载次数: 22)

2018-4-26 11:50 上传

点击文件名下载附件

the9

这些作业好像都没有递归遍历子文件夹。如果不只是一层文件夹，性能优化就有文章可做了。依据结构划分来比对 更有实际意义。我正在做1亿数量级(4KB文件)的比对

the9

不吸烟的青蛙 发表于 2018-4-24 18:39
补充内容 (2018-5-3 10:01):
@漩涡鸣人
并不仅仅是对比文件名，是文件名+文件大小+修改时间

一般是检查MD5特征码

tzkm2008

这么多作业，，真的可以好好学习里边的内容啦，边学边操作的“易语言”

lixixi

1111按时大大

aooub

自学了20天，松了几天，有点拾不起来的感觉

水仙哥

漩涡鸣人 发表于 2018-5-2 17:06
看你的图片是挺好的，要求是指定目录，不需要2个目录对比，也勉强达到效果，且对比结果显示新颖，对 ...

是我误解了,因为同一文件夹下不能存在相同的文件名,我以为是指两个目录,

LySyhd

LySyhd 发表于 2018-4-3 06:11
LySyhd_精易作业_对比对目录相同文件.7z

疑惑中...

漩涡鸣人

水仙哥 发表于 2018-4-25 15:51
[e=1].版本 2
.支持库 spec

看你的图片是挺好的，要求是指定目录，不需要2个目录对比，也勉强达到效果，且对比结果显示新颖，对比方法多样，可以给满分。

漩涡鸣人

sz521900 发表于 2018-4-6 13:31
新手操作 检测MD5值的

勉强能对比，但是要靠肉眼，还能再优化，继续努力，期待你下期作业

漩涡鸣人

eaple 发表于 2018-4-6 16:20
还能优化，没做了，有调用精易模块

我想你的程序应该是有问题的