导入文本到超级列表框只能导入账号密码我想多导入参数如何添加

q132130

  

子程序名	返回值类型	公开	备 注
_导入账号密码_被单击

变量名	类 型	静态	数组	备 注
读入的文本	文本型
分割后的文本	文本型		0
账号	文本型
n	整数型
正则	正则表达式类
密码	文本型
索引	整数型
id	文本型
格式	文本型

超级列表框1.全部删除 ()
通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.类型 ＝ 0  ' 打开文件
如果真 (通用对话框1.打开 () ＝ 真)
读入的文本 ＝ 到文本 (读入文件 (通用对话框1.文件名))
调试输出 (通用对话框1.文件名)
如果 (寻找文本 (读入的文本, “密码”, 1, 假) ≠ -1)
格式 ＝ “密码”
如果 (寻找文本 (读入的文本, “----”, 1, 假) ≠ -1)
格式 ＝ “----”



删全部空 (读入的文本)
分割后的文本 ＝ 分割文本 (读入的文本, #换行符, )
计次循环首 (取数组成员数 (分割后的文本), n)
账号 ＝ 文本_取左边 (分割后的文本 [n], 格式)
正则.创建 (账号 ＋ 格式 ＋ “(\w+)”, 分割后的文本 [n])
密码 ＝ 正则.取子匹配文本 (1, 1)
如果真 (账号 ≠ “” 且 密码 ≠ “”)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框1.置标题 (索引, 1, 账号)
超级列表框1.置标题 (索引, 2, 密码)
如果真 (id ≠ “”)
超级列表框1.置标题 (索引, 3, id)


计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _导入账号密码_被单击<br /> .局部变量 读入的文本, 文本型<br /> .局部变量 分割后的文本, 文本型, , "0"<br /> .局部变量 账号, 文本型<br /> .局部变量 n, 整数型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 密码, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 id, 文本型<br /> .局部变量 格式, 文本型<br /> <br /> 超级列表框1.全部删除 ()<br /> 通用对话框1.初始目录 ＝ 取运行目录 ()<br /> 通用对话框1.类型 ＝ 0  ' 打开文件<br /> .如果真 (通用对话框1.打开 () ＝ 真)<br />     读入的文本 ＝ 到文本 (读入文件 (通用对话框1.文件名))<br />     调试输出 (通用对话框1.文件名)<br />     .如果 (寻找文本 (读入的文本, “密码”, 1, 假) ≠ -1)<br />         格式 ＝ “密码”<br />     .否则<br />         .如果 (寻找文本 (读入的文本, “----”, 1, 假) ≠ -1)<br />             格式 ＝ “----”<br />         .否则<br /> <br />         .如果结束<br /> <br />     .如果结束<br />     删全部空 (读入的文本)<br />     分割后的文本 ＝ 分割文本 (读入的文本, #换行符, )<br />     .计次循环首 (取数组成员数 (分割后的文本), n)<br />         账号 ＝ 文本_取左边 (分割后的文本 [n], 格式)<br />         正则.创建 (账号 ＋ 格式 ＋ “(\w+)”, 分割后的文本 [n])<br />         密码 ＝ 正则.取子匹配文本 (1, 1)<br /> <br />         .如果真 (账号 ≠ “” 且 密码 ≠ “”)<br />             索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />             超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))<br />             超级列表框1.置标题 (索引, 1, 账号)<br />             超级列表框1.置标题 (索引, 2, 密码)<br />             .如果真 (id ≠ “”)<br />                 超级列表框1.置标题 (索引, 3, id)<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()

导入文本到超级列表框只能导入账号密码我想多导入参数如何添加
导入账号----密码----密钥----cookie
研究了半天没研究来

已注销184851

.版本 2
.支持库 iext

超级列表框4.全部删除 ()
通用对话框1.打开 ()
号码 ＝ 到文本 (读入文件 (通用对话框1.文件名))
分割文本 ＝ 分割文本 (号码, #换行符, )
.计次循环首 (取数组成员数 (分割文本), q)
    分割结果2 ＝ 分割文本 (分割文本 [q], “----”, )
    .判断开始 (取数组成员数 (分割结果2) ≥ 2)
        索引 ＝ 超级列表框4.插入表项 (, , , , , )
        超级列表框4.置标题 (索引, 0, 到文本 (索引 ＋ 1))
        超级列表框4.置标题 (索引, 1, 分割结果2 [1])
        超级列表框4.置标题 (索引, 2, 分割结果2 [2])
        超级列表框4.置标题 (索引, 2, 分割结果2 [3])
    .默认

    .判断结束
    程序_延时 (0, 1)
.计次循环尾 ()

给你个例子

已注销184851

发你的源码和数据给我  我帮你改好发你

q132130

小shu 发表于 2017-10-12 01:18
发你的源码和数据给我  我帮你改好发你

源码就在上面了

已注销184851

q132130 发表于 2017-10-12 01:19
源码就在上面了

分割后的文本 ＝ 分割文本 (读入的文本, #换行符, )
计次循环首 (取数组成员数 (分割后的文本), n)
账号 ＝ 文本_取左边 (分割后的文本 [n], 格式)
正则.创建 (账号 ＋ 格式 ＋ “(\w+)”, 分割后的文本 [n])
密码 ＝ 正则.取子匹配文本 (1, 1)
id=文本_取右边 (分割后的文本 [n], 格式，2)
如果真 (账号 ≠ “” 且 密码 ≠ “”)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框1.置标题 (索引, 1, 账号)
超级列表框1.置标题 (索引, 2, 密码)
如果真 (id ≠ “”)
超级列表框1.置标题 (索引, 3, id)


计次循环尾 ()

已注销184851

q132130 发表于 2017-10-12 01:19
源码就在上面了

q132130 发表于 2017-10-12 01:19
源码就在上面了
分割后的文本 ＝ 分割文本 (读入的文本, #换行符, )
计次循环首 (取数组成员数 (分割后的文本), n)
账号 ＝ 文本_取左边 (分割后的文本 [n], 格式)
正则.创建 (账号 ＋ 格式 ＋ “(\w+)”, 分割后的文本 [n])
密码 ＝ 正则.取子匹配文本 (1, 1)
id=文本_取右边 (分割后的文本 [n], 格式，3)
如果真 (账号 ≠ “” 且 密码 ≠ “”)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框1.置标题 (索引, 1, 账号)
超级列表框1.置标题 (索引, 2, 密码)
如果真 (id ≠ “”)
超级列表框1.置标题 (索引, 3, id)


计次循环尾 ()


上面错了应该是第三个位置搜

q132130

小shu 发表于 2017-10-12 01:29
q132130 发表于 2017-10-12 01:19
源码就在上面了
分割后的文本 ＝ 分割文本 (读入的文本, #换行符, )
...

还少一个参数呢 咋整  需要导入4个参数

已注销184851

q132130 发表于 2017-10-12 01:33
还少一个参数呢 咋整  需要导入4个参数

叫你发源码给我你又不发