文本处理问题-----大婶请留步

有梦就追

请教下怎么样把一个文件夹下面的   多个txt文档里面的内容，  随机组成一篇新的文档   保存到   新的编辑框里面

例如   随机2个文档，或则随机3个文档  或者更多，可以自定义

求大神指点

大司命

  

变量名	类 型	静态	数组	备 注
文件名	文本型		0
数量	整数型
随机数	整数型
文件号	整数型
i	整数型

文件_枚举 (取运行目录 (), “*.txt”, 文件名, 真, )
数量 ＝ 3
计次循环首 (到整数 (取数组成员数 (文件名) ÷ 数量), i)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\随机组合” ＋ 到文本 (i) ＋ “.txt”, #重写, )
计次循环首 (数量, )
置随机数种子 ()
随机数 ＝ 取随机数 (1, 取数组成员数 (文件名))
写出数据 (文件号, 读入文件 (文件名 [随机数]))
删除成员 (文件名, 随机数, )
计次循环尾 ()
关闭文件 (文件号)
计次循环尾 ()

.局部变量 文件名, 文本型, , "0"<br /> .局部变量 数量, 整数型<br /> .局部变量 随机数, 整数型<br /> .局部变量 文件号, 整数型<br /> .局部变量 i, 整数型<br /> 文件_枚举 (取运行目录 (), “*.txt”, 文件名, 真, )<br /> 数量 ＝ 3<br /> .计次循环首 (到整数 (取数组成员数 (文件名) ÷ 数量), i)<br />     文件号 ＝ 打开文件 (取运行目录 () ＋ “\随机组合” ＋ 到文本 (i) ＋ “.txt”, #重写, )<br />     .计次循环首 (数量, )<br />         置随机数种子 ()<br />         随机数 ＝ 取随机数 (1, 取数组成员数 (文件名))<br />         写出数据 (文件号, 读入文件 (文件名 [随机数]))<br />         删除成员 (文件名, 随机数, )<br />     .计次循环尾 ()<br />     关闭文件 (文件号)<br /> .计次循环尾 ()

penald

把文件名读出来，放到数组当中，取随机数，再根据随机数去数组取文件名，然后读取内容并合并就ok

寒潮

  

变量名	类 型	静态	数组	备 注
局_文本存放路径	文本型
局_文件数组	文本型		0
局_欲取出文件数量	整数型
局_数字数组	整数型		0
局_计次	整数型
局_文件名	文本型
局_文件内容	文本型

局_文本存放路径 ＝ “你的文件存储目录”
文件_枚举 (局_文本存放路径, “*.txt”, 局_文件数组, 真, )
如果真 (取数组成员数 (局_文件数组) ＝ 0)
返回 ()
局_欲取出文件数量 ＝ 3
文本_取出N组不重复数字 (局_数字数组, 局_欲取出文件数量, 1, 取数组成员数 (局_文件数组))
编辑框1.内容=“”
计次循环首 (取数组成员数 (局_数字数组), 局_计次)
局_文件名 ＝ 局_文件数组 [局_数字数组 [局_计次]]
局_文件内容 ＝ 到文本 (读入文件 (局_文件名))
编辑框1.加入文本（局_文件内容+ #换行符）
计次循环尾 ()

.版本 2<br /> <br /> .局部变量 局_文本存放路径, 文本型<br /> .局部变量 局_文件数组, 文本型, , "0"<br /> .局部变量 局_欲取出文件数量, 整数型<br /> .局部变量 局_数字数组, 整数型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_文件名, 文本型<br /> .局部变量 局_文件内容, 文本型<br /> <br /> 局_文本存放路径 ＝ “你的文件存储目录”<br /> 文件_枚举 (局_文本存放路径, “*.txt”, 局_文件数组, 真, )<br /> .如果真 (取数组成员数 (局_文件数组) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> 局_欲取出文件数量 ＝ 3<br /> 文本_取出N组不重复数字 (局_数字数组, 局_欲取出文件数量, 1, 取数组成员数 (局_文件数组))<br /> 编辑框1.内容=“”<br /> .计次循环首 (取数组成员数 (局_数字数组), 局_计次)<br />     局_文件名 ＝ 局_文件数组 [局_数字数组 [局_计次]]<br />     局_文件内容 ＝ 到文本 (读入文件 (局_文件名))<br />     编辑框1.加入文本（局_文件内容+#换行符）<br /> .计次循环尾 ()

这样应该可以。

走一回

这个帖子又发了一遍，昨晚上已经解决了的。

有梦就追

走一回 发表于 2019-6-16 11:57
这个帖子又发了一遍，昨晚上已经解决了的。

嗯，昨天没整理好，今天这个  要随机几个文件组合，不是所有的，谢谢

有梦就追

有梦就追 发表于 2019-6-16 12:32
嗯，昨天没整理好，今天这个  要随机几个文件组合，不是所有的，谢谢

嗯，不会，