优化代码写法 30币

woyao2991314

  

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

变量名	类 型	静态	数组	备 注
i	文本型
s1	文本型		0
s2	文本型		0
s3	文本型		0
s4	文本型		0
s5	文本型		0
成员几	整数型
数组几	文本型
取1	文本型
取2	文本型
取3	文本型
取4	文本型
取5	文本型
指定数组	文本型		0
指定成员	文本型		0
第几数组	文本型		0

第几数组 ＝ 分割文本 (“s1 s2 s3 s4 s5”, “ ”, )
s1 ＝ 分割文本 (原文本1.内容, #换行符, )
s2 ＝ 分割文本 (原文本2.内容, #换行符, )
s3 ＝ 分割文本 (原文本3.内容, #换行符, )
s4 ＝ 分割文本 (原文本4.内容, #换行符, )
s5 ＝ 分割文本 (原文本5.内容, #换行符, )
文本_逐字分割 (“51253”, 指定数组)
文本_逐字分割 (“23515”, 指定成员)
' 使用过程指定数组 指定成员不固定，是其它数组给数据分割
' 优化繁杂笨重的判断
' 数组内不一样，同内容拿来便于举列
数组几 ＝ 指定数组 [1]
成员几 ＝ 到整数 (指定成员 [1])
判断 (数组几 ＝ “1”)
取1 ＝ s1 [成员几]
判断 (数组几 ＝ “2”)
取1 ＝ s2 [成员几]
判断 (数组几 ＝ “3”)
取1 ＝ s3 [成员几]
判断 (数组几 ＝ “4”)
取1 ＝ s4 [成员几]
判断 (数组几 ＝ “5”)
取1 ＝ s5 [成员几]



数组几 ＝ 指定数组 [2]
成员几 ＝ 到整数 (指定成员 [2])
判断 (数组几 ＝ “1”)
取2 ＝ s1 [成员几]
判断 (数组几 ＝ “2”)
取2 ＝ s2 [成员几]
判断 (数组几 ＝ “3”)
取2 ＝ s3 [成员几]
判断 (数组几 ＝ “4”)
取2 ＝ s4 [成员几]
判断 (数组几 ＝ “5”)
取2 ＝ s5 [成员几]



数组几 ＝ 指定数组 [3]
成员几 ＝ 到整数 (指定成员 [3])
判断 (数组几 ＝ “1”)
取3 ＝ s1 [成员几]
判断 (数组几 ＝ “2”)
取3 ＝ s2 [成员几]
判断 (数组几 ＝ “3”)
取3 ＝ s3 [成员几]
判断 (数组几 ＝ “4”)
取3 ＝ s4 [成员几]
判断 (数组几 ＝ “5”)
取3 ＝ s5 [成员几]



数组几 ＝ 指定数组 [4]
成员几 ＝ 到整数 (指定成员 [4])
判断 (数组几 ＝ “1”)
取4 ＝ s1 [成员几]
判断 (数组几 ＝ “2”)
取4 ＝ s2 [成员几]
判断 (数组几 ＝ “3”)
取4 ＝ s3 [成员几]
判断 (数组几 ＝ “4”)
取4 ＝ s4 [成员几]
判断 (数组几 ＝ “5”)
取4 ＝ s5 [成员几]



数组几 ＝ 指定数组 [5]
成员几 ＝ 到整数 (指定成员 [5])
判断 (数组几 ＝ “1”)
取5 ＝ s1 [成员几]
判断 (数组几 ＝ “2”)
取5 ＝ s2 [成员几]
判断 (数组几 ＝ “3”)
取5 ＝ s3 [成员几]
判断 (数组几 ＝ “4”)
取5 ＝ s4 [成员几]
判断 (数组几 ＝ “5”)
取5 ＝ s5 [成员几]



调试输出 (到整数 (取1) ＋ 到整数 (取2) ＋ 到整数 (取3) ＋ 到整数 (取4) ＋ 到整数 (取5))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 i, 文本型<br /> .局部变量 s1, 文本型, , "0"<br /> .局部变量 s2, 文本型, , "0"<br /> .局部变量 s3, 文本型, , "0"<br /> .局部变量 s4, 文本型, , "0"<br /> .局部变量 s5, 文本型, , "0"<br /> .局部变量 成员几, 整数型<br /> .局部变量 数组几, 文本型<br /> .局部变量 取1, 文本型<br /> .局部变量 取2, 文本型<br /> .局部变量 取3, 文本型<br /> .局部变量 取4, 文本型<br /> .局部变量 取5, 文本型<br /> .局部变量 指定数组, 文本型, , "0"<br /> .局部变量 指定成员, 文本型, , "0"<br /> .局部变量 第几数组, 文本型, , "0"<br /> <br /> 第几数组 ＝ 分割文本 (“s1 s2 s3 s4 s5”, “ ”, )<br /> <br /> s1 ＝ 分割文本 (原文本1.内容, #换行符, )<br /> s2 ＝ 分割文本 (原文本2.内容, #换行符, )<br /> s3 ＝ 分割文本 (原文本3.内容, #换行符, )<br /> s4 ＝ 分割文本 (原文本4.内容, #换行符, )<br /> s5 ＝ 分割文本 (原文本5.内容, #换行符, )<br /> 文本_逐字分割 (“51253”, 指定数组)<br /> 文本_逐字分割 (“23515”, 指定成员)<br /> ' 使用过程指定数组 指定成员不固定，是其它数组给数据分割<br /> <br /> ' 优化繁杂笨重的判断<br /> <br /> ' 数组内不一样，同内容拿来便于举列<br /> 数组几 ＝ 指定数组 [1]<br /> 成员几 ＝ 到整数 (指定成员 [1])<br /> .判断开始 (数组几 ＝ “1”)<br />     取1 ＝ s1 [成员几]<br /> .判断 (数组几 ＝ “2”)<br />     取1 ＝ s2 [成员几]<br /> .判断 (数组几 ＝ “3”)<br />     取1 ＝ s3 [成员几]<br /> .判断 (数组几 ＝ “4”)<br />     取1 ＝ s4 [成员几]<br /> .判断 (数组几 ＝ “5”)<br />     取1 ＝ s5 [成员几]<br /> .默认<br /> <br /> .判断结束<br /> <br /> 数组几 ＝ 指定数组 [2]<br /> 成员几 ＝ 到整数 (指定成员 [2])<br /> .判断开始 (数组几 ＝ “1”)<br />     取2 ＝ s1 [成员几]<br /> .判断 (数组几 ＝ “2”)<br />     取2 ＝ s2 [成员几]<br /> .判断 (数组几 ＝ “3”)<br />     取2 ＝ s3 [成员几]<br /> .判断 (数组几 ＝ “4”)<br />     取2 ＝ s4 [成员几]<br /> .判断 (数组几 ＝ “5”)<br />     取2 ＝ s5 [成员几]<br /> .默认<br /> <br /> .判断结束<br /> <br /> 数组几 ＝ 指定数组 [3]<br /> 成员几 ＝ 到整数 (指定成员 [3])<br /> .判断开始 (数组几 ＝ “1”)<br />     取3 ＝ s1 [成员几]<br /> .判断 (数组几 ＝ “2”)<br />     取3 ＝ s2 [成员几]<br /> .判断 (数组几 ＝ “3”)<br />     取3 ＝ s3 [成员几]<br /> .判断 (数组几 ＝ “4”)<br />     取3 ＝ s4 [成员几]<br /> .判断 (数组几 ＝ “5”)<br />     取3 ＝ s5 [成员几]<br /> .默认<br /> <br /> .判断结束<br /> <br /> 数组几 ＝ 指定数组 [4]<br /> 成员几 ＝ 到整数 (指定成员 [4])<br /> .判断开始 (数组几 ＝ “1”)<br />     取4 ＝ s1 [成员几]<br /> .判断 (数组几 ＝ “2”)<br />     取4 ＝ s2 [成员几]<br /> .判断 (数组几 ＝ “3”)<br />     取4 ＝ s3 [成员几]<br /> .判断 (数组几 ＝ “4”)<br />     取4 ＝ s4 [成员几]<br /> .判断 (数组几 ＝ “5”)<br />     取4 ＝ s5 [成员几]<br /> .默认<br /> <br /> .判断结束<br /> <br /> 数组几 ＝ 指定数组 [5]<br /> 成员几 ＝ 到整数 (指定成员 [5])<br /> .判断开始 (数组几 ＝ “1”)<br />     取5 ＝ s1 [成员几]<br /> .判断 (数组几 ＝ “2”)<br />     取5 ＝ s2 [成员几]<br /> .判断 (数组几 ＝ “3”)<br />     取5 ＝ s3 [成员几]<br /> .判断 (数组几 ＝ “4”)<br />     取5 ＝ s4 [成员几]<br /> .判断 (数组几 ＝ “5”)<br />     取5 ＝ s5 [成员几]<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> 调试输出 (到整数 (取1) ＋ 到整数 (取2) ＋ 到整数 (取3) ＋ 到整数 (取4) ＋ 到整数 (取5))

samll88

  

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

变量名	类 型	静态	数组	备 注
i	整数型
s1	文本型		0
s2	文本型		0
s3	文本型		0
s4	文本型		0
s5	文本型		0
成员几	整数型
数组几	整数型
取1	文本型
取2	文本型
取3	文本型
取4	文本型
取5	文本型
数值	整数型

置随机数种子 ()
s1 ＝ 分割文本 (原文本1.内容, #换行符, )
s2 ＝ 分割文本 (原文本2.内容, #换行符, )
s3 ＝ 分割文本 (原文本3.内容, #换行符, )
s4 ＝ 分割文本 (原文本4.内容, #换行符, )
s5 ＝ 分割文本 (原文本5.内容, #换行符, )
计次循环首 (5, i)
数组几 ＝ 取随机数 (1, 5)
成员几 ＝ 取随机数 (1, 取数组成员数 (s1))
如果真 (数组几 ＝ 1)
取1 ＝ s1 [成员几]
如果真 (数组几 ＝ 2)
取1 ＝ s2 [成员几]
如果真 (数组几 ＝ 3)
取1 ＝ s3 [成员几]
如果真 (数组几 ＝ 4)
取1 ＝ s4 [成员几]
如果真 (数组几 ＝ 5)
取1 ＝ s5 [成员几]
数值 ＝ 数值 ＋ 到整数 (取1)
调试输出 (数值)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 s1, 文本型, , "0"<br /> .局部变量 s2, 文本型, , "0"<br /> .局部变量 s3, 文本型, , "0"<br /> .局部变量 s4, 文本型, , "0"<br /> .局部变量 s5, 文本型, , "0"<br /> .局部变量 成员几, 整数型<br /> .局部变量 数组几, 整数型<br /> .局部变量 取1, 文本型<br /> .局部变量 取2, 文本型<br /> .局部变量 取3, 文本型<br /> .局部变量 取4, 文本型<br /> .局部变量 取5, 文本型<br /> .局部变量 数值, 整数型<br /> <br /> 置随机数种子 ()<br /> s1 ＝ 分割文本 (原文本1.内容, #换行符, )<br /> s2 ＝ 分割文本 (原文本2.内容, #换行符, )<br /> s3 ＝ 分割文本 (原文本3.内容, #换行符, )<br /> s4 ＝ 分割文本 (原文本4.内容, #换行符, )<br /> s5 ＝ 分割文本 (原文本5.内容, #换行符, )<br /> .计次循环首 (5, i)<br />     数组几 ＝ 取随机数 (1, 5)<br />     成员几 ＝ 取随机数 (1, 取数组成员数 (s1))<br />     .如果真 (数组几 ＝ 1)<br />         取1 ＝ s1 [成员几]<br />     .如果真结束<br />     .如果真 (数组几 ＝ 2)<br />         取1 ＝ s2 [成员几]<br />     .如果真结束<br />     .如果真 (数组几 ＝ 3)<br />         取1 ＝ s3 [成员几]<br />     .如果真结束<br />     .如果真 (数组几 ＝ 4)<br />         取1 ＝ s4 [成员几]<br />     .如果真结束<br />     .如果真 (数组几 ＝ 5)<br />         取1 ＝ s5 [成员几]<br />     .如果真结束<br />     数值 ＝ 数值 ＋ 到整数 (取1)<br />     调试输出 (数值)<br /> .计次循环尾 ()

是不是这样

石榴熟了

不！理！解！

samll88

  

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

变量名	类 型	静态	数组	备 注
i	整数型
s1	文本型		0
s2	文本型		0
s3	文本型		0
s4	文本型		0
s5	文本型		0
成员几	整数型
数组几	整数型
取1	文本型
取2	文本型
取3	文本型
取4	文本型
取5	文本型
数值	整数型

置随机数种子 ()
s1 ＝ 分割文本 (原文本1.内容, #换行符, )
s2 ＝ 分割文本 (原文本2.内容, #换行符, )
s3 ＝ 分割文本 (原文本3.内容, #换行符, )
s4 ＝ 分割文本 (原文本4.内容, #换行符, )
s5 ＝ 分割文本 (原文本5.内容, #换行符, )
计次循环首 (5, i)
数组几 ＝ 取随机数 (1, 5)
如果真 (数组几 ＝ 1)
取1 ＝ s1 [取随机数 (1, 取数组成员数 (s1))]
如果真 (数组几 ＝ 2)
取1 ＝ s2 [取随机数 (1, 取数组成员数 (s2))]
如果真 (数组几 ＝ 3)
取1 ＝ s3 [取随机数 (1, 取数组成员数 (s3))]
如果真 (数组几 ＝ 4)
取1 ＝ s4 [取随机数 (1, 取数组成员数 (s4))]
如果真 (数组几 ＝ 5)
取1 ＝ s5 [取随机数 (1, 取数组成员数 (s5))]
数值 ＝ 数值 ＋ 到整数 (取1)
调试输出 (数值)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 s1, 文本型, , "0"<br /> .局部变量 s2, 文本型, , "0"<br /> .局部变量 s3, 文本型, , "0"<br /> .局部变量 s4, 文本型, , "0"<br /> .局部变量 s5, 文本型, , "0"<br /> .局部变量 成员几, 整数型<br /> .局部变量 数组几, 整数型<br /> .局部变量 取1, 文本型<br /> .局部变量 取2, 文本型<br /> .局部变量 取3, 文本型<br /> .局部变量 取4, 文本型<br /> .局部变量 取5, 文本型<br /> .局部变量 数值, 整数型<br /> <br /> 置随机数种子 ()<br /> s1 ＝ 分割文本 (原文本1.内容, #换行符, )<br /> s2 ＝ 分割文本 (原文本2.内容, #换行符, )<br /> s3 ＝ 分割文本 (原文本3.内容, #换行符, )<br /> s4 ＝ 分割文本 (原文本4.内容, #换行符, )<br /> s5 ＝ 分割文本 (原文本5.内容, #换行符, )<br /> .计次循环首 (5, i)<br />     数组几 ＝ 取随机数 (1, 5)<br />     .如果真 (数组几 ＝ 1)<br />         取1 ＝ s1 [取随机数 (1, 取数组成员数 (s1))]<br />     .如果真结束<br />     .如果真 (数组几 ＝ 2)<br />         取1 ＝ s2 [取随机数 (1, 取数组成员数 (s2))]<br />     .如果真结束<br />     .如果真 (数组几 ＝ 3)<br />         取1 ＝ s3 [取随机数 (1, 取数组成员数 (s3))]<br />     .如果真结束<br />     .如果真 (数组几 ＝ 4)<br />         取1 ＝ s4 [取随机数 (1, 取数组成员数 (s4))]<br />     .如果真结束<br />     .如果真 (数组几 ＝ 5)<br />         取1 ＝ s5 [取随机数 (1, 取数组成员数 (s5))]<br />     .如果真结束<br />     数值 ＝ 数值 ＋ 到整数 (取1)<br />     调试输出 (数值)<br /> .计次循环尾 ()

改了下

笨来无一悟

要看 原文本12345的文本长度是不是相等 相等就用二维数组 一步到位

10008508

代码量不多   启动线程就行了

samll88

  

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

变量名	类 型	静态	数组	备 注
i	整数型
s1	文本型		0
s2	文本型		0
s3	文本型		0
s4	文本型		0
s5	文本型		0
成员几	整数型		0
数组几	整数型		0
取1	文本型
数值	整数型
数组	整数型
成员	整数型

s1 ＝ 分割文本 (原文本1.内容, #换行符, )
s2 ＝ 分割文本 (原文本2.内容, #换行符, )
s3 ＝ 分割文本 (原文本3.内容, #换行符, )
s4 ＝ 分割文本 (原文本4.内容, #换行符, )
s5 ＝ 分割文本 (原文本5.内容, #换行符, )
数组几 ＝ { 5, 1, 2, 5, 3 }
成员几 ＝ { 2, 3, 5, 1, 5 }
计次循环首 (取数组成员数 (数组几), i)
数组 ＝ 数组几 [i]
成员 ＝ 成员几 [i]
如果真 (数组 ＝ 1)
取1 ＝ s1 [成员]
如果真 (数组 ＝ 2)
取1 ＝ s2 [成员]
如果真 (数组 ＝ 3)
取1 ＝ s3 [成员]
如果真 (数组 ＝ 4)
取1 ＝ s4 [成员]
如果真 (数组 ＝ 5)
取1 ＝ s5 [成员]
数值 ＝ 数值 ＋ 到整数 (取1)
调试输出 (数值)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 s1, 文本型, , "0"<br /> .局部变量 s2, 文本型, , "0"<br /> .局部变量 s3, 文本型, , "0"<br /> .局部变量 s4, 文本型, , "0"<br /> .局部变量 s5, 文本型, , "0"<br /> .局部变量 成员几, 整数型, , "0"<br /> .局部变量 数组几, 整数型, , "0"<br /> .局部变量 取1, 文本型<br /> .局部变量 数值, 整数型<br /> .局部变量 数组, 整数型<br /> .局部变量 成员, 整数型<br /> <br /> s1 ＝ 分割文本 (原文本1.内容, #换行符, )<br /> s2 ＝ 分割文本 (原文本2.内容, #换行符, )<br /> s3 ＝ 分割文本 (原文本3.内容, #换行符, )<br /> s4 ＝ 分割文本 (原文本4.内容, #换行符, )<br /> s5 ＝ 分割文本 (原文本5.内容, #换行符, )<br /> 数组几 ＝ { 5, 1, 2, 5, 3 }<br /> 成员几 ＝ { 2, 3, 5, 1, 5 }<br /> .计次循环首 (取数组成员数 (数组几), i)<br />     数组 ＝ 数组几 <i><br />     成员 ＝ 成员几 <i><br />     .如果真 (数组 ＝ 1)<br />         取1 ＝ s1 [成员]<br />     .如果真结束<br />     .如果真 (数组 ＝ 2)<br />         取1 ＝ s2 [成员]<br />     .如果真结束<br />     .如果真 (数组 ＝ 3)<br />         取1 ＝ s3 [成员]<br />     .如果真结束<br />     .如果真 (数组 ＝ 4)<br />         取1 ＝ s4 [成员]<br />     .如果真结束<br />     .如果真 (数组 ＝ 5)<br />         取1 ＝ s5 [成员]<br />     .如果真结束<br />     数值 ＝ 数值 ＋ 到整数 (取1)<br />     调试输出 (数值)<br /> .计次循环尾 ()

不随机可以这样写

黑咖啡

  

全局变量名	类 型	数组	公开	备 注
a	数据类型1	0

数据类型名	公开	备 注
数据类型1
成员名	类 型	传址	数组	备 注
分割数组名称	文本型		1

变量名	类 型	静态	数组	备 注
b	数据类型1
i	整数型
指定数组	字节集
指定成员	字节集
输出c	文本型

加入成员 (a, b)
a [取数组成员数 (a)].分割数组名称 ＝ 分割文本 (“ab cd ef gh”, “ ”, )
加入成员 (a, b)
a [取数组成员数 (a)].分割数组名称 ＝ 分割文本 (“AB CD EF”, “ ”, )
加入成员 (a, b)
a [取数组成员数 (a)].分割数组名称 ＝ 分割文本 (“12 34 56 78 90”, “ ”, )
指定数组 ＝ 到字节集 (“123231”)
指定成员 ＝ 到字节集 (“435123”)
输出c ＝ “”
计次循环首 (取字节集长度 (指定数组), i)
输出c ＝ 输出c ＋ a [到整数 (字符 (指定数组 [i]))].分割数组名称 [到整数 (字符 (指定成员 [i]))]
计次循环尾 ()
调试输出 (输出c)
' 开始运行被调试程序
' * “ghEF90AB34ef”
' 被调试易程序运行完毕

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

.版本 2<br /> <br /> .全局变量 a, 数据类型1, , "0"<br /> <br /> .版本 2<br /> <br /> .数据类型 数据类型1<br />     .成员 分割数组名称, 文本型, , "1"<br /> <br /> .版本 2<br /> .支持库 spec<br /> <br /> .局部变量 b, 数据类型1<br /> .局部变量 i, 整数型<br /> .局部变量 指定数组, 字节集<br /> .局部变量 指定成员, 字节集<br /> .局部变量 输出c, 文本型<br /> <br /> 加入成员 (a, b)<br /> a [取数组成员数 (a)].分割数组名称 ＝ 分割文本 (“ab cd ef gh”, “ ”, )<br /> 加入成员 (a, b)<br /> a [取数组成员数 (a)].分割数组名称 ＝ 分割文本 (“AB CD EF”, “ ”, )<br /> 加入成员 (a, b)<br /> a [取数组成员数 (a)].分割数组名称 ＝ 分割文本 (“12 34 56 78 90”, “ ”, )<br /> 指定数组 ＝ 到字节集 (“123231”)<br /> 指定成员 ＝ 到字节集 (“435123”)<br /> 输出c ＝ “”<br /> .计次循环首 (取字节集长度 (指定数组), i)<br />     输出c ＝ 输出c ＋ a [到整数 (字符 (指定数组 <i>))].分割数组名称 [到整数 (字符 (指定成员 <i>))]<br /> .计次循环尾 ()<br /> 调试输出 (输出c)<br /> ' 开始运行被调试程序<br /> ' * “ghEF90AB34ef”<br /> ' 被调试易程序运行完毕

woyao2991314

samll88 发表于 2025-4-7 12:44
[e=0].版本 2
.支持库 spec

如果真 改为判断 会不会好一点，如果真=遍历了 如果真全部代码，判断能省略跳过很多

woyao2991314

笨来无一悟 发表于 2025-4-7 12:13
要看 原文本12345的文本长度是不是相等 相等就用二维数组 一步到位

七万循环
利用数组取数据 以为比超级列表框里取 快，既然还慢了5倍多，数组取 16秒，超级列表框取3秒