求救 文本异步组合算法

超级菜鸟王

数组1 有5个 分别是
A1
A2
A3
A4
A5
数组2 有7个 分别是
B1
B2
B3
B4
B5
B6
B7
---------------------
我的想法是这样 就是 让他异步组合
如这样
A1/B1
A1/B2
A1/B3
A1/B4
A1/B5
A1/B6
A1/B7
A2/B1
---邪恶分割线---
A2/B7
-------------------
A3/B1
---邪恶分割线---
A3/B7
-------------------


一直组合到最后A5/B7
请问有什么其他快速的方法来完成么 我感觉我写的这个很渣滓

------------- 常量A 和 常量B  随便弄写换行文本就OK
.版本 2
.支持库 spec
.子程序 文本异步组合
.局部变量 局_结果组, 文本型, , "0"
.局部变量 局_结果数, 整数型
.局部变量 局_A组, 文本型, , "0"
.局部变量 局_A数, 整数型
.局部变量 局_B组, 文本型, , "0"
.局部变量 局_B数, 整数型
.局部变量 局_A结果, 文本型
.局部变量 局_B结果, 文本型
.局部变量 局_A计次
.局部变量 局_B计次
清除数组 (局_A组)
清除数组 (局_B组)
清除数组 (局_结果组)
' -------------------------------------------------
局_A组 ＝ 分割文本 (#常量A, #换行符, )
局_A数 ＝ 取数组成员数 (局_A组)
' -------------------------------------------------
局_B组 ＝ 分割文本 (#常量B, #换行符, )
局_B数 ＝ 取数组成员数 (局_B组)
.计次循环首 (局_A数, 局_A计次)
    .变量循环首 (1, 局_B数, 1, 局_B计次)
        加入成员 (局_结果组, 到文本 (局_A计次) ＋ 字符 (9) ＋ 到文本 (局_B计次))
        局_结果数 ＝ 取数组成员数 (局_结果组)
    .变量循环尾 ()
.计次循环尾 ()
调试输出 (局_结果数)

呵呵仙

  

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

变量名	类 型	静态	数组	备 注
A	文本型		0
B	文本型		0
c	整数型
d	整数型
txt	快速文本对象
e	整数型

A ＝ { “A1”, “A2”, “A3”, “A4”, “A5” }
B ＝ { “B1”, “B2”, “B3”, “B4”, “B5”, “B6”, “B7” }
e ＝ 取数组成员数 (B)
变量循环首 (1, 取数组成员数 (A), 1, c)
变量循环首 (1, e, 1, d)
txt.添加 (A [c])
txt.添加 (“/”)
txt.添加 (B [d])
txt.添加 ( #换行符 )
' txt.添加 (A [c] ＋ “/” ＋ B [d] ＋ #换行符) ' 建议不要这样.速度超慢的写法.
变量循环尾 ()
变量循环尾 ()
调试输出 (txt.取文本 (, ))

i支持库列表	支持库注释
commobj	通用对象支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 commobj<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 A, 文本型, , "0"<br /> .局部变量 B, 文本型, , "0"<br /> .局部变量 c, 整数型<br /> .局部变量 d, 整数型<br /> .局部变量 txt, 快速文本对象<br /> .局部变量 e, 整数型<br /> <br /> A ＝ { “A1”, “A2”, “A3”, “A4”, “A5” }<br /> B ＝ { “B1”, “B2”, “B3”, “B4”, “B5”, “B6”, “B7” }<br /> e ＝ 取数组成员数 (B)<br /> .变量循环首 (1, 取数组成员数 (A), 1, c)<br /> .变量循环首 (1, e, 1, d)<br /> txt.添加 (A [c])<br /> txt.添加 (“/”)<br /> txt.添加 (B [d])<br /> txt.添加 (#换行符)<br /> ' txt.添加 (A [c] ＋ “/” ＋ B [d] ＋ #换行符) ' 建议不要这样.速度超慢的写法.<br /> .变量循环尾 ()<br /> .变量循环尾 ()<br /> 调试输出 (txt.取文本 (, ))

这样可以再快点取数组成员数 (B)时间.不过.取数组成员数()这命令本就很快.

易正易则

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
分割	文本型		0
分割1	文本型		0
n	整数型

分割1 ＝ 分割文本 (编辑框1.内容, #换行符, )
分割 ＝ 分割文本 (编辑框2.内容, #换行符, )
计次循环首 (取数组成员数 (分割), n)
编辑框3.加入文本 (分割1 [1] ＋ 分割 [n] ＋ #换行符 )
计次循环尾 ()
计次循环首 (取数组成员数 (分割), n)
编辑框3.加入文本 (分割1 [2] ＋ 分割 [n] ＋ #换行符 )
计次循环尾 ()
计次循环首 (取数组成员数 (分割), n)
编辑框3.加入文本 (分割1 [3] ＋ 分割 [n] ＋ #换行符 )
计次循环尾 ()
计次循环首 (取数组成员数 (分割), n)
编辑框3.加入文本 (分割1 [4] ＋ 分割 [n] ＋ #换行符 )
计次循环尾 ()
计次循环首 (取数组成员数 (分割), n)
编辑框3.加入文本 (分割1 [5] ＋ 分割 [n] ＋ #换行符 )
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 分割1, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> <br /> 分割1 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 分割 ＝ 分割文本 (编辑框2.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (分割), n)<br /> 编辑框3.加入文本 (分割1 [1] ＋ 分割 [n] ＋ #换行符)<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (分割), n)<br /> 编辑框3.加入文本 (分割1 [2] ＋ 分割 [n] ＋ #换行符)<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (分割), n)<br /> 编辑框3.加入文本 (分割1 [3] ＋ 分割 [n] ＋ #换行符)<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (分割), n)<br /> 编辑框3.加入文本 (分割1 [4] ＋ 分割 [n] ＋ #换行符)<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (分割), n)<br /> 编辑框3.加入文本 (分割1 [5] ＋ 分割 [n] ＋ #换行符)<br /> .计次循环尾 ()

也许我的更渣渣

易正易则

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
分割	文本型		0
分割1	文本型		0
n	整数型
i	整数型

分割1 ＝ 分割文本 (编辑框1.内容, #换行符, )
分割 ＝ 分割文本 (编辑框2.内容, #换行符, )
计次循环首 (取数组成员数 (分割1), i)
计次循环首 (取数组成员数 (分割), n)
编辑框3.加入文本 (分割1 [i] ＋ “/” ＋ 分割 [n] ＋ #换行符 )
计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 分割, 文本型, , "0"<br /> .局部变量 分割1, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 分割1 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 分割 ＝ 分割文本 (编辑框2.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (分割1), i)<br /> .计次循环首 (取数组成员数 (分割), n)<br /> 编辑框3.加入文本 (分割1 <i> ＋ “/” ＋ 分割 [n] ＋ #换行符)<br /> .计次循环尾 ()<br /> .计次循环尾 ()

再次优化一下,这次应该完美啦!!!

呵呵仙

  

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

变量名	类 型	静态	数组	备 注
A	文本型		0
B	文本型		0
c	整数型
d	整数型
txt	快速文本对象

A ＝ { “A1”, “A2”, “A3”, “A4”, “A5” }
B ＝ { “B1”, “B2”, “B3”, “B4”, “B5”, “B6”, “B7” }
变量循环首 (1, 取数组成员数 (A), 1, c)
变量循环首 (1, 取数组成员数 (B), 1, d)
txt.添加 (A [c])
txt.添加 (“/”)
txt.添加 (B [d])
txt.添加 ( #换行符 )
变量循环尾 ()
变量循环尾 ()
调试输出 (txt.取文本 (, ))

i支持库列表	支持库注释
commobj	通用对象支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 commobj<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 A, 文本型, , "0"<br /> .局部变量 B, 文本型, , "0"<br /> .局部变量 c, 整数型<br /> .局部变量 d, 整数型<br /> .局部变量 txt, 快速文本对象<br /> <br /> A ＝ { “A1”, “A2”, “A3”, “A4”, “A5” }<br /> B ＝ { “B1”, “B2”, “B3”, “B4”, “B5”, “B6”, “B7” }<br /> .变量循环首 (1, 取数组成员数 (A), 1, c)<br /> .变量循环首 (1, 取数组成员数 (B), 1, d)<br /> txt.添加 (A [c])<br /> txt.添加 (“/”)<br /> txt.添加 (B [d])<br /> txt.添加 (#换行符)<br /> .变量循环尾 ()<br /> .变量循环尾 ()<br /> 调试输出 (txt.取文本 (, ))

补充内容 (2016-6-9 18:48):
txt.添加 (A [c] ＋ “/” ＋ B [d] ＋ #换行符)'建议不要这样.速度超慢的写法.