从TXT文件中随机读取一行数据（奇数行）

御风软件

TXT文件，奇数行有内容，偶数行空白行
本来是想回答一个会员提问的，但是人家已采纳了
所以，就发布在这里吧，反正都写了，源码使用了精易模块
就取一个随机数，,然后求他和2的余数，如果不是1就-1，只是实现，没有优化
代码不隐藏，不弄附件出售，如果觉得对你有用，就给个好评什么的，反正好评免费的

  

变量名	类 型	静态	数组	备 注
文本内容	文本型
随机行数	整数型
文本行数	整数型
一行文本	文本型

文本内容 ＝ 到文本 (读入文件 (“C:\文件.txt”))
文本行数 ＝ 文本_取行数 (文本内容)
随机行数 ＝ 文本_取随机范围数字 (1, 文本行数)
如果真 (随机行数 ％ 2 ≠ 1)
随机行数 ＝ 随机行数 － 1
一行文本 ＝ 文本_取指定变量文本行 (文本内容, 随机行数)
调试输出 (一行文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 文本内容, 文本型<br /> .局部变量 随机行数, 整数型<br /> .局部变量 文本行数, 整数型<br /> .局部变量 一行文本, 文本型<br /> <br /> 文本内容 ＝ 到文本 (读入文件 (“C:\文件.txt”))<br /> 文本行数 ＝ 文本_取行数 (文本内容)<br /> 随机行数 ＝ 文本_取随机范围数字 (1, 文本行数)<br /> .如果真 (随机行数 ％ 2 ≠ 1)<br />     随机行数 ＝ 随机行数 － 1<br /> .如果真结束<br /> 一行文本 ＝ 文本_取指定变量文本行 (文本内容, 随机行数)<br /> 调试输出 (一行文本)

嗯，其他围观群众，也是可以打赏的嘛，露个脸什么的
↓本主题的由如下评分用户赞助，感谢这些可爱的赞助商↓

olcs

做软件的时候经常需要这类取随机文本的方法,支持一下

q195737485

q195737485

axkf123

从TXT文件中随机读取一行数据

smoketurn

支持免费分享~！

对不起，我爱你

快乐分享，分享快乐，谢谢！！

对不起，我爱你

飘过而已啦

sjfsss

貌似用个分割文本 就可以完成的东东 还要用模块  费这劲 表示不解

aidexinhao

有用