易语言怎么样才可以随机取指定文本中随机内容?
比如我有一篇文章,我想随便取2个汉字编辑框1内容是原文本,编辑框2内容是取出文本谁帮帮我?不要思路贴源码不然分白给?...
比如我有一篇文章, 我想随便取2个汉字
编辑框1内容是原文本,编辑框2内容是取出文本
谁帮帮我? 不要思路 贴源码 不然分白给? 展开
编辑框1内容是原文本,编辑框2内容是取出文本
谁帮帮我? 不要思路 贴源码 不然分白给? 展开
6个回答
展开全部
.版本 2
.支持库 OPenGL
.程序集 窗口程序集1
.程序集变量 程_数组, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 局_位置, 整数型
.局部变量 局_文本, 文本型
.局部变量 局_取出长度, 整数型
.计次循环首 (2, )
局_位置 = 取随机数 (1, 取数组成员数 (程_数组))
.如果真 (局_位置 = 0)
返回 ()
.如果真结束
编辑框2.加入文本 (程_数组 [局_位置] + “ ” + #引号 + 到文本 (局_位置) + #引号 + #换行符)
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
置随机数种子 (取启动时间 ())
初始化数组 ()
.子程序 _编辑框1_内容被改变
初始化数组 ()
.子程序 初始化数组
.局部变量 局_位置, 整数型
.局部变量 局_文本长度, 整数型
.局部变量 局_取出长度, 整数型
.局部变量 局_文本, 文本型
局_文本长度 = 取文本长度 (编辑框1.内容)
清除数组 (程_数组)
.判断循环首 (局_位置 < 局_文本长度)
.判断开始 (是否为双字节字符 (编辑框1.内容, 局_位置))
局_取出长度 = 2
.默认
局_取出长度 = 1
.判断结束
局_文本 = 取文本中间 (编辑框1.内容, 局_位置 + 1, 局_取出长度)
加入成员 (程_数组, 局_文本)
局_位置 = 局_位置 + 局_取出长度
.判断循环尾 ()
.支持库 OPenGL
.程序集 窗口程序集1
.程序集变量 程_数组, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 局_位置, 整数型
.局部变量 局_文本, 文本型
.局部变量 局_取出长度, 整数型
.计次循环首 (2, )
局_位置 = 取随机数 (1, 取数组成员数 (程_数组))
.如果真 (局_位置 = 0)
返回 ()
.如果真结束
编辑框2.加入文本 (程_数组 [局_位置] + “ ” + #引号 + 到文本 (局_位置) + #引号 + #换行符)
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
置随机数种子 (取启动时间 ())
初始化数组 ()
.子程序 _编辑框1_内容被改变
初始化数组 ()
.子程序 初始化数组
.局部变量 局_位置, 整数型
.局部变量 局_文本长度, 整数型
.局部变量 局_取出长度, 整数型
.局部变量 局_文本, 文本型
局_文本长度 = 取文本长度 (编辑框1.内容)
清除数组 (程_数组)
.判断循环首 (局_位置 < 局_文本长度)
.判断开始 (是否为双字节字符 (编辑框1.内容, 局_位置))
局_取出长度 = 2
.默认
局_取出长度 = 1
.判断结束
局_文本 = 取文本中间 (编辑框1.内容, 局_位置 + 1, 局_取出长度)
加入成员 (程_数组, 局_文本)
局_位置 = 局_位置 + 局_取出长度
.判断循环尾 ()
展开全部
.版本 2
.支持库 OPenGL
.程序集 窗口程序集1
.程序集变量 程_数组, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 局_位置, 整数型
.局部变量 局_文本, 文本型
.局部变量 局_取出长度, 整数型
.计次循环首 (2, )
局_位置 = 取随机数 (1, 取数组成员数 (程_数组))
.如果真 (局_位置 = 0)
返回 ()
.如果真结束
编辑框2.加入文本 (程_数组 [局_位置] + “ ” + #引号 + 到文本 (局_位置) + #引号 + #换行符)
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
置随机数种子 (取启动时间 ())
初始化数组 ()
.子程序 _编辑框1_内容被改变
初始化数组 ()
.子程序 初始化数组
.局部变量 局_位置, 整数型
.局部变量 局_文本长度, 整数型
.局部变量 局_取出长度, 整数型
.局部变量 局_文本, 文本型
局_文本长度 = 取文本长度 (编辑框1.内容)
清除数组 (程_数组)
.判断循环首 (局_位置 < 局_文本长度)
.判断开始 (是否为双字节字符 (编辑框1.内容, 局_位置))
局_取出长度 = 2
.默认
局_取出长度 = 1
.判断结束
局_文本 = 取文本中间 (编辑框1.内容, 局_位置 + 1, 局_取出长度)
加入成员 (程_数组, 局_文本)
局_位置 = 局_位置 + 局_取出长度
.判断循环尾 ()
.支持库 OPenGL
.程序集 窗口程序集1
.程序集变量 程_数组, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 局_位置, 整数型
.局部变量 局_文本, 文本型
.局部变量 局_取出长度, 整数型
.计次循环首 (2, )
局_位置 = 取随机数 (1, 取数组成员数 (程_数组))
.如果真 (局_位置 = 0)
返回 ()
.如果真结束
编辑框2.加入文本 (程_数组 [局_位置] + “ ” + #引号 + 到文本 (局_位置) + #引号 + #换行符)
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
置随机数种子 (取启动时间 ())
初始化数组 ()
.子程序 _编辑框1_内容被改变
初始化数组 ()
.子程序 初始化数组
.局部变量 局_位置, 整数型
.局部变量 局_文本长度, 整数型
.局部变量 局_取出长度, 整数型
.局部变量 局_文本, 文本型
局_文本长度 = 取文本长度 (编辑框1.内容)
清除数组 (程_数组)
.判断循环首 (局_位置 < 局_文本长度)
.判断开始 (是否为双字节字符 (编辑框1.内容, 局_位置))
局_取出长度 = 2
.默认
局_取出长度 = 1
.判断结束
局_文本 = 取文本中间 (编辑框1.内容, 局_位置 + 1, 局_取出长度)
加入成员 (程_数组, 局_文本)
局_位置 = 局_位置 + 局_取出长度
.判断循环尾 ()
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
.版本 2
.支持库 OPenGL
.程序集 窗口程序集1
.程序集变量 程_数组, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 局_位置, 整数型
.局部变量 局_文本, 文本型
.局部变量 局_取出长度, 整数型
.计次循环首 (2, )
局_位置 = 取随机数 (1, 取数组成员数 (程_数组))
.如果真 (局_位置 = 0)
返回 ()
.如果真结束
编辑框2.加入文本 (程_数组 [局_位置] + “ ” + #引号 + 到文本 (局_位置) + #引号 + #换行符)
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
置随机数种子 (取启动时间 ())
初始化数组 ()
.子程序 _编辑框1_内容被改变
初始化数组 ()
.子程序 初始化数组
.局部变量 局_位置, 整数型
.局部变量 局_文本长度, 整数型
.局部变量 局_取出长度, 整数型
.局部变量 局_文本, 文本型
局_文本长度 = 取文本长度 (编辑框1.内容)
清除数组 (程_数组)
.判断循环首 (局_位置 < 局_文本长度)
.判断开始 (是否为双字节字符 (编辑框1.内容, 局_位置))
局_取出长度 = 2
.默认
局_取出长度 = 1
.判断结束
局_文本 = 取文本中间 (编辑框1.内容, 局_位置 + 1, 局_取出长度)
加入成员 (程_数组, 局_文本)
局_位置 = 局_位置 + 局_取出长度
.判断循环尾 ()
.支持库 OPenGL
.程序集 窗口程序集1
.程序集变量 程_数组, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 局_位置, 整数型
.局部变量 局_文本, 文本型
.局部变量 局_取出长度, 整数型
.计次循环首 (2, )
局_位置 = 取随机数 (1, 取数组成员数 (程_数组))
.如果真 (局_位置 = 0)
返回 ()
.如果真结束
编辑框2.加入文本 (程_数组 [局_位置] + “ ” + #引号 + 到文本 (局_位置) + #引号 + #换行符)
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
置随机数种子 (取启动时间 ())
初始化数组 ()
.子程序 _编辑框1_内容被改变
初始化数组 ()
.子程序 初始化数组
.局部变量 局_位置, 整数型
.局部变量 局_文本长度, 整数型
.局部变量 局_取出长度, 整数型
.局部变量 局_文本, 文本型
局_文本长度 = 取文本长度 (编辑框1.内容)
清除数组 (程_数组)
.判断循环首 (局_位置 < 局_文本长度)
.判断开始 (是否为双字节字符 (编辑框1.内容, 局_位置))
局_取出长度 = 2
.默认
局_取出长度 = 1
.判断结束
局_文本 = 取文本中间 (编辑框1.内容, 局_位置 + 1, 局_取出长度)
加入成员 (程_数组, 局_文本)
局_位置 = 局_位置 + 局_取出长度
.判断循环尾 ()
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你是想怎么随机呢?如果是按照一行随机的一段文本可以先读取出文本,然后分割,随机取其中的一个,如果是取一段文本的任意随机内容,可以用取文本中间命令来获取,三个参数都写得十分清楚
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
伸手党
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询