关于 超级列表框导入

杀戮天使

我有两个文档
要导入到一个超级列表框里的不同项里
可是导入以后成这样
朋友们帮我看看 谢谢

冰点

桌面.rar (77.4 KB, 下载次数: 27)

2011-3-28 16:27 上传

点击文件名下载附件
看看是不是你要的效果..

不过 楼上的 建议 很不错. 存在 一个 文本 里面.方便管理

exit11

如果需要分2次导入，感觉很麻烦；所以做了下小改动

[e].版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 a, 文本型, , "0"
.局部变量 文件内容, 文本型
.局部变量 x, 整数型
.局部变量 临时文本, 文本型, , "0"
.局部变量 索引

通用对话框1.初始目录 ＝ “C:\Documents and Settings\Administrator\桌面\”
通用对话框1.打开 ()
超级列表框1.全部删除 ()
文件内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))  ' 读取文件全部内容

' ad1----a1----1 把账号密码卡号写到一个文件，可方便管理
' ad2----a2----2
' ad3----a3----3
' ad4----a4----4
' ad5----a5----5
' ad6----a6----6
a ＝ 分割文本 (文件内容, #换行符, )
.计次循环首 (取数组成员数 (a), x)
    临时文本 ＝ 分割文本 (a [x], “----”, )
    索引 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, 到文本 (x))
    超级列表框1.置标题 (索引, 1, 临时文本 [1])
    超级列表框1.置标题 (索引, 2, 临时文本 [2])
    超级列表框1.置标题 (索引, 3, 临时文本 [3])
.计次循环尾 ()[/e]

exit11

为什么显示为易格式的东西时灵时不灵呢

exit11

.版本 2
.支持库 iext

.子程序 _按钮2_被单击
.局部变量 文件号, 整数型
.局部变量 a, 文本型, , "0"
.局部变量 b, 整数型
.局部变量 j, 整数型
.局部变量 x, 整数型

通用对话框1.初始目录 ＝ “C:\Documents and Settings\Administrator\桌面\”
通用对话框1.打开 ()
' 超级列表框2.全部删除 ()
文件号 ＝ 打开文件 (通用对话框1.文件名, , )

.计次循环首 (超级列表框1.取表项数 (), x)
    a ＝ 分割文本 (读入一行 (文件号), , )
    超级列表框1.置标题 (j, 3, a [1])
    j ＝ j ＋ 1
.计次循环尾 ()

exit11

回复 2# exit11

超级列表框只有四列
现在数组成员就有五个
所以，列的索引都是固定指定，

杀戮天使

回复 2# 冰点


    谢谢 要的就是这样的
   非常感谢