|
|
发表于 2013-6-1 13:52:00
|
显示全部楼层
吉林省白城市
[e]
.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 文本, 文本型
.子程序 __启动窗口_创建完毕
文本 = “a#1$b#2$c#3$”
.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 寻找位置1, 整数型
.局部变量 寻找位置2, 整数型
.局部变量 标题1, 文本型
.局部变量 标题2, 文本型
.局部变量 索引, 整数型
寻找位置1 = 寻找文本 (文本, “#”, , 假)
寻找位置2 = 寻找文本 (文本, “$”, , 假)
.计次循环首 (100, )
标题1 = 标题1 + 取文本中间 (文本, 寻找位置1 - 1, 2)
寻找位置1 = 寻找文本 (文本, “#”, 寻找位置1 + 1, 假)
.如果真 (寻找位置1 ≤ 0)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.计次循环首 (100, )
标题2 = 标题2 + 取文本中间 (文本, 寻找位置2 - 1, 2)
寻找位置2 = 寻找文本 (文本, “$”, 寻找位置2 + 1, 假)
.如果真 (寻找位置2 ≤ 0)
跳出循环 ()
.如果真结束
.计次循环尾 ()
索引 = 超级列表框1.插入表项 (-1, , , , , )
超级列表框1.置标题 (索引, 0, 标题1)
超级列表框1.置标题 (索引, 1, 标题2)
[/e] |
|