想用易语言写一个随机抽取电脑里的一个文件夹里的文件,代码怎么写?

Question

如题所述

Answer 1

把文件名放入数组，取随机数得到成员位置，从成员中读取文件名。
以下是我写的一个程序的数据初始化部分：

.版本 2

.子程序 数据初始化, , , 读入数据文件，完成图片、声音、中英文意义的初始
.局部变量 临时变量, 文本型, , , 用来记录两组之间的分隔

连续赋值 (“”, 编辑框中文意思.内容, 编辑框英文单词.内容)
数组清零 (显示图片名)
数组清零 (声音名)
数组清零 (中文名)
数组清零 (英文名)
数组清零 (图片数据)
连续赋值 (“”, 编辑框中文意思.内容, 编辑框英文单词.内容)
主图片框.图片 ＝ #封面

图片总数 ＝ 1
当前序号 ＝ 1

' 读取文件名
当前文件号 ＝ 打开文件 (“data.txt”, , )
.变量循环首 (1, 100, 1, )

显示图片名 [图片总数] ＝ 读入一行 (当前文件号)
.如果 (显示图片名 [图片总数] ＝ “”)
图片总数 ＝ 图片总数 － 1
跳出循环 ()
.否则

.如果结束

声音名 [图片总数] ＝ 读入一行 (当前文件号)
.如果 (声音名 [图片总数] ＝ “”)
图片总数 ＝ 图片总数 － 1
跳出循环 ()
.否则

.如果结束

中文名 [图片总数] ＝ 读入一行 (当前文件号)
.如果 (中文名 [图片总数] ＝ “”)
图片总数 ＝ 图片总数 － 1
跳出循环 ()
.否则

.如果结束

英文名 [图片总数] ＝ 读入一行 (当前文件号)
.如果 (英文名 [图片总数] ＝ “”)
图片总数 ＝ 图片总数 － 1
跳出循环 ()
.否则

.如果结束
临时变量 ＝ 读入一行 (当前文件号)
图片总数 ＝ 图片总数 ＋ 1

.变量循环尾 ()
关闭文件 (当前文件号)
' 以下为读入图片
.计次循环首 (图片总数, 当前序号)
当前文件号 ＝ 打开文件 (“data\” ＋ 显示图片名 [当前序号], , )
.如果 (当前文件号 ≠ 0)
图片数据 [当前序号] ＝ 读入字节集 (当前文件号, 取文件长度 (当前文件号))
.否则
文件未找到 (“图片” ＋ #左引号 ＋ 显示图片名 [当前序号] ＋ #右引号)
图片数据 [当前序号] ＝ #封面
.如果结束
关闭文件 (当前文件号)
.计次循环尾 ()
按钮自动.获取焦点 ()