|
发表于 2011-10-21 13:10:34
|
显示全部楼层
广东省云浮市
本帖最后由 exit11 于 2011-10-21 13:10 编辑
[e].版本 2
.支持库 iext
.支持库 spec
.程序集 窗口程序集1
.程序集变量 当前位置, 整数型
.子程序 __启动窗口_创建完毕
.局部变量 a, 文本型, , "0"
.局部变量 b, 文本型, , "0"
.局部变量 x, 整数型
.局部变量 索引, 整数型
a = 分割文本 (#常量1, #换行符, )
.计次循环首 (取数组成员数 (a), x)
b = 分割文本 (a [x], “ ”, )
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, b [1])
超级列表框1.置标题 (索引, 1, b [2])
.计次循环尾 ()
.子程序 _按钮1_被单击
.局部变量 x, 整数型
' 超级列表框1
.变量循环首 (当前位置, 当前位置 + 3, 1, x)
post (超级列表框1.取标题 (x, 0), 超级列表框1.取标题 (x, 0))
调试输出 (超级列表框1.取标题 (x, 0), 超级列表框1.取标题 (x, 0))
.变量循环尾 ()
当前位置 = 当前位置 + 4
调试输出 (“=======================”)
.子程序 post
.参数 文本1, 文本型
.参数 文本2, 文本型
' 测试用
[/e] |
|