文本文件有50万行数据怎么快速随机取一行内容

btyu5010

比如文本文件1.txt
给我三分之一阳光
迷一样的女人
金色的太阳花
十八与她
海是岛流尽的泪
怎敌有你
我的离开也是爱
顾我安稳
如沐春风的笑
低调的华丽
温柔女孩
爱能有多精彩
白衣飘飘
绿柠萌岁月
感情洁癖
为你痴迷
时光不及你眉眼
藍了天白赴美
如此如此
溺渁
未曾怀恋
凉笙歌
极度信仰
金色的太阳花
海是岛流尽的泪


要怎么快速方便重复随机读出一行呢


补充内容 (2025-2-27 22:54):
最佳答案 要增加 置随机数种子 ()

深田えいみ

  

子程序名	返回值类型	公开	备 注
随机取一行	文本型
参数名	类 型	参考	可空	数组	备 注
文件	文本型

变量名	类 型	静态	数组	备 注
f	整数型
len	整数型
str	文本型

f ＝ 打开文件 (文件, #读入, )
len ＝ 取文件尺寸 (文件)
移动读写位置 (f, #文件首, 取随机数 (0, len))
str ＝ 读入一行 (f)
如果真 (是否在文件尾 (f, 真))
移到文件首 (f)
str ＝ 读入一行 (f)
关闭文件 (f)
返回 (str)

.版本 2<br /> <br /> .子程序 随机取一行, 文本型<br /> .参数 文件, 文本型<br /> .局部变量 f, 整数型<br /> .局部变量 len, 整数型<br /> .局部变量 str, 文本型<br /> <br /> f ＝ 打开文件 (文件, #读入, )<br /> len ＝ 取文件尺寸 (文件)<br /> 移动读写位置 (f, #文件首, 取随机数 (0, len))<br /> str ＝ 读入一行 (f)<br /> .如果真 (是否在文件尾 (f, 真))<br />     移到文件首 (f)<br /> .如果真结束<br /> str ＝ 读入一行 (f)<br /> 关闭文件 (f)<br /> 返回 (str)

之前有个大型项目是这样取的，你可以这样试试；

lianzuo123

获取到文件长度
打开文件
取随机数(1,文件长度)
往前或往后读,直到碰到换行,然后读取一整行
如果读写位置到0了还没换行或是读到结尾了,那就往前或往后读,直到碰到换行
然后关闭文件


不知这样说,你可否理解

玩世不恭KISS

.版本 2

置随机数种子 ()
' 文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\ua.txt”))
分割好的 ＝ 分割文本 (#UAWB, #换行符, )
随机数 ＝ 取随机数 (1, 取数组成员数 (分割好的))
UA ＝ 分割好的 [随机数]
调试输出（UA）

高先生

  

变量名	类 型	静态	数组	备 注
x	整数型
文件路径	文本型

置随机数种子 ()
x ＝ 取随机数 (0, 500000)
文本_取指定文件文本行 (文件路径, x)

.版本 2<br /> <br /> .局部变量 x, 整数型<br /> .局部变量 文件路径, 文本型<br /> <br /> 置随机数种子 ()<br /> x ＝ 取随机数 (0, 500000)<br /> 文本_取指定文件文本行 (文件路径, x)

补充内容 (2025-2-27 22:09):
试试这个快不

cmaks

  

子程序名	返回值类型	公开	备 注
随机取一行_加载全部	文本型
参数名	类 型	参考	可空	数组	备 注
文件名	文本型

变量名	类 型	静态	数组	备 注
所有内容	文本型
行数组	文本型		0
随机行号	整数型

' 读取文件全部内容
所有内容 ＝ 到文本 (读入文件 (文件名))
' 按行分割成数组
行数组 ＝ 分割文本 (所有内容, #换行符, )
' 设置随机数种子
置随机数种子 ()
' 生成随机行号
随机行号 ＝ 取随机数 (1, 取数组成员数 (行数组))
' 返回随机行的内容
返回 (行数组 [随机行号])

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框1.内容 ＝ 随机取一行_加载全部 (“C:\Users\Administrator\Desktop\1.txt”)

.版本 2<br /> <br /> .子程序 随机取一行_加载全部, 文本型<br /> .参数 文件名, 文本型<br /> .局部变量 所有内容, 文本型<br /> .局部变量 行数组, 文本型, , "0"<br /> .局部变量 随机行号, 整数型<br /> <br /> ' 读取文件全部内容<br /> 所有内容 ＝ 到文本 (读入文件 (文件名))<br /> ' 按行分割成数组<br /> <br /> 行数组 ＝ 分割文本 (所有内容, #换行符, )<br /> ' 设置随机数种子<br /> 置随机数种子 ()<br /> ' 生成随机行号<br /> <br /> 随机行号 ＝ 取随机数 (1, 取数组成员数 (行数组))<br /> ' 返回随机行的内容<br /> 返回 (行数组 [随机行号])<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> 编辑框1.内容 ＝ 随机取一行_加载全部 (“C:\Users\Administrator\Desktop\1.txt”)

cmaks

cmaks 发表于 2025-2-27 22:16
[e=4].版本 2

.子程序 随机取一行_加载全部, 文本型

全部加载到内存再随机选取
这种方式适合文件不是特别大且内存足够的情况。它的优点是实现简单，缺点是当文件非常大时，可能会占用大量内存。

btyu5010

lianzuo123 发表于 2025-2-27 21:54
获取到文件长度
打开文件
取随机数(1,文件长度)

帮忙写个代码呗，楼下的用分割数组会占用时间

cmaks

逐行读取确定总行数再随机定位
[color=var(--md-box-samantha-normal-text-color)  !important]此方法先遍历文件确定总行数，然后生成随机行号，再次遍历文件找到对应行。优点是内存占用少，缺点是需要两次遍历文件，效率相对低一些。

lianzuo123

都说了有50W行了,肯定是大文件了,还有人用 读入文件()

另外,精易模块自带的 文本_取指定文件文本行()  内部也是 读入文件的实现,频繁的话,卡死你