取txt文本问题

天使与恶魔

比如现在txt里面有100行内容
我要怎么随机取txt里面的30行内容出来呢  不要重复行数内容

苗哥

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
a	整数型
str	文本型
strarr	文本型		0
行数	整数型
b	整数型
取出的	文本型		0

计次循环首 (100, a)
str ＝ str ＋ 到文本 (a) ＋ #换行符
计次循环尾 ()
' 开始随机取
strarr ＝ 分割文本 (str, #换行符, )
行数 ＝ 30
判断循环首 (b ＜ 行数)
a ＝ 取随机数 (1, 取数组成员数 (strarr))
' 取出一行 随后删除
str ＝ strarr [a]
加入成员 (取出的, str)
删除成员 (strarr, a, )
b ＝ b ＋ 1
判断循环尾 ()
调试输出 (取出的)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 a, 整数型<br /> .局部变量 str, 文本型<br /> .局部变量 strarr, 文本型, , "0"<br /> .局部变量 行数, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 取出的, 文本型, , "0"<br /> <br /> .计次循环首 (100, a)<br />     str ＝ str ＋ 到文本 (a) ＋ #换行符<br /> .计次循环尾 ()<br /> ' 开始随机取<br /> strarr ＝ 分割文本 (str, #换行符, )<br /> 行数 ＝ 30<br /> .判断循环首 (b ＜ 行数)<br />     a ＝ 取随机数 (1, 取数组成员数 (strarr))<br />     ' 取出一行 随后删除<br />     str ＝ strarr [a]<br />     加入成员 (取出的, str)<br />     删除成员 (strarr, a, )<br />     b ＝ b ＋ 1<br /> .判断循环尾 ()<br /> 调试输出 (取出的)

b0y

数组【100】
n=取随机数（1，100）
删除成员（数组【n】）

鹏书

https://www.bilibili.com/video/BV1fY411S7GN/