能整除的数组处理

易智趣吖

问题如下：有段文本数组，成员数40 依次取值，每次取四个，1 2 3 4，5 6 7 8， 9 10 11 12，  13 14 15 16 ， 17 18 19 20....（做个假设 就改啥文本数组格式啦）
虽然是笨办法，但是功能实现啦

  

子程序名	返回值类型	公开	备 注
数组重组
参数名	类 型	参考	可空	数组	备 注
cha询结果	文本型

变量名	类 型	静态	数组	备 注
成员数	整数型
e	整数型
位置标记	整数型
取文本	文本型
数组_重组	文本型		0

成员数 ＝ 取数组成员数 (cha询结果)
计次循环首 (成员数, e)
如果真 (e ＝ 1)
取文本 ＝ “cha询到黑名单” ＋ #换行符 ＋ “标识：” ＋ cha询结果 [1] ＋ #换行符 ＋ “类型：” ＋ cha询结果 [2] ＋ #换行符 ＋ “理由：” ＋ cha询结果 [3] ＋ #换行符 ＋ “拉黑时间：” ＋ cha询结果 [4] ＋ #换行符
加入成员 (数组_重组, 取文本)

判断 (4 × e ＋ 1 ＜ 成员数)
位置标记 ＝ 4 × e ＋ 1
取文本 ＝ “cha询到黑名单” ＋ #换行符 ＋ “标识：” ＋ cha询结果 [位置标记] ＋ #换行符 ＋ “类型：” ＋ cha询结果 [位置标记 ＋ 1] ＋ #换行符 ＋ “理由：” ＋ cha询结果 [位置标记 ＋ 2] ＋ #换行符 ＋ “拉黑时间：” ＋ cha询结果 [位置标记 ＋ 3] ＋ #换行符
加入成员 (数组_重组, 取文本)

跳出循环 ()

计次循环尾 ()
调试输出 (数组_重组)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 数组重组<br /> .参数 cha询结果, 文本型, 数组<br /> .局部变量 成员数, 整数型<br /> .局部变量 e, 整数型<br /> .局部变量 位置标记, 整数型<br /> .局部变量 取文本, 文本型<br /> .局部变量 数组_重组, 文本型, , "0"<br /> <br /> 成员数 ＝ 取数组成员数 (cha询结果)<br /> .计次循环首 (成员数, e)<br /> <br />     .如果真 (e ＝ 1)<br />         取文本 ＝ “cha询到黑名单” ＋ #换行符 ＋ “标识：” ＋ cha询结果 [1] ＋ #换行符 ＋ “类型：” ＋ cha询结果 [2] ＋ #换行符 ＋ “理由：” ＋ cha询结果 [3] ＋ #换行符 ＋ “拉黑时间：” ＋ cha询结果 [4] ＋ #换行符<br />         加入成员 (数组_重组, 取文本)<br />     .如果真结束<br /> <br /> <br />     .判断开始 (4 × e ＋ 1 ＜ 成员数)<br />         位置标记 ＝ 4 × e ＋ 1<br />         取文本 ＝ “cha询到黑名单” ＋ #换行符 ＋ “标识：” ＋ cha询结果 [位置标记] ＋ #换行符 ＋ “类型：” ＋ cha询结果 [位置标记 ＋ 1] ＋ #换行符 ＋ “理由：” ＋ cha询结果 [位置标记 ＋ 2] ＋ #换行符 ＋ “拉黑时间：” ＋ cha询结果 [位置标记 ＋ 3] ＋ #换行符<br />         加入成员 (数组_重组, 取文本)<br /> <br />     .默认<br />         跳出循环 ()<br />     .判断结束<br /> <br /> <br /> <br /> <br /> <br /> .计次循环尾 ()<br /> <br /> 调试输出 (数组_重组)

取第一组e=1
加入一次数组 加入成员 (数组_重组, 取文本)
取第二组我们有40个数组 就要保证每次取值是小于总成员
就有4 × e ＋ 1 ＜ 成员数 做判断 再标记取出位置 位置标记 ＝ 4 × e ＋ 1
那么我们取文本单个数组赋值就是
cha询结果 [位置标记]+”，“+询结果 [位置标记+1]+”，“+询结果 [位置标记+2]+”，“+询结果 [位置标记+3]
再加入数组 加入成员 (数组_重组, 取文本)

循环完成 输出重组的数组