|
|

楼主 |
发表于 2013-5-22 15:23:45
|
显示全部楼层
江西省南昌市
[e]
.版本 2
.支持库 iext
.支持库 spec
.参数 目录, 文本型
.参数 组件名称, 超级列表框
.参数 节名称, 文本型
.局部变量 a, 文本型
.局部变量 c, 文本型, , "0"
.局部变量 m, 整数型
a = 读配置项 (目录, 节名称, “0”, )
.判断开始 (a ≠ “”)
c = 分割文本 (a, “:”, )
组件名称.插入表项 (, , , , , )
组件名称.置标题 (0, 0, c [2])
组件名称.置标题 (0, 1, c [4])
组件名称.置标题 (0, 2, c [6])
组件名称.置标题 (0, 3, c [8])
.判断循环首 (a ≠ “0”)
m = m + 1
a = 读配置项 (目录, 节名称, 到文本 (m), )
c = 分割文本 (a, “:”, )
组件名称.插入表项 (, , , , , )
组件名称.置标题 (m, 0, c [2])
组件名称.置标题 (m, 1, c [4])
组件名称.置标题 (m, 2, c [6])
.如果 (c [8] = “”)
组件名称.置标题 (m, 3, “空的数据”)
.否则
组件名称.置标题 (m, 3, c [8])
.如果结束
a = 读配置项 (目录, 节名称, 到文本 (m + 1), )
延迟 (100)
.判断循环尾 ()
.默认
[/e] |
|