求教如何把编辑框内容按组进行打乱

x1124025371

在论坛里面找到了一个老师的例程，但他是对单个编辑框进行打乱的，我是有252组编辑框，命名一直从编辑框A1、编辑框B1，编辑框A2、编辑框B2到编辑框A252、编辑框B252，怎样写代码能让编辑框A1、编辑框B1这样一组的内容保持对应呢？比如编辑框A3内容是A3，编辑框B3内容是B3，这组被打乱到编辑框A6、编辑框B6去了，打乱后编辑框A6内容是A3，编辑框B6内容是B3，问DEEPSEEK和豆包，这俩AI写不明白，老是报错，我想是不是可以把编辑框A1+B1的内容保存到一起用符号分隔开，然后打乱，打乱之后再取文本左边取文本右边进行分配？但是我不会写，没办法来求助各位老师下面是在论坛找到的老师的代码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
a	整数型
编辑框	编辑框
数组	文本型	0

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

计次循环首 (4, a)
编辑框 ＝ 取标记组件 (a)
加入成员 (数组, 编辑框.内容)
计次循环尾 ()

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

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

复制数组 (文本, 数组)
置随机数种子 ()
计次循环首 (取数组成员数 (文本), a)
随机 ＝ 取随机数 (1, 取数组成员数 (文本))
编辑框 ＝ 取标记组件 (a)
编辑框.内容 ＝ 文本 [随机]
删除成员 (文本, 随机, )
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 a, 整数型<br /> .程序集变量 编辑框, 编辑框<br /> .程序集变量 数组, 文本型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .计次循环首 (4, a)<br />     编辑框 ＝ 取标记组件 (a)<br />     加入成员 (数组, 编辑框.内容)<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 随机, 整数型<br /> .局部变量 文本, 文本型, , "0"<br /> <br /> 复制数组 (文本, 数组)<br /> 置随机数种子 ()<br /> .计次循环首 (取数组成员数 (文本), a)<br />     随机 ＝ 取随机数 (1, 取数组成员数 (文本))<br />     编辑框 ＝ 取标记组件 (a)<br />     编辑框.内容 ＝ 文本 [随机]<br />     删除成员 (文本, 随机, )<br /> .计次循环尾 ()

LWB666

这样么?
https://wwef.lanzn.com/iZqm52z2gila
密码:ez1n

云长爱读春秋

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
局_计次	整数型
局_编辑框名称	文本型
局_组件句柄	整数型
局_临时编辑框	编辑框
局_编辑框数组A	编辑框		0
局_编辑框数组B	编辑框		0
局_总数	整数型
局_计次内	整数型
局_文本数组	文本型		0
局_位置	整数型

局_组件句柄 ＝ 寻找组件 (_启动窗口, , “编辑框”, , )
' 取出名字包含A或者B的编辑框
计次循环首 (取找到组件数目 (局_组件句柄), 局_计次)
局_临时编辑框 ＝ 取所找到组件 (局_组件句柄, 局_计次 － 1)
局_编辑框名称 ＝ 取组件名称 (局_临时编辑框)
判断 (寻找文本 (局_编辑框名称, “A”, , 假) ≠ -1)
局_临时编辑框.标记 ＝ 文本_取右边 (局_编辑框名称, “A”, , )
加入成员 (局_编辑框数组A, 局_临时编辑框)
判断 (寻找文本 (局_编辑框名称, “B”, , 假) ≠ -1)
局_临时编辑框.标记 ＝ 文本_取右边 (局_编辑框名称, “B”, , )
加入成员 (局_编辑框数组B, 局_临时编辑框)



计次循环尾 ()
清除组件寻找句柄 (局_组件句柄)
局_总数 ＝ 取数组成员数 (局_编辑框数组A)
如果真 (局_总数 ≠ 取数组成员数 (局_编辑框数组B))
调试输出 (“组件数量错误”, 取数组成员数 (局_编辑框数组A), 取数组成员数 (局_编辑框数组B))
返回 ()
' 编辑框排一下序
计次循环首 (局_总数, 局_计次)
变量循环首 (局_计次 ＋ 1, 局_总数, 1, 局_计次内)
如果真 (到整数 (局_编辑框数组A [局_计次内].标记) ＜ 到整数 (局_编辑框数组A [局_计次].标记))
局_临时编辑框 ＝ 局_编辑框数组A [局_计次]
局_编辑框数组A [局_计次] ＝ 局_编辑框数组A [局_计次内]
局_编辑框数组A [局_计次内] ＝ 局_临时编辑框

变量循环尾 ()
计次循环尾 ()
计次循环首 (局_总数, 局_计次)
变量循环首 (局_计次 ＋ 1, 局_总数, 1, 局_计次内)
如果真 (到整数 (局_编辑框数组B [局_计次内].标记) ＜ 到整数 (局_编辑框数组B [局_计次].标记))
局_临时编辑框 ＝ 局_编辑框数组B [局_计次]
局_编辑框数组B [局_计次] ＝ 局_编辑框数组B [局_计次内]
局_编辑框数组B [局_计次内] ＝ 局_临时编辑框

