超级列表可以读取“账号”TXT 但是不知道怎么保存到图片中的列表
单击保存到 是这个代码插入数据 (“login”, “id,zhanghao,mima,qufu”, 编辑框1.内容 ＋ “,'” ＋ 编辑框账号.内容 ＋ “','” ＋ 编辑框密码.内容 ＋ “','” ＋ 编辑框区服.内容 ＋ “'”)读取“账号.txt”的代码是这个.版本 2
.支持库 spec
.支持库 iext
.局部变量 wjh, 整数型
.局部变量 文本内容, 文本型
.局部变量 a, 整数型
.局部变量 i, 整数型
.局部变量 账号密码数组, 文本型, , "0"
.局部变量 账号文本数组, 文本型, , "0"
wjh ＝ 打开文件 (取运行目录 () ＋ “\账号.txt”, , )
调试输出 (wjh)
.如果 (wjh ＝ 0)
写到文件 (取运行目录 () ＋ “\账号.txt”, 到字节集 (“”))
信息框 (“请在账号.txt中填写账号密码”, 0, )
返回 ()
.否则
.如果结束
文本内容 ＝ 读入文本 (wjh, )
.如果 (文本内容 ＝ “”)
信息框 (“请在账号.txt中填写账号密码”, 0, )
返回 ()
.否则
.如果 (寻找文本 (文本内容, #换行符, , 假) ＝ -1)
信息框 (“请在账号.txt中填写账号密码 且 必须大于1行”, 0, )
返回 ()
.否则
账号文本数组 ＝ 分割文本 (文本内容, #换行符, )
超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (账号文本数组), i)
.如果 (寻找文本 (账号文本数组 , “ ”, , 假) ≠ -1)
账号密码数组 ＝ 分割文本 (账号文本数组 , “ ”, )
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i － 1, 0, 到文本 (i))
超级列表框1.置标题 (i － 1, 1, 到文本 (账号密码数组 ))
超级列表框1.置标题 (i － 1, 2, 到文本 (账号密码数组 ))
.否则
.如果结束
.计次循环尾 ()
.如果结束
.如果结束
麻烦大神帮我写个能想单击保存读取的代码 这个是单个保存的 就是把‘’账号.txt‘’保存 在 这个插入数据里面 插入数据 (“login”, “id,zhanghao,mima,qufu”, 编辑框1.内容 ＋ “,'” ＋ 编辑框账号.内容 ＋ “','” ＋ 编辑框密码.内容 ＋ “','” ＋ 编辑框区服.内容 ＋ “'”)
页:
[1]