给你个思路把。。
.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 帐号, 文本型
.程序集变量 密码, 文本型
.子程序 __启动窗口_创建完毕
超级列表框1.插入表项 (, “1”, , , , )
超级列表框1.置标题 (0, 1, “abcsdfsdfsdfs”)
超级列表框1.置标题 (0, 2, “123”)
超级列表框1.插入表项 (, “2”, , , , )
超级列表框1.置标题 (1, 1, “ccc”)
超级列表框1.置标题 (1, 2, “234”)
.子程序 _按钮1_被单击
.局部变量 表项, 整数型, , "6"
表项 = 超级列表框1.取被选择表项 ()
帐号 = 超级列表框1.取标题 (表项 [1], 1)
密码 = 超级列表框1.取标题 (表项 [1], 2)
写出文本 (打开文件 (取当前目录 () + “a.txt”, 5, ), 帐号 + “|” + 密码)
信息框 (“成功写出数据!”, 0, )
' 这里读出账号、密码并写出文本文件,必须在列表中鼠标单击选择一行数据,
.子程序 _按钮2_被单击
.局部变量 文本, 文本型, , "2"
.局部变量 字符数, 整数型
.局部变量 a, 整数型
文本 = 分割文本 (读入一行 (打开文件 (取当前目录 () + “a.txt”, 1, )), “|”, )
帐号 = 文本 [1]
密码 = 文本 [2]
字符数 = 取文本长度 (帐号)
编辑框1.内容 = “”
.计次循环首 (字符数, a)
编辑框1.内容 = 编辑框1.内容 + 取文本中间 (帐号, a, 1)
编辑框1.刷新显示 ()
延时 (500)
.计次循环尾 ()
延时 (1000)
字符数 = 取文本长度 (密码)
编辑框2.获取焦点 ()
.计次循环首 (字符数, a)
编辑框2.内容 = 编辑框2.内容 + 取文本中间 (密码, a, 1)
编辑框2.刷新显示 ()
延时 (500)
.计次循环尾 ()
变量名 待分割文本 文本型
变量名 已分割文本 文本型 数组 0
变量名 计次 整数型
变量名 文本数组 整数型
待分割文本=编辑框1.内容
已分割文本=分割文本(待分割文本,#换行符,)
文本数组=取数组成员数(已分割文本)
计次循环(文本数组,计次)
列表框1.加入项目(文本数组[计次],列表框1.取项目数())
还是你!!