文本操作读入写出分割文本

heiyezi · 发表于 2013-5-21 18:50:57

一次性读入账号密码程序会很卡还要分割
可以实现比如第一读入第一行第二次读入第二行
第三次读入第三行
保存也一样比如第一保存第一行第二次保存第二行
弄成txt文本文件或者ini配置文件都可以
我的QQ85855910 回复上源码联系我立马最佳给回答

MrSimple · 发表于 2013-5-21 18:50:58

源码已搞定最佳吧[e]
.版本 2
.支持库 iext

.程序集窗口程序集1
.程序集变量局部临时文本, 文本型
.程序集变量局部临时数组, 文本型, , "2"
.程序集变量局部总行数, 整数型
.程序集变量局部结果数组, 文本型, , "1"
.程序集变量计次, 整数型
.程序集变量局部表项索引, 整数型
.程序集变量 i, 整数型
.程序集变量 e, 整数型
.程序集变量 c, 整数型

.子程序 __启动窗口_创建完毕

.如果真 (文件是否存在 (取运行目录 () ＋ “\123.txt”))
超级列表框1.表项＝ { }
局部临时文本＝到文本 (读入文件 (取运行目录 () ＋ “\123.txt”))
局部临时数组＝分割文本 (局部临时文本, #换行符, )
局部总行数＝取数组成员数 (局部临时数组)
标签5.标题＝ “读取全部数据成功!,共获得” ＋到文本 (局部总行数) ＋ “条数据”
.计次循环首 (局部总行数, 计次)
局部结果数组＝分割文本 (局部临时数组 [计次], 到文本 (“ ”), )
.如果真 (取数组成员数 (局部结果数组) ≥ 2)
局部表项索引＝超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (局部表项索引, 1, 局部结果数组 [1])
超级列表框1.置标题 (局部表项索引, 2, 局部结果数组 [2])
.如果真结束

.计次循环尾 ()
.计次循环首 (超级列表框1.取表项数 (), i)
超级列表框1.置标题 (i － 1, 0, 到文本 (i))
.计次循环尾 ()

.如果真结束
e ＝ 0
c ＝ 1

.子程序 _按钮2_被单击

通用对话框1.类型＝ 0
通用对话框1.过滤器＝ “文本文件(*.txt)|*.txt”
通用对话框1.打开 ()
超级列表框1.表项＝ { }
局部临时文本＝到文本 (读入文件 (通用对话框1.文件名))
局部临时数组＝分割文本 (局部临时文本, #换行符, )
局部总行数＝取数组成员数 (局部临时数组)
.计次循环首 (局部总行数, 计次)
局部结果数组＝分割文本 (局部临时数组 [计次], 到文本 (“ ”), )
.如果真 (取数组成员数 (局部结果数组) ≥ 2)
局部表项索引＝超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (局部表项索引, 1, 局部结果数组 [1])
超级列表框1.置标题 (局部表项索引, 2, 局部结果数组 [2])
.如果真结束

.计次循环尾 ()

.计次循环首 (超级列表框1.取表项数 (), i)
超级列表框1.置标题 (i － 1, 0, 到文本 (i))
.计次循环尾 ()

.子程序 _按钮1_被单击

.如果真 (e ≠ 超级列表框1.取表项数 ())
编辑框2.内容＝超级列表框1.取标题 (e, 1)
编辑框3.内容＝超级列表框1.取标题 (e, 2)
超级列表框1.置标题 (e － 1, 3, “”)
超级列表框1.置标题 (e, 3, “亲我在这呢”)
e ＝ e ＋ 1

.如果真结束

.子程序 _按钮3_被单击
.局部变量 a1, 文本型, , "0"
.局部变量文本, 文本型

文本＝局部临时数组 [c]
a1 ＝分割文本 (文本, “ ”, )
编辑框5.内容＝ a1 [1]
编辑框4.内容＝ a1 [2]
c ＝ c ＋ 1

[/e]

默默` · 发表于 2013-5-21 18:54:32

用线程就不会卡啦

紫月星云 · 发表于 2013-5-21 18:58:56

多少账号啊怎么会卡

heiyezi · 发表于 2013-5-21 18:59:50

5000左右的账号啊会卡啊

Themoder · 发表于 2013-5-21 19:00:48

额。。。我直接把以前写的一个子程序拿过来了，你自己看下吧

[e]
.版本 2
.支持库 iext

.子程序 _导入QQ信封格式_被选择, , , 导入QQ号码
.局部变量临时文本, 文本型
.局部变量文件号, 整数型
.局部变量特征字符, 文本型
.局部变量临时文本数组, 文本型, , "2"
.局部变量 j, 整数型
.局部变量 QQ号数组, 文本型, , "2"
.局部变量临时句柄, 整数型

超级列表框2.全部删除 ()
.如果真 (是否注册＝ 1)

标签_提示.标题＝ “正在导入”
按钮_正常登陆.禁止＝假
通用对话框1.过滤器＝ “文本文件|*.txt”
通用对话框1.打开 ()
特征字符＝分割符号
.如果真 (通用对话框1.文件名 ≠ “”)
文件号＝打开文件 (通用对话框1.文件名, , )

标签_路径.标题＝通用对话框1.文件名

临时文本＝读入文本 (文件号, )
关闭文件 (文件号)
.如果真结束

j ＝ 1

取数组下标 (临时文本数组, )

.如果 (寻找文本 (临时文本, 特征字符, , 假) ≠ -1)
临时文本数组＝分割文本 (临时文本, #换行符, )

.计次循环首 (取数组成员数 (临时文本数组), )

QQ号数组 [1] ＝取文本左边 (临时文本数组 [j], 寻找文本 (临时文本数组 [j], “-”, , 假) － 1)
QQ号数组 [2] ＝取文本右边 (临时文本数组 [j], 取文本长度 (临时文本数组 [j]) －寻找文本 (临时文本数组 [j], “-”, , 假) － 3)

临时句柄＝超级列表框2.插入表项 (, 到文本 (j), , , , )

j ＝ j ＋ 1

超级列表框2.置标题 (临时句柄, 8, QQ号数组 [1])
超级列表框2.置标题 (临时句柄, 9, QQ号数组 [2])

.计次循环尾 ()

.否则

.如果结束
标签_提示.标题＝ “导入结束”

.如果真结束
.如果真 (是否注册＝ 0)
信息框 (“软件没有注册，欲购买注册码，联系作者：1046244313，售价：3600票”, 0, “提示”)
载入 (窗口_注册, , 真)
.如果真结束

标签_合计.标题＝到文本 (超级列表框2.取表项数 ())

[/e]

[e]
.版本 2
.支持库 iext

.子程序 _保存信封QQ格式_被选择, , , 保存还能添加游戏的QQ号
.局部变量临时计数, 整数型
.局部变量临时文本, 文本型
.局部变量成功的个数, 整数型

创建目录 (取运行目录 () ＋ “\精武堂_” ＋临时文件号)
标签_提示.标题＝ “正在保存”
.计次循环首 (超级列表框2.取表项数 (), 临时计数)

.如果 (超级列表框2.取标题 (临时计数－ 1, 10) ＝ “在线”)
成功的个数＝成功的个数＋ 1
临时文本＝临时文本＋超级列表框2.取标题 (临时计数－ 1, 8) ＋ “----” ＋超级列表框2.取标题 (临时计数－ 1, 9) ＋ #换行符
.否则

.如果结束

.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\精武堂_” ＋临时文件号＋ “\信封” ＋到文本 (成功的个数) ＋ “个.txt”, 到字节集 (临时文本))
标签_提示.标题＝ “保存结束”

[/e]

heiyezi · 发表于 2013-5-21 19:04:35

楼上的如果有5000账号需要读多久？
我刚才也是这样写的

紫月星云 · 发表于 2013-5-21 19:08:03

要读取完了才能开始做其他的操作吗

heiyezi · 发表于 2013-5-21 19:08:07

比如说我弄死循环
变量=1
判断循环首（I=1）
变量=变量+1
读入文本的行数（变量）
循环尾

电脑寄生虫 · 发表于 2013-5-21 19:39:16

w.rar (1.19 KB, 下载次数: 18)

[已解决] 文本操作读入写出分割文本

最佳答案

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

[已解决] 文本操作 读入 写出分割文本

最佳答案

[已解决] 文本操作读入写出分割文本