精易论坛

标题: 批量导入QQ 到表格求助！！ [打印本页]

作者: 玩世不恭KISS 时间: 2012-12-30 14:26
标题: 批量导入QQ 到表格求助！！
{:soso_e109:}急！！！！！！！！！！！！！！！

作者: 悟空科技 时间: 2012-12-30 14:26
[e]
.版本 2
.支持库 iext

.子程序 _按钮_导入账号_被单击
.局部变量 QQ账号文件, 文本型
.局部变量局_QQ账号S, 文本型, , "0"
.局部变量 n, 整数型
.局部变量局_索引, 整数型
.局部变量局_QQ账号密码S, 文本型, , "0"

.如果真 (通用对话框1.打开 () ＝真)
超级列表框_qq.全部删除 ()
QQ账号文件＝到文本 (读入文件 (通用对话框1.文件名))
.判断开始 (寻找文本 (QQ账号文件, #换行符, , 假) ≠ -1)
      局_QQ账号S ＝分割文本 (QQ账号文件, #换行符, )
      .计次循环首 (取数组成员数 (局_QQ账号S), n)
         局_索引＝超级列表框_qq.插入表项 (, , , , , )
         .如果真 (寻找文本 (局_QQ账号S [n], “----”, , 假) ≠ -1)
            局_QQ账号密码S ＝分割文本 (局_QQ账号S [n], “----”, )
            超级列表框_qq.置标题 (局_索引, 0, 到文本 (局_索引＋ 1))
            超级列表框_qq.置标题 (局_索引, 1, 局_QQ账号密码S [1])
            超级列表框_qq.置标题 (局_索引, 2, 局_QQ账号密码S [2])
         .如果真结束

      .计次循环尾 ()

.默认
      .如果真 (寻找文本 (QQ账号文件, “----”, , 假) ≠ -1)
         局_索引＝超级列表框_qq.插入表项 (, , , , , )
         局_QQ账号密码S ＝分割文本 (QQ账号文件, “----”, )
         超级列表框_qq.置标题 (局_索引, 0, 到文本 (局_索引＋ 1))
         超级列表框_qq.置标题 (局_索引, 1, 局_QQ账号密码S [1])
         超级列表框_qq.置标题 (局_索引, 2, 局_QQ账号密码S [2])
[/e]

作者: 残血小羽 时间: 2012-12-30 14:33

是超级列表框吧

作者: 特思软件 时间: 2012-12-30 14:34
什么表格。

作者: 悟空科技 时间: 2012-12-30 14:40
[e]
.版本 2
.支持库 iext

.子程序 _按钮_导入账号_被单击
.局部变量 QQ账号文件, 文本型
.局部变量局_QQ账号S, 文本型, , "0"
.局部变量 n, 整数型
.局部变量局_索引, 整数型
.局部变量局_QQ账号密码S, 文本型, , "0"

.如果真 (通用对话框1.打开 () ＝真)
超级列表框_qq.全部删除 ()
QQ账号文件＝到文本 (读入文件 (通用对话框1.文件名))
.判断开始 (寻找文本 (QQ账号文件, #换行符, , 假) ≠ -1)
      局_QQ账号S ＝分割文本 (QQ账号文件, #换行符, )
      .计次循环首 (取数组成员数 (局_QQ账号S), n)
         局_索引＝超级列表框_qq.插入表项 (, , , , , )
         .如果真 (寻找文本 (局_QQ账号S [n], “----”, , 假) ≠ -1)
            局_QQ账号密码S ＝分割文本 (局_QQ账号S [n], “----”, )
            超级列表框_qq.置标题 (局_索引, 0, 到文本 (局_索引＋ 1))
            超级列表框_qq.置标题 (局_索引, 1, 局_QQ账号密码S [1])
            超级列表框_qq.置标题 (局_索引, 2, 局_QQ账号密码S [2])
         .如果真结束

      .计次循环尾 ()

.默认
      .如果真 (寻找文本 (QQ账号文件, “----”, , 假) ≠ -1)
         局_索引＝超级列表框_qq.插入表项 (, , , , , )
         局_QQ账号密码S ＝分割文本 (QQ账号文件, “----”, )
         超级列表框_qq.置标题 (局_索引, 0, 到文本 (局_索引＋ 1))
         超级列表框_qq.置标题 (局_索引, 1, 局_QQ账号密码S [1])
         超级列表框_qq.置标题 (局_索引, 2, 局_QQ账号密码S [2])
[/e]

作者: zsl 时间: 2013-2-3 00:44
提示: 该帖被管理员或版主屏蔽

欢迎光临精易论坛 (https://125.confly.eu.org/)