超级列表框怎么导出TXT文件，给个源码就行

leiyh · 发表于 2015-5-8 22:29:55

.子程序演示
' 保存
外部超级列表框_保存数据 (超级列表框1.取窗口句柄，取运行目录（）+“/text.ebb”)
' 读入
超级列表框1.表项=读入文件（取运行目录（）+“/text.ebb”）

leiyh · 发表于 2015-5-8 22:32:32

直接用精易模块的外部超级列表框_保存数据 (超级列表框.取窗口句柄，保存的位置) 命令
如果想要导入直接用超级列表框.表项=读入文件（保存的位置）

Seven3in · 发表于 2015-5-8 22:36:01

.版本 2
.支持库 iext

.子程序 _按钮1_被选择
.局部变量 k, 整数型
.局部变量文本1, 文本型

通用对话框1.类型＝ 1
通用对话框1.过滤器＝ “文本文件（*.txt）|*.txt”
通用对话框1.初始目录＝取运行目录 ()
通用对话框1.打开 ()

.计次循环首 (超级列表框1.取表项数 (), k)
文本1 ＝文本1 ＋文本_取左边 (超级列表框1.取标题 (k － 1, 1), “&amp”) ＋ “----” ＋超级列表框1.取标题 (k － 1, 2) ＋ #换行符
.计次循环尾 ()
写到文件 (通用对话框1.文件名, 到字节集 (文本1))
信息框 (“恭喜你！成功导出ID密码.txt！”, 0, “提示”)

一大米一 · 发表于 2015-5-8 22:49:20

leiyh 发表于 2015-5-8 22:37
[e=0].版本 2

.子程序演示

错误(34): 找不到指定的对象成员名称“取窗口句柄”。

leiyh · 发表于 2015-5-8 22:50:41

本帖最后由 leiyh 于 2015-5-8 22:52 编辑

一大米一发表于 2015-5-8 22:49
错误(34): 找不到指定的对象成员名称“取窗口句柄”。

晕加我100750896 两句代码而己保存一行代码读取一行代码

为妳 · 发表于 2015-5-8 22:51:45

.版本 2
.支持库 iext

.子程序 _按钮_保存账号_被单击
.局部变量 i, 整数型
.局部变量保存成功账号, 文本型
.局部变量保存失败账号, 文本型

.计次循环首 (超级列表框1.取表项数 (), i)
.如果真 (超级列表框1.取标题 (i － 1, 4) ＝ “密码修改成功”)
保存成功账号＝保存成功账号＋超级列表框1.取标题 (i － 1, 1) ＋ “----” ＋超级列表框1.取标题 (i － 1, 3) ＋ #换行符
.如果真结束
.如果真 (超级列表框1.取标题 (i － 1, 4) ＝ “登陆失败，账号或者密码错误”)
保存失败账号＝保存失败账号＋超级列表框1.取标题 (i － 1, 1) ＋ “----” ＋超级列表框1.取标题 (i － 1, 2) ＋ #换行符
.如果真结束

.计次循环尾 ()
保存成功账号＝文本_删除空行 (保存成功账号)
保存失败账号＝文本_删除空行 (保存失败账号)
写到文件 (取运行目录 () ＋ “\修改成功.txt”, 到字节集 (保存成功账号))
写到文件 (取运行目录 () ＋ “\修改失败.txt”, 到字节集 (保存失败账号))
信息框 (“保存账号成功”, 0, “保存账号”, )

yuanma.zip (156.84 KB, 下载次数: 258)

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

[已解决] 超级列表框怎么导出TXT文件，给个源码就行

最佳答案

评分

点评