导入txt文本到超级列表框再写入到编辑框文本问题求助！

红颜似水 · 发表于 2012-9-3 17:04:51

截图看下

问题是：

导入文本,导入的格式是txt 回车键代表一行然后文本内容就写到超级列表框里了！
选择超级列表框里的内容后单击双击都行，然后里选择的项内容就=编辑框.内容!
会的大神可以帮忙写下吗,如果方便的话顺便把原理写在里面！我想套用下例子谢谢了！

这个是问题源码

问题源码.rar (2.56 KB, 下载次数: 17)

`Xk · 发表于 2012-9-3 17:04:52

好了我带上附件

精yì求精 · 发表于 2012-9-3 17:15:36

接了，骚等

`Xk · 发表于 2012-9-3 17:17:09

我接皇榜来了。

exit11 · 发表于 2012-9-3 17:26:11

.版本 2
.支持库 iext

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

通用对话框1.过滤器＝ “文本文件|*.txt”
.如果真 (通用对话框1.打开 ())
文本内容＝到文本 (读入文件 (通用对话框1.文件名))
文本数组＝分割文本 (文本内容, #换行符, )
.计次循环首 (取数组成员数 (文本数组), x)
索引＝超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (x － 1, 0, 文本数组 [x])
.计次循环尾 ()
.如果真结束

.子程序 _超级列表框1_左键单击表项

编辑框1.内容＝超级列表框1.取标题 (超级列表框1.现行选中项, 0)

`Xk · 发表于 2012-9-3 17:29:08

exit11 发表于 2012-9-3 17:26
.版本 2
.支持库 iext

大虾别抢我肉吃。。。

红颜似水 · 发表于 2012-9-3 17:31:34

exit11 发表于 2012-9-3 17:26
.版本 2
.支持库 iext

后面的X是什么意思

精yì求精 · 发表于 2012-9-3 17:32:54

byeb 发表于 2012-9-3 17:31
后面的X是什么意思

桌面.zip (129.08 KB, 下载次数: 27)

`Xk · 发表于 2012-9-3 17:34:11

= =人家第一次答题

`Xk · 发表于 2012-9-3 17:54:08

敢问LZ要不要↑↓移动也可以获取到？

		自动登录	找回密码
密码			注册

[已解决] 导入txt文本到超级列表框再写入到编辑框文本问题求助！

最佳答案

点评

点评

点评

浏览过的版块