【求助】超级列表框内的所有表项内容添加到编辑框内

[love]莫小熙

先点下“按钮1”然后编辑框读取超级列表框内所有内容

流氓丶R

这是我写的模块，给最佳吧。。[e]
.版本 2
.支持库 iext

.子程序 超级列表框数据到文本, 文本型, 公开, 返回指定超级列表框中全部数据
.参数 超级列表框, 超级列表框, , 欲取数据的超级列表框
.参数 分割标识, 文本型, , 每列数据的分割标识
.参数 是否取标题, 逻辑型, , 是否取表头标题
.局部变量 表项数, 整数型
.局部变量 列数, 整数型
.局部变量 表项计次, 整数型
.局部变量 列计次, 整数型
.局部变量 列文本, 文本型
.局部变量 表项文本, 文本型

.如果真 (是否取标题 ＝ 真)
    列数 ＝ 超级列表框.取列数 ()
    .计次循环首 (列数, 列计次)
        列文本 ＝ 列文本 ＋ 超级列表框.取列标题 (列计次 － 1) ＋ 分割标识
    .计次循环尾 ()
    列文本 ＝ 列文本 ＋ #换行符
.如果真结束
表项数 ＝ 超级列表框.取表项数 ()
.计次循环首 (表项数, 表项计次)
    列数 ＝ 超级列表框.取列数 ()
    .计次循环首 (列数, 列计次)
        .如果 (表项文本 ＝ “”)
            表项文本 ＝ 超级列表框.取标题 (表项计次 － 1, 列计次 － 1) ＋ 分割标识
        .否则
            表项文本 ＝ 表项文本 ＋ 超级列表框.取标题 (表项计次 － 1, 列计次 － 1) ＋ 分割标识
        .如果结束

    .计次循环尾 ()
    表项文本 ＝ 表项文本 ＋ #换行符
.计次循环尾 ()
表项文本 ＝ 子文本替换 (表项文本, #换行符, “”, 取文本长度 (表项文本) － 取文本长度 (#换行符), 1, 真)
返回 (列文本 ＋ 表项文本)
[/e]

[love]莫小熙

x55s 发表于 2013-12-24 20:48
这是我写的模块，给最佳吧。。[e]
.版本 2
.支持库 iext

是需要按钮然后再添加到编辑框里

流氓丶R

[love]莫小熙 发表于 2013-12-24 20:52
是需要按钮然后再添加到编辑框里

这个你不会自己写啊。。无语。。
在按钮被单击事件加编辑框1.内容=超级列表框数据到文本（）就可以了。。

[love]莫小熙

x55s 发表于 2013-12-24 20:54
这个你不会自己写啊。。无语。。
在按钮被单击事件加编辑框1.内容=超级列表框数据到文本（）就可以了。 ...

里面表示写不来，能不能给个例子

helper

给你写了个简单的例子

流氓丶R

[love]莫小熙 发表于 2013-12-24 20:58
里面表示写不来，能不能给个例子

不知道怎么回事，现在论坛上传附件的按钮不显示出来，只能给你代码了，你把你的窗口所在程序集全部替换成这个试试。
[e]
.版本 2
.支持库 iext

.程序集 窗口程序集1

.子程序 _按钮1_被单击

编辑框1.内容 ＝ 超级列表框数据到文本 (超级列表框1, “|”, 真)

.子程序 超级列表框数据到文本, 文本型, 公开, 返回指定超级列表框中全部数据
.参数 超级列表框, 超级列表框, , 欲取数据的超级列表框
.参数 分割标识, 文本型, , 每列数据的分割标识
.参数 是否取标题, 逻辑型, , 是否取表头标题
.局部变量 表项数, 整数型
.局部变量 列数, 整数型
.局部变量 表项计次, 整数型
.局部变量 列计次, 整数型
.局部变量 列文本, 文本型
.局部变量 表项文本, 文本型

.如果真 (是否取标题 ＝ 真)
    列数 ＝ 超级列表框.取列数 ()
    .计次循环首 (列数, 列计次)
        列文本 ＝ 列文本 ＋ 超级列表框.取列标题 (列计次 － 1) ＋ 分割标识
    .计次循环尾 ()
    列文本 ＝ 列文本 ＋ #换行符
.如果真结束
表项数 ＝ 超级列表框.取表项数 ()
.计次循环首 (表项数, 表项计次)
    列数 ＝ 超级列表框.取列数 ()
    .计次循环首 (列数, 列计次)
        .如果 (表项文本 ＝ “”)
            表项文本 ＝ 超级列表框.取标题 (表项计次 － 1, 列计次 － 1) ＋ 分割标识
        .否则
            表项文本 ＝ 表项文本 ＋ 超级列表框.取标题 (表项计次 － 1, 列计次 － 1) ＋ 分割标识
        .如果结束

    .计次循环尾 ()
    表项文本 ＝ 表项文本 ＋ #换行符
.计次循环尾 ()
表项文本 ＝ 子文本替换 (表项文本, #换行符, “”, 取文本长度 (表项文本) － 取文本长度 (#换行符), 1, 真)
返回 (列文本 ＋ 表项文本)

.子程序 _窗口1_创建完毕
.局部变量 局部计次, 整数型
.局部变量 表项数, 整数型

置随机数种子 ()
.计次循环首 (取随机数 (20, 30), 局部计次)
    表项数 ＝ 超级列表框1.插入表项 (, 到文本 (局部计次), , , , )
    超级列表框1.置标题 (表项数, 1, 到文本 (取随机数 (1000000, 9999999)))
.计次循环尾 ()
[/e]

[love]莫小熙

你不知道的事╮ 发表于 2013-12-24 21:00
给你写了个简单的例子

我超级列表框里东西不想直接就加载进去的

helper

[love]莫小熙 发表于 2013-12-24 21:17
我超级列表框里东西不想直接就加载进去的

你想用打开文件的方式载入是吗