取随机文本

王小点

比如我每个换行符是一串文本  运行目录下的TXT内的

1 是否都是打工
2所发生的发是
3士大夫士大夫稍等
4士大夫士大夫s'd
5士大夫士大夫
6士大夫稍等f
7士大夫士大夫
8士大夫稍等f
9s'd'f士大夫士大夫
士大夫士大夫
士大夫士大夫
士大夫士大夫史蒂夫4344
大师傅士大夫sdgdg


每隔1分钟取 1-N行的 一段话

乐鱼驴

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

时钟1.时钟周期 ＝ 5000

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

_按钮1_被单击 ()

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

变量名	类 型	静态	数组	备 注
文本数组	文本型		0
最大	整数型
随机数	整数型
随机数2	整数型

置随机数种子 ()
文本数组 ＝ 分割文本 ( #常量1, #换行符, )
随机数 ＝ 取随机数 (1, 取数组成员数 (文本数组))
调试输出 (文本数组 [随机数])

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 时钟1.时钟周期 ＝ 5000<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> _按钮1_被单击 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 最大, 整数型<br /> .局部变量 随机数, 整数型<br /> .局部变量 随机数2, 整数型<br /> <br /> 置随机数种子 ()<br /> 文本数组 ＝ 分割文本 (#常量1, #换行符, )<br /> 随机数 ＝ 取随机数 (1, 取数组成员数 (文本数组))<br /> 调试输出 (文本数组 [随机数])

从前的少年

置随机数种子（）， 文本=分割文本（读入文件（），#换行符），取随机数（1，取数组成员数（文本））

从前的少年

从前的少年 发表于 2023-5-21 03:39
置随机数种子（）， 文本=分割文本（读入文件（），#换行符），取随机数（1，取数组成员数（文本）） ...

置随机数种子（）文本=分割文本（读入文件（），#换行符）
调试输出(文本[取随机数（1，取数组成员数(文本))])

冬夏

从前的少年 发表于 2023-5-21 03:41
置随机数种子（）文本=分割文本（读入文件（），#换行符）
调试输出(文本[取随机数（1，取数组成员数(文 ...

老哥，你可真是个夜猫子啊

易之神童

[JavaScript] 纯文本查看 复制代码

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击
.局部变量 txt, 文本型
.局部变量 i, 整数型

txt ＝ 编辑框2.内容
.如果真 (txt ＝ “”)
    信息框 (“编辑框2内容不能为空，请输入内容！”, 0, , )
    返回 ()
.如果真结束
.如果真 (寻找文本 (编辑框1.内容, txt, , 假) ≠ -1)

.如果真结束
.如果真 (寻找文本 (编辑框1.内容, txt, , 假) ＝ -1)
    编辑框1.加入文本 (txt ＋ #换行符)
.如果真结束

是不是这个

企鹅号525150138

置随机数种子
调试输出 (文本_取指定变量文本行 (#常量1, 取随机数 (1, 文本_取行数 (#常量1))))