代码直接最后一行开始提取信息，，怎么回事呢？

515333605

11.txt (99 Bytes, 下载次数: 2)

2019-10-13 18:29 上传

点击文件名下载附件 导入后，提取信息，直接跑到最后一行开始。。。。



导入后，超级列表框 提取信息出错，怎么回事？ 求大佬帮忙（新人才学）




.版本 2
.支持库 EThread
.支持库 iext
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 注册数量, 整数型
.程序集变量 线程数量, 整数型
.程序集变量 线程编号, 整数型
.程序集变量 线程组, 整数型, , "0"
.程序集变量 主线程, 整数型
.程序集变量 注册成功, 整数型
.程序集变量 线程同步句柄, 整数型
.子程序 __启动窗口_创建完毕
线程同步句柄 ＝ 创建进入许可证 ()

.子程序 注册
.局部变量 姓名, 文本型
.局部变量 x号, 文本型
.局部变量 计数, 整数型

进入许可区 (线程同步句柄)
计数 ＝ 超级列表框2.插入表项 (, , , , , )
退出许可区 (线程同步句柄)
姓名 ＝ 超级列表框2.取标题 (计数, 1)
x号 ＝ 超级列表框2.取标题 (计数, 2)
超级列表框2.置标题 (计数, 3, “已使用”)
调试输出 (计数)


线程数量 ＝ 线程数量 － 1
.子程序 _按钮_开始_被单击, , , 注册线程
注册数量 ＝ 0
线程数量 ＝ 0
重定义数组 (线程组, 假, 到整数 (编辑框注册线程.内容))
主线程 ＝ 线程_启动 (&运行)

.子程序 运行, , , 多线程启动

.判断循环首 (注册数量 ＜ 到整数 (编辑框注册数量.内容))  ' 运行注册的代码
    .如果真 (线程数量 ＜ 到整数 (编辑框注册线程.内容))  ' 目前软件中的线程数量小于设定的线程数量
        ' 条件满足增加线程
        启动线程 (&注册, , 线程编号)
        注册数量 ＝ 注册数量 ＋ 1
        加入成员 (线程组, 线程编号)
        线程数量 ＝ 线程数量 ＋ 1
    .如果真结束

.判断循环尾 ()
.子程序 _按钮_结束_被单击
.局部变量 次数, 整数型
强制结束线程 (主线程)
.计次循环首 (取数组成员数 (线程组), 次数)
    强制结束线程 (线程组 [次数])
    关闭线程句柄 (线程组 [次数])
    强制结束线程 (线程组 [次数])
    退出许可区 (线程同步句柄)
.计次循环尾 ()

.子程序 _按钮_导入_被单击
启动线程 (&导入信息, , )

.子程序 导入信息
.局部变量 文本, 文本型, , "0"
.局部变量 姓名, 文本型
.局部变量 身份证, 文本型
.局部变量 次数, 整数型
.局部变量 行数, 整数型
超级列表框2.全部删除 ()
通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.过滤器 ＝ “文本文档|*.txt”
.如果真 (通用对话框1.打开 ())
    文本 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
    .计次循环首 (取数组成员数 (文本), 次数)
        姓名 ＝ 文本_取左边 (文本 [次数], “----”)
        调试输出 (姓名)
        身份证 ＝ 文本_取右边 (文本 [次数], “----”)
        调试输出 (身份证)
        行数 ＝ 超级列表框2.插入表项 (, , , , , )
        超级列表框2.置标题 (行数, 0, 到文本 (行数 ＋ 1))
        超级列表框2.置标题 (行数, 1, 姓名)
        超级列表框2.置标题 (行数, 2, 身份证)
    .计次循环尾 ()
.如果真结束









倒入信息后 ，，提取出错.e (897.41 KB, 下载次数: 2)

2019-10-13 18:29 上传

点击文件名下载附件

cclzzip

没问题呀，很正常，全导入了

列明

至於開始執行後從第11行起寫入“已使用”，是因為你插入了行，並且使用了插入的行序。
如果你能將該（插入的）行序減去所有賬號的行數，那麽也能正確顯示“已使用”。
不過這種方法的最後就是總行數將會是需要註冊的賬號數的2倍，
然後所有的賬號註冊完成之後，你還得刪一次空白行。
另一個解決方案就是我的附件給出的了。
多綫程執行註冊的時候沒有給每個綫程分配註冊哪一個的序號。
分配好序號之後，再去執行多綫程註冊才能忙而不亂。
當然我寫得很亂，在你的基礎上改了一些，又都給註釋掉了。
嗯，註釋掉的都是實現不了的。
不過我給你的附件可以實現。
嗯，你再精簡一下，篩選有用的用就行。