易语言寻找类型文件

Question

用易语言搜索指定目录下类型文件，文件必须小于500kb，然后列出来，并且可以对这些文件进行操作，怎么写啊？求高手

Answer 1

楼主先在窗口里放一个超级列表框 然后复制以下代码，不懂可以追问哦

.版本 2
.支持库 iext
.支持库 shell
.子程序 __启动窗口_创建完毕
.局部变量 用户选择的目录, 文本型
.局部变量 文件名, 文本型
超级列表框1.类型 ＝ 3
超级列表框1.显示表格线 ＝ 真
超级列表框1.插入列 (, “文件名”, 500, , , )
用户选择的目录 ＝ 浏览文件夹 (“请选择目录”, )
.如果真 (用户选择的目录 ＝ “”)
结束 ()
.如果真结束
用户选择的目录 ＝ 用户选择的目录 ＋ “\”
文件名 ＝ 寻找文件 (用户选择的目录 ＋ “*.*”, )
.判断循环首 (文件名 ≠ “”)
.如果真 (取文件尺寸 (用户选择的目录 ＋ 文件名) ＜ 512000)
超级列表框1.插入表项 (, 文件名, , , , )
.如果真结束
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()追问

怎样把列出来的文件打钩删除？
另外，我是新手，不要放一堆代码给我，能解释一下不？这样我才能学到。

追答

把超级列表框 换成选择列表框

.版本 2

.支持库 shell

.程序集 窗口程序集1

.程序集变量 用户选择的目录, 文本型

.子程序 __启动窗口_创建完毕

.局部变量 文件名, 文本型

用户选择的目录 ＝ 浏览文件夹 (“请选择目录”, )

.如果真 (用户选择的目录 ＝ “”)

    结束 ()

.如果真结束

用户选择的目录 ＝ 用户选择的目录 ＋ “\”

文件名 ＝ 寻找文件 (用户选择的目录 ＋ “*.*”, )

.判断循环首 (文件名 ≠ “”)

    .如果真 (取文件尺寸 (用户选择的目录 ＋ 文件名) ＜ 512000)

        选择列表框1.加入项目 (文件名, )

    .如果真结束

    文件名 ＝ 寻找文件 (, )

.判断循环尾 ()

.子程序 _按钮1_被单击

.局部变量 计次_循环, 整数型

.计次循环首 (选择列表框1.取项目数 (), 计次_循环)

    .如果真 (选择列表框1.是否被选中 (计次_循环 － 1) ＝ 真)

        删除文件 (用户选择的目录 ＋ 选择列表框1.取项目文本 (计次_循环 － 1))

        选择列表框1.删除项目 (计次_循环 － 1)

    .如果真结束

.计次循环尾 ()

注意圆圈那里  复制代码可能加载不到

追问

那个文件类型要写在哪啊？？

追答

文件类型？ 你指的是后缀吗

追问

恩啊，可不可以同时搜索两种类型文件？

追答

可以呀 注意代码的*.* 如果你想找rmvb 就改成*.rmvb 如果想找Mp3 就改成*.mp3 懂了吗?

追问

如果我要同时搜索MP3和wav是不是
*.mp3.wav*
这样？

追答

改成这样 注意粘贴代码时 注意上面图片那个位置 手动加上去 代码如下

.版本 2
.支持库 shell
.程序集 窗口程序集1
.程序集变量 用户选择的目录, 文本型
.子程序 __启动窗口_创建完毕
用户选择的目录 ＝ 浏览文件夹 (“请选择目录”, ) ＋ “\”
搜索文件 (“mp3”) ' 如果需要的可以再添加
搜索文件 (“wav”) ' 如果需要的可以再添加
.子程序 搜索文件
.参数 后缀, 文本型
.局部变量 文件名, 文本型
.如果真 (用户选择的目录 ＝ “”)
结束 ()
.如果真结束
文件名 ＝ 寻找文件 (用户选择的目录 ＋ “*.” ＋ 后缀, )
.判断循环首 (文件名 ≠ “”)
.如果真 (取文件尺寸 (用户选择的目录 ＋ 文件名) ＜ 512000)
选择列表框1.加入项目 (文件名, )
.如果真结束
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
.子程序 _按钮1_被单击
.局部变量 计次_循环, 整数型
.计次循环首 (选择列表框1.取项目数 (), 计次_循环)
.如果真 (选择列表框1.是否被选中 (计次_循环 － 1) ＝ 真)
删除文件 (用户选择的目录 ＋ 选择列表框1.取项目文本 (计次_循环 － 1))
选择列表框1.删除项目 (计次_循环 － 1)
.如果真结束
.计次循环尾 ()

Answer 2

算了
我给你用 数组表现出来
.版本 2
.子程序 取出大于X文件名, , 公开, 取出目录的文件，有条件
.参数 判断目录, 文本型
.参数 储存数组, 文本型, 数组
.局部变量 文本, 文本型
文本 ＝ 寻找文件 (判断目录 ＋ “\*.*”, )
清除数组 (储存数组)
.判断循环首 (文本 ≠ “”)
.如果真 (文件是否存在 (判断目录 ＋ “\” ＋ 文本) ＝ 真 且 取文件尺寸 (判断目录 ＋ “\” ＋ 文本) ＞ 1024 × 500)
加入成员 (储存数组, 判断目录 ＋ “\” ＋ 文本)
.如果真结束
文本 ＝ 寻找文件 (, )
处理事件 ()
.判断循环尾 ()

备注 1kb=1024

Answer 3

比如找目录下的所有.txt文件，给你思路：
先寻找扩展名为.txt的文件，在判断大小是不是小于500kb，再用列表框.加入列表项