Question

易语言 打乱文本（注：高手来）

要求打乱文本必须符合一定套路，不是简单扼取随机数就可以的。
因为我还要还原之类的，但是实在是不知道怎么写
举个例子：123，按一定规律打乱，需要全出现！
小弟的功力还是不够啊，本来是想要无顺序，所有文本都要出现但是现在貌似不行，想了许久，分享一个思路吧，这个是我想出的！

有许多子程序需要自己编写，我就不写了！

Answer 1

数组_排列（）只是针对不同类型的参考使用
傻子数组随机排序（）适用于文本数组

.子程序 傻子数组随机排序, 整数型, , 取出一个数组随机排列的结果至新变量组，返回数组数
.参数 傻子文本, 文本型, 数组
.参数 返回傻子随机组, 文本型, 数组
.参数 数组随机排列的结果, , 参考 可空 数组
.局部变量 傻子次数
.局部变量 数组, 整数型, , "0"
.局部变量 数组次数, 整数型
.局部变量 A, 整数型
.局部变量 B, 整数型
.局部变量 临时, 整数型

清除数组 (返回傻子随机组)
' 傻子文本 ＝ { “我”, “爱”, “傻”, “子” }
傻子次数 ＝ 取数组成员数 (傻子文本)
.计次循环首 (傻子次数, 数组次数)
加入成员 (数组, 数组次数)
.计次循环尾 ()
置随机数种子 (取启动时间 ())
.计次循环首 (傻子次数 ＋ 1, 数组次数)
A ＝ 取随机数 (1, 傻子次数)
B ＝ 取随机数 (1, 傻子次数)
临时 ＝ 数组 [A]
数组 [A] ＝ 数组 [B]
数组 [B] ＝ 临时
.计次循环尾 ()
.计次循环首 (傻子次数, 数组次数)
加入成员 (数组随机排列的结果, 数组 [数组次数])
加入成员 (返回傻子随机组, 傻子文本 [数组 [数组次数]])
.计次循环尾 ()

返回 (数组次数)

.版本 2

.子程序 数组_排列, , , 文本数组必须与排列数序的数组一致
.参数 文本型数组, 文本型, 数组
.参数 排列顺序, , 数组, 按照整数型数组里的成员数据进行排列
.参数 返回值, 文本型, 参考 数组
.局部变量 i, 整数型

清除数组 (返回值)
.如果真 (取数组成员数 (文本型数组) ≠ 取数组成员数 (排列顺序))
返回 ()
.如果真结束

.计次循环首 (取数组成员数 (文本型数组), i)
加入成员 (返回值, 文本型数组 [排列顺序 [i]])
.计次循环尾 ()

追问

算了把，你这个根本没有打乱！

追答

什么叫根本呢？你想打乱1234这本来就是涉及到数组方面的，给你点提示了你不明白吗？剩下的就是你要怎么把1，2，3，4弄成数组的形式。

算了，我都已经写好了，你爱看就看吧

追问

貌似只能处理单字节的不能处理汉字

Answer 2

练手弄了一个　有点长　不过实用　用数组搞的．版本　2．局部变量　text，　文本型．局部变量　list1　文本型，　，　＆quot；0＆quot；．局部变量　list2，　文本型，　，　＆quot；0＆quot；．局部变量　a．局部变量　b．局部变量　back，　文本型．局部变量　temp，　文本型text　＝　编辑框1．内容list1　＝　分割文本　（text，　＃换行符，　）．计次循环首　（取数组成员数　（list1），　a）　　　　temp　＝　“”　　　　list2　＝　分割文本　（list1　［a］，　“，”，　）　　　　．如果真　（取数组成员数　（list2）　＞　0）　　　　　　　　list2　［1］　＝　删全部空　（list2　［1］）　　　　．如果真结束　　　　插入成员　（list2，　2，　“”）　　　　．计次循环首　（取数组成员数　（list2），　b）　　　　　　　　．如果真　（temp　≠　“”）　　　　　　　　　　　　temp　＝　temp　＋　“，”　　　　　　　　．如果真结束　　　　　　　　temp　＝　temp　＋　list2　［b］　　　　．计次循环尾　（）　　　　．如果真　（back　≠　“”）　　　　　　　　back　＝　back　＋　＃换行符　　　　．如果真结束　　　　back　＝　back　＋　temp．计次循环尾　（）编辑框1．内容　＝　back

Answer 3

为什么一定要高手来？难道那些不是高手的人就什么不懂了吗？

追问

好，那你给出一个思路，分就给你了！

追答

我不会