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

把文件名放入数组，取随机数得到成员位置，从成员中读取文件名。

以下是我写的一个程序的数据初始化部分：

.版本 2

.子程序 数据初始化, , , 读入数据文件，完成图片、声音、中英文意义的初始

.局部变量 临时变量, 文本型, , , 用来记录两组之间的分隔

连续赋值 (“”, 编辑框中文意思.内容, 编辑框英文单词.内容)

数组清零 (显示图片名)

数组清零孝败纤 (声音名)

数组清零 (中文名)

数组清零 (英文名)

数组清零 (图片数据)

连续赋值 (“”, 编辑框中文意思.内容, 编辑框英文单词.内容)

主图片框.图片 ＝ #封面

图片总数 ＝ 1

当前序号 ＝ 1

' 读取文件名

当前文件号 ＝ 打开文件 (“data.txt”, , )

.变量循环首 (1, 100, 1, )

显示图片名 [图片总数] ＝ 读入一行 (当前文件号)

.如果 (显示图片名 [图片总数] ＝ “”)

图片总数 ＝ 图片总数 － 1

跳出循环 ()

.否则

.如果结束

声音名 [图片总数] ＝ 读入一行 (当前文件号)

.如果 (声音名 [图片总数] ＝ “”)

图片总数 ＝ 图片总数 － 1

跳出循环 ()

.否则

.如果结束

中文名 [图片总数] ＝ 读入一行 (当前文件号)

.如果 (中文名 [图片总数] ＝ “”)

图片总枯毕数 ＝ 图片总数 － 1

跳出循环 ()

.否则

.如果结束

英文名 [图片总数] ＝ 读入一行 (当前文件号)

.如果 (英文名 [图片总数] ＝ “”)

图片总数 ＝ 图片总数 － 1

跳出循环 ()

.否则

.如果结束

临时变量 ＝ 读入一行 (当前文件号)

图片总数 ＝ 图片总数 ＋ 1

.变量循环尾 ()

关闭文件 (当前文件号)

' 以下为读入图片

.计次循环首 (图片总数, 当前序号)

当前文件号 ＝ 打开文件 (“data\” ＋ 显示图片名 [当前巧仿序号], , )

.如果 (当前文件号 ≠ 0)

图片数据 [当前序号] ＝ 读入字节集 (当前文件号, 取文件长度 (当前文件号))

.否则

文件未找到 (“图片” ＋ #左引号 ＋ 显示图片名 [当前序号] ＋ #右引号)

图片数据 [当前序号] ＝ #封面

.如果结束

关闭文件 (当前文件号)

.计次循环尾 ()

按钮自动.获取焦点 ()

用枣雀明笑下面的方法既可以实现

using System.IO

private void button1_Click(object sender, EventArgs e)

{

string[] fileArr = Directory.GetFiles("E:\\AAA")//文件必凳槐早须不少于十个

int[] fileIndex = new int[10]

for (int i = 0i <10i++)

{

Random random = new Random()

fileIndex[i] = random.Next(0, fileArr.Length)

for (int j = 0j <ij++)

{

if (fileIndex[i] == fileIndex[j])

{

i--

}

}

}

long fileCount = 0

for (int i = 0i <10i++)

{

FileStream fileStream = new FileStream(fileArr[fileIndex[i]], FileMode.Open)

fileCount += fileStream.Length

fileStream.Close()

}

fileCount = fileCount / 1024

MessageBox.Show("文件总共 " + fileCount.ToString() + "K")

}

主要功能有

1.从一个csv文件中读入所有员工工号

2.将这些工号初始到一个列表中

3.用族档配random模块下的choice函数来随兆指机选择列表中的一个工号

4.抽到的奖项的工号要从列表中进行删除，以免再次抽到

初级版

这个比较简单，缺少定制蠢缓性，如没法设置一等奖有几名，二等奖有几名

importcsv

---