每次使用只提取一行txt文本内的内容

zzz77f

每次使用只提取一行txt文本内的内容 插入到 超级列表框内   并且在txt文本内标记已使用 应该怎么写，求个例子

webyezi

  

子程序名	返回值类型	公开	备 注
获取账号	逻辑型
参数名	类 型	参考	可空	数组	备 注
索引	整数型
状态	整数型				1 获取新账号 2 读取账号

变量名	类 型	静态	数组	备 注
i	整数型
文件号	整数型
账号文本	文本型
账号数组	文本型		0
账号密码	文本型		0
情况	逻辑型
n	整数型
账号更新	文本型

如果真 (多线程 [索引].线程状态)
进入许可区 (许可证_获取账号)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\账号.txt”, #读写, #无限制 )
账号文本 ＝ 读入文本 (文件号, )
判断 (账号文本 ＝ “”)
调试输出 (“账号密码一个也没有……请处理好TXT后－－－在动起辅助”)
账号数组 ＝ 分割文本 (账号文本, #换行符, )
' 调试输出 (账号数组)
计次循环首 (取数组成员数 (账号数组), i)
判断 (状态 ＝ 1)
判断 (寻找文本 (账号数组 [i], “已读取”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “已完成”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “已封号”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “密码错”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “号异常”, , 假) ＝ -1)
账号密码 ＝ 分割文本 (账号数组 [i], “|”, )
如果真 (取数组成员数 (账号密码) ≥ 3)
多线程 [索引].账号 ＝ 处理空格 (账号密码 [1])
多线程 [索引].密码 ＝ 处理空格 (账号密码 [2])
多线程 [索引].服务器 ＝ 处理空格 (账号密码 [3])
账号数组 [i] ＝ 账号数组 [i] ＋ “|” ＋ “已读取”
反馈列表信息 (索引, 1, 多线程 [索引].账号 ＋ “ - ” ＋ 多线程 [索引].密码 ＋ “ - ” ＋ 多线程 [索引].服务器)
情况 ＝ 真
跳出循环 ()

反馈列表信息 (索引, 1, “获取失败”)

判断 (状态 ＝ 2)
判断 (寻找文本 (账号数组 [i], “已读取”, , 假) ≥ 1 且 寻找文本 (账号数组 [i], “已完成”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “已封号”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “密码错”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “号异常”, , 假) ＝ -1)
账号密码 ＝ 分割文本 (账号数组 [i], “|”, )
如果真 (取数组成员数 (账号密码) ≥ 3)
多线程 [索引].账号 ＝ 处理空格 (账号密码 [1])
多线程 [索引].密码 ＝ 处理空格 (账号密码 [2])
多线程 [索引].服务器 ＝ 处理空格 (账号密码 [3])
反馈列表信息 (索引, 1, 多线程 [索引].账号 ＋ “ - ” ＋ 多线程 [索引].密码 ＋ “ - ” ＋ 多线程 [索引].服务器)
情况 ＝ 真
跳出循环 ()

反馈列表信息 (索引, 1, “获取失败”)




计次循环尾 ()
判断 (情况 ＝ 真)
计次循环首 (取数组成员数 (账号数组), n)
判断 (账号更新 ＝ “”)
账号更新 ＝ 账号数组 [n] ＋ #换行符
账号更新 ＝ 账号更新 ＋ 账号数组 [n] ＋ #换行符

计次循环尾 ()
写出文本 (打开文件 (取运行目录 () ＋ “\账号.txt”, #重写, #无限制 ), 账号更新)



调试输出 (“账号:” ＋ 多线程 [索引].账号, “密码:” ＋ 多线程 [索引].密码, “服务器:” ＋ 多线程 [索引].服务器)
关闭文件 (文件号)
退出许可区 (许可证_获取账号)
返回 (情况)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .子程序 获取账号, 逻辑型<br /> .参数 索引, 整数型<br /> .参数 状态, 整数型, , 1 获取新账号 2 读取账号  <br /> .局部变量 i, 整数型<br /> .局部变量 文件号, 整数型<br /> .局部变量 账号文本, 文本型<br /> .局部变量 账号数组, 文本型, , "0"<br /> .局部变量 账号密码, 文本型, , "0"<br /> .局部变量 情况, 逻辑型<br /> .局部变量 n, 整数型<br /> .局部变量 账号更新, 文本型<br /> <br /> .如果真 (多线程 [索引].线程状态)<br />     进入许可区 (许可证_获取账号)<br />     文件号 ＝ 打开文件 (取运行目录 () ＋ “\账号.txt”, #读写, #无限制)<br />     账号文本 ＝ 读入文本 (文件号, )<br />     .判断开始 (账号文本 ＝ “”)<br />         调试输出 (“账号密码一个也没有……请处理好TXT后－－－在动起辅助”)<br />     .默认<br />         账号数组 ＝ 分割文本 (账号文本, #换行符, )<br />         ' 调试输出 (账号数组)<br />         .计次循环首 (取数组成员数 (账号数组), i)<br />             .判断开始 (状态 ＝ 1)<br />                 .判断开始 (寻找文本 (账号数组 <i>, “已读取”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “已完成”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “已封号”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “密码错”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “号异常”, , 假) ＝ -1)<br />                     账号密码 ＝ 分割文本 (账号数组 <i>, “|”, )<br />                     .如果真 (取数组成员数 (账号密码) ≥ 3)<br />                         多线程 [索引].账号 ＝ 处理空格 (账号密码 [1])<br />                         多线程 [索引].密码 ＝ 处理空格 (账号密码 [2])<br />                         多线程 [索引].服务器 ＝ 处理空格 (账号密码 [3])<br />                         账号数组 <i> ＝ 账号数组 <i> ＋ “|” ＋ “已读取”<br />                         反馈列表信息 (索引, 1, 多线程 [索引].账号 ＋ “ - ” ＋ 多线程 [索引].密码 ＋ “ - ” ＋ 多线程 [索引].服务器)<br />                         情况 ＝ 真<br />                         跳出循环 ()<br />                     .如果真结束<br /> <br />                 .默认<br />                     反馈列表信息 (索引, 1, “获取失败”)<br /> <br />                 .判断结束<br /> <br />             .判断 (状态 ＝ 2)<br />                 .判断开始 (寻找文本 (账号数组 <i>, “已读取”, , 假) ≥ 1 且 寻找文本 (账号数组 <i>, “已完成”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “已封号”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “密码错”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “号异常”, , 假) ＝ -1)<br />                     账号密码 ＝ 分割文本 (账号数组 <i>, “|”, )<br />                     .如果真 (取数组成员数 (账号密码) ≥ 3)<br />                         多线程 [索引].账号 ＝ 处理空格 (账号密码 [1])<br />                         多线程 [索引].密码 ＝ 处理空格 (账号密码 [2])<br />                         多线程 [索引].服务器 ＝ 处理空格 (账号密码 [3])<br />                         反馈列表信息 (索引, 1, 多线程 [索引].账号 ＋ “ - ” ＋ 多线程 [索引].密码 ＋ “ - ” ＋ 多线程 [索引].服务器)<br />                         情况 ＝ 真<br />                         跳出循环 ()<br />                     .如果真结束<br /> <br />                 .默认<br />                     反馈列表信息 (索引, 1, “获取失败”)<br />                 .判断结束<br /> <br />             .默认<br /> <br />             .判断结束<br /> <br />         .计次循环尾 ()<br /> <br />         .判断开始 (情况 ＝ 真)<br />             .计次循环首 (取数组成员数 (账号数组), n)<br />                 .判断开始 (账号更新 ＝ “”)<br />                     账号更新 ＝ 账号数组 [n] ＋ #换行符<br />                 .默认<br />                     账号更新 ＝ 账号更新 ＋ 账号数组 [n] ＋ #换行符<br />                 .判断结束<br /> <br />             .计次循环尾 ()<br />             写出文本 (打开文件 (取运行目录 () ＋ “\账号.txt”, #重写, #无限制), 账号更新)<br />         .默认<br /> <br />         .判断结束<br /> <br />     .判断结束<br />     调试输出 (“账号:” ＋ 多线程 [索引].账号, “密码:” ＋ 多线程 [索引].密码, “服务器:” ＋ 多线程 [索引].服务器)<br /> <br /> .如果真结束<br /> 关闭文件 (文件号)<br /> 退出许可区 (许可证_获取账号)<br /> 返回 (情况)

webyezi

  

子程序名	返回值类型	公开	备 注
获取账号	逻辑型
参数名	类 型	参考	可空	数组	备 注
索引	整数型
状态	整数型				1 获取新账号 2 读取账号

变量名	类 型	静态	数组	备 注
i	整数型
文件号	整数型
账号文本	文本型
账号数组	文本型		0
账号密码	文本型		0
情况	逻辑型
n	整数型
账号更新	文本型

如果真 (多线程 [索引].线程状态)
进入许可区 (许可证_获取账号)
文件号 ＝ 打开文件 (取运行目录 () ＋ “\账号.txt”, #读写, #无限制 )
账号文本 ＝ 读入文本 (文件号, )
判断 (账号文本 ＝ “”)
调试输出 (“账号密码一个也没有……请处理好TXT后－－－在动起辅助”)
账号数组 ＝ 分割文本 (账号文本, #换行符, )
' 调试输出 (账号数组)
计次循环首 (取数组成员数 (账号数组), i)
判断 (状态 ＝ 1)
判断 (寻找文本 (账号数组 [i], “已读取”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “已完成”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “已封号”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “密码错”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “号异常”, , 假) ＝ -1)
账号密码 ＝ 分割文本 (账号数组 [i], “|”, )
如果真 (取数组成员数 (账号密码) ≥ 3)
多线程 [索引].账号 ＝ 处理空格 (账号密码 [1])
多线程 [索引].密码 ＝ 处理空格 (账号密码 [2])
多线程 [索引].服务器 ＝ 处理空格 (账号密码 [3])
账号数组 [i] ＝ 账号数组 [i] ＋ “|” ＋ “已读取”
反馈列表信息 (索引, 1, 多线程 [索引].账号 ＋ “ - ” ＋ 多线程 [索引].密码 ＋ “ - ” ＋ 多线程 [索引].服务器)
情况 ＝ 真
跳出循环 ()

反馈列表信息 (索引, 1, “获取失败”)

判断 (状态 ＝ 2)
判断 (寻找文本 (账号数组 [i], “已读取”, , 假) ≥ 1 且 寻找文本 (账号数组 [i], “已完成”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “已封号”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “密码错”, , 假) ＝ -1 且 寻找文本 (账号数组 [i], “号异常”, , 假) ＝ -1)
账号密码 ＝ 分割文本 (账号数组 [i], “|”, )
如果真 (取数组成员数 (账号密码) ≥ 3)
多线程 [索引].账号 ＝ 处理空格 (账号密码 [1])
多线程 [索引].密码 ＝ 处理空格 (账号密码 [2])
多线程 [索引].服务器 ＝ 处理空格 (账号密码 [3])
反馈列表信息 (索引, 1, 多线程 [索引].账号 ＋ “ - ” ＋ 多线程 [索引].密码 ＋ “ - ” ＋ 多线程 [索引].服务器)
情况 ＝ 真
跳出循环 ()

反馈列表信息 (索引, 1, “获取失败”)




计次循环尾 ()
判断 (情况 ＝ 真)
计次循环首 (取数组成员数 (账号数组), n)
判断 (账号更新 ＝ “”)
账号更新 ＝ 账号数组 [n] ＋ #换行符
账号更新 ＝ 账号更新 ＋ 账号数组 [n] ＋ #换行符

计次循环尾 ()
写出文本 (打开文件 (取运行目录 () ＋ “\账号.txt”, #重写, #无限制 ), 账号更新)



调试输出 (“账号:” ＋ 多线程 [索引].账号, “密码:” ＋ 多线程 [索引].密码, “服务器:” ＋ 多线程 [索引].服务器)
关闭文件 (文件号)
退出许可区 (许可证_获取账号)
返回 (情况)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .子程序 获取账号, 逻辑型<br /> .参数 索引, 整数型<br /> .参数 状态, 整数型, , 1 获取新账号 2 读取账号  <br /> .局部变量 i, 整数型<br /> .局部变量 文件号, 整数型<br /> .局部变量 账号文本, 文本型<br /> .局部变量 账号数组, 文本型, , "0"<br /> .局部变量 账号密码, 文本型, , "0"<br /> .局部变量 情况, 逻辑型<br /> .局部变量 n, 整数型<br /> .局部变量 账号更新, 文本型<br /> <br /> .如果真 (多线程 [索引].线程状态)<br />     进入许可区 (许可证_获取账号)<br />     文件号 ＝ 打开文件 (取运行目录 () ＋ “\账号.txt”, #读写, #无限制)<br />     账号文本 ＝ 读入文本 (文件号, )<br />     .判断开始 (账号文本 ＝ “”)<br />         调试输出 (“账号密码一个也没有……请处理好TXT后－－－在动起辅助”)<br />     .默认<br />         账号数组 ＝ 分割文本 (账号文本, #换行符, )<br />         ' 调试输出 (账号数组)<br />         .计次循环首 (取数组成员数 (账号数组), i)<br />             .判断开始 (状态 ＝ 1)<br />                 .判断开始 (寻找文本 (账号数组 <i>, “已读取”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “已完成”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “已封号”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “密码错”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “号异常”, , 假) ＝ -1)<br />                     账号密码 ＝ 分割文本 (账号数组 <i>, “|”, )<br />                     .如果真 (取数组成员数 (账号密码) ≥ 3)<br />                         多线程 [索引].账号 ＝ 处理空格 (账号密码 [1])<br />                         多线程 [索引].密码 ＝ 处理空格 (账号密码 [2])<br />                         多线程 [索引].服务器 ＝ 处理空格 (账号密码 [3])<br />                         账号数组 <i> ＝ 账号数组 <i> ＋ “|” ＋ “已读取”<br />                         反馈列表信息 (索引, 1, 多线程 [索引].账号 ＋ “ - ” ＋ 多线程 [索引].密码 ＋ “ - ” ＋ 多线程 [索引].服务器)<br />                         情况 ＝ 真<br />                         跳出循环 ()<br />                     .如果真结束<br /> <br />                 .默认<br />                     反馈列表信息 (索引, 1, “获取失败”)<br /> <br />                 .判断结束<br /> <br />             .判断 (状态 ＝ 2)<br />                 .判断开始 (寻找文本 (账号数组 <i>, “已读取”, , 假) ≥ 1 且 寻找文本 (账号数组 <i>, “已完成”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “已封号”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “密码错”, , 假) ＝ -1 且 寻找文本 (账号数组 <i>, “号异常”, , 假) ＝ -1)<br />                     账号密码 ＝ 分割文本 (账号数组 <i>, “|”, )<br />                     .如果真 (取数组成员数 (账号密码) ≥ 3)<br />                         多线程 [索引].账号 ＝ 处理空格 (账号密码 [1])<br />                         多线程 [索引].密码 ＝ 处理空格 (账号密码 [2])<br />                         多线程 [索引].服务器 ＝ 处理空格 (账号密码 [3])<br />                         反馈列表信息 (索引, 1, 多线程 [索引].账号 ＋ “ - ” ＋ 多线程 [索引].密码 ＋ “ - ” ＋ 多线程 [索引].服务器)<br />                         情况 ＝ 真<br />                         跳出循环 ()<br />                     .如果真结束<br /> <br />                 .默认<br />                     反馈列表信息 (索引, 1, “获取失败”)<br />                 .判断结束<br /> <br />             .默认<br /> <br />             .判断结束<br /> <br />         .计次循环尾 ()<br /> <br />         .判断开始 (情况 ＝ 真)<br />             .计次循环首 (取数组成员数 (账号数组), n)<br />                 .判断开始 (账号更新 ＝ “”)<br />                     账号更新 ＝ 账号数组 [n] ＋ #换行符<br />                 .默认<br />                     账号更新 ＝ 账号更新 ＋ 账号数组 [n] ＋ #换行符<br />                 .判断结束<br /> <br />             .计次循环尾 ()<br />             写出文本 (打开文件 (取运行目录 () ＋ “\账号.txt”, #重写, #无限制), 账号更新)<br />         .默认<br /> <br />         .判断结束<br /> <br />     .判断结束<br />     调试输出 (“账号:” ＋ 多线程 [索引].账号, “密码:” ＋ 多线程 [索引].密码, “服务器:” ＋ 多线程 [索引].服务器)<br /> <br /> .如果真结束<br /> 关闭文件 (文件号)<br /> 退出许可区 (许可证_获取账号)<br /> 返回 (情况)

liu307921917

用换行符把文本内容分割为文本数组，然后插入一次，文本数组计次+1

左强

读全部内容 , 遍历每一行 , 没有标记就插入列表 , 插入后标记此行 , 再保存txt . 要自己封装读写txt的函数

长安往事

  

子程序名	返回值类型	公开	备 注
取出一个	文本型

变量名	类 型	静态	数组	备 注
行数组	文本型		0
i	整数型
取出结果	文本型

行数组 ＝ 分割文本 (到文本 (读入文件 (取特定目录 (3) ＋ “\测试.txt”)), #换行符, )
计次循环首 (取数组成员数 (行数组), i)
如果真 (寻找文本 (行数组 [i], “已使用”, , 假) ＝ -1)
取出结果 ＝ 行数组 [i]
行数组 [i] ＝ 行数组 [i] ＋ “---已使用”
跳出循环 ()

计次循环尾 ()
如果真 (取出结果 ≠ “”)
写到文件 (取特定目录 (3) ＋ “\测试.txt”, 到字节集 (数组_合并 (行数组, #换行符 )))

返回 (取出结果)

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 取出一个, 文本型<br /> .局部变量 行数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 取出结果, 文本型<br /> <br /> 行数组 ＝ 分割文本 (到文本 (读入文件 (取特定目录 (3) ＋ “\测试.txt”)), #换行符, )<br /> .计次循环首 (取数组成员数 (行数组), i)<br />     .如果真 (寻找文本 (行数组 <i>, “已使用”, , 假) ＝ -1)<br />         取出结果 ＝ 行数组 <i><br />         行数组 <i> ＝ 行数组 <i> ＋ “---已使用”<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .如果真 (取出结果 ≠ “”)<br />     写到文件 (取特定目录 (3) ＋ “\测试.txt”, 到字节集 (数组_合并 (行数组, #换行符)))<br /> .如果真结束<br /> <br /> 返回 (取出结果)