变量循环尾 ()
计次循环尾 ()
清除数组 (局_文本数组)
计次循环首 (局_总数, 局_计次)
局_文本数组 ＝ 局_编辑框数组A [局_计次].内容 ＋ “,” ＋ 局_编辑框数组B [局_计次].内容
计次循环尾 ()
置随机数种子 ()
计次循环首 (局_总数, 局_计次)
局_位置 ＝ 取随机数 (1, 取数组成员数 (局_文本数组))
局_编辑框数组A [局_计次].内容 ＝ 文本_取左边 (局_文本数组 [局_计次], “,”, , )
局_编辑框数组B [局_计次].内容 ＝ 文本_取右边 (局_文本数组 [局_计次], “,”, , )
删除成员 (局_文本数组, 局_位置, 1)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_编辑框名称, 文本型<br /> .局部变量 局_组件句柄, 整数型<br /> .局部变量 局_临时编辑框, 编辑框<br /> .局部变量 局_编辑框数组A, 编辑框, , "0"<br /> .局部变量 局_编辑框数组B, 编辑框, , "0"<br /> .局部变量 局_总数, 整数型<br /> .局部变量 局_计次内, 整数型<br /> .局部变量 局_文本数组, 文本型, , "0"<br /> .局部变量 局_位置, 整数型<br /> <br /> 局_组件句柄 ＝ 寻找组件 (_启动窗口, , “编辑框”, , )<br /> ' 取出名字包含A或者B的编辑框<br /> .计次循环首 (取找到组件数目 (局_组件句柄), 局_计次)<br />     局_临时编辑框 ＝ 取所找到组件 (局_组件句柄, 局_计次 － 1)<br />     局_编辑框名称 ＝ 取组件名称 (局_临时编辑框)<br />     .判断开始 (寻找文本 (局_编辑框名称, “A”, , 假) ≠ -1)<br />         局_临时编辑框.标记 ＝ 文本_取右边 (局_编辑框名称, “A”, , )<br />         加入成员 (局_编辑框数组A, 局_临时编辑框)<br />     .判断 (寻找文本 (局_编辑框名称, “B”, , 假) ≠ -1)<br />         局_临时编辑框.标记 ＝ 文本_取右边 (局_编辑框名称, “B”, , )<br />         加入成员 (局_编辑框数组B, 局_临时编辑框)<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 清除组件寻找句柄 (局_组件句柄)<br /> 局_总数 ＝ 取数组成员数 (局_编辑框数组A)<br /> .如果真 (局_总数 ≠ 取数组成员数 (局_编辑框数组B))<br />     调试输出 (“组件数量错误”, 取数组成员数 (局_编辑框数组A), 取数组成员数 (局_编辑框数组B))<br />     返回 ()<br /> .如果真结束<br /> ' 编辑框排一下序<br /> .计次循环首 (局_总数, 局_计次)<br />     .变量循环首 (局_计次 ＋ 1, 局_总数, 1, 局_计次内)<br />         .如果真 (到整数 (局_编辑框数组A [局_计次内].标记) ＜ 到整数 (局_编辑框数组A [局_计次].标记))<br />             局_临时编辑框 ＝ 局_编辑框数组A [局_计次]<br />             局_编辑框数组A [局_计次] ＝ 局_编辑框数组A [局_计次内]<br />             局_编辑框数组A [局_计次内] ＝ 局_临时编辑框<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .计次循环尾 ()<br /> .计次循环首 (局_总数, 局_计次)<br />     .变量循环首 (局_计次 ＋ 1, 局_总数, 1, 局_计次内)<br />         .如果真 (到整数 (局_编辑框数组B [局_计次内].标记) ＜ 到整数 (局_编辑框数组B [局_计次].标记))<br />             局_临时编辑框 ＝ 局_编辑框数组B [局_计次]<br />             局_编辑框数组B [局_计次] ＝ 局_编辑框数组B [局_计次内]<br />             局_编辑框数组B [局_计次内] ＝ 局_临时编辑框<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .计次循环尾 ()<br /> <br /> 清除数组 (局_文本数组)<br /> .计次循环首 (局_总数, 局_计次)<br />     局_文本数组 ＝ 局_编辑框数组A [局_计次].内容 ＋ “,” ＋ 局_编辑框数组B [局_计次].内容<br /> .计次循环尾 ()<br /> 置随机数种子 ()<br /> .计次循环首 (局_总数, 局_计次)<br />     局_位置 ＝ 取随机数 (1, 取数组成员数 (局_文本数组))<br />     局_编辑框数组A [局_计次].内容 ＝ 文本_取左边 (局_文本数组 [局_计次], “,”, , )<br />     局_编辑框数组B [局_计次].内容 ＝ 文本_取右边 (局_文本数组 [局_计次], “,”, , )<br />     删除成员 (局_文本数组, 局_位置, 1)<br /> .计次循环尾 ()

补充内容 (2025-6-18 19:27):
最后的文本_取左边 (局_文本数组 [局_计次], “,”, , )立面的[局_计次]改为[局_位置]

x1124025371

LWB666 发表于 2025-6-18 19:16
这样么?
https://wwef.lanzn.com/iZqm52z2gila
密码:ez1n

对的对的，就是这个效果，非常感谢！还需要请教一下，您这个是前面13组编辑框的是吧？如果要改成252组编辑框，需要改哪里？

LWB666

x1124025371 发表于 2025-6-18 19:30
对的对的，就是这个效果，非常感谢！还需要请教一下，您这个是前面13组编辑框的是吧？如果要改成252组编 ...

获取编辑框的原理就是根据标记取, 你只标记到了26(后面有错的), 所以我循环只写了前26个编辑框, 你要获取252组的话循环次数应该写504