每次读网址怎么慢得像蜗牛？

aismy

.版本 2
.支持库 iext
.计次循环首 (2000, xx)
    状态条1.置文本 (1, “读取网址中...”)
    文件号 ＝ 打开文件 (取运行目录 () ＋ “\网址.txt”, #改读, )
    文本 ＝ 读入一行 (文件号)
    编辑框当前网址.加入文本 (文本 ＋ #换行符)
    移动读写位置 (文件号, #现行位置, －取文本长度 (文本) － 2)
    删除数据 (文件号, 取文本长度 (文本) ＋ 2)
    移到文件首 (文件号)
    关闭文件 (文件号)
.计次循环尾 ()


---


知道问题了，我让他一边读 一边转编码，不卡死才怪。。。我的错。

执着

建议采用多线程试试！

笨潴

{:3_226:}你发的是什么源码啊，一片空白。。。

易团俊

因为蜗牛不会读网页嘛。。。

笨潴

{:3_226:}几百行，，，，你当你的电脑会飞啊，，，看线程部分，，，

aismy

怎么每次都屏蔽了我发的代码啊？不同代码也屏蔽。。。

.版本 2
.支持库 iext

.计次循环首 (到数值 (编辑框每次读取网址个数.内容), xx)
    状态条1.置文本 (1, “读取网址中...”)
    文件号 ＝ 打开文件 (取运行目录 () ＋ “\网址.txt”, #改读, )
    文本 ＝ 读入一行 (文件号)
    编辑框当前网址.加入文本 (文本 ＋ #换行符)
    移动读写位置 (文件号, #现行位置, －取文本长度 (文本) － 2)
    删除数据 (文件号, 取文本长度 (文本) ＋ 2)
    移到文件首 (文件号)
    关闭文件 (文件号)
.计次循环尾 ()

aismy

笨潴 发表于 2011-7-9 22:56
几百行，，，，你当你的电脑会飞啊，，，看线程部分，，，

知道问题了，我让他一边读 一边转编码，不卡死才怪。。。我的错。

我当然 试过线程部分。。

aismy

笨潴 发表于 2011-7-9 22:56
几百行，，，，你当你的电脑会飞啊，，，看线程部分，，，

我测试了 一次读几千 也很快 嘿

笨潴

状态条1.置文本
  关闭文件 (文件号)
这两句都不用每次循环都要的。。