循环函数

所所思 · 发表于 2008-9-20 10:54:58

我想从一个文本文档中每次读出5行读取5行后停顿5秒钟再继续读取下面的5行该怎么写呢
假设有一个1.txt文档有20行第一次读取1-5行停顿2秒然后再从第6行开始再读5行这样一直到读完该怎么写
下面是我根据意思写了几个不知道如何嵌套语句

For $x = 1 To 10
        $y =$x*5
Next
For $i = 1 To 5
        $bady = FileReadLine("1.txt", $i)
        If $i = $y Then Sleep(2000)
        Else
        MsgBox(48, "ok", $bady)
        EndIf
Next

[ 本帖最后由所所思于 2008-9-20 11:05 编辑 ]

netegg · 发表于 2008-9-20 11:06:07

原帖由 所所思 于 2008-9-20 10:54 发表
我想从一个文本文档中每次读出5行  读取5行后停顿5秒钟再继续读取下面的5行该怎么写呢
假设有一个1.txt文档有20行  第一次读取1-5行  停顿5秒然后再从第6行开始再读5行这样一直到读完  该怎么写
For $i = 1  ...

dim $bady
For $i = 1 To 20
      $bady = $bady & FileReadLine("1.txt", $i) & @crlf
   if isint($i/5) =1 then
      MsgBox(48, "ok", $bady)
      sleep(500)
   endif
Next

[ 本帖最后由 netegg 于 2008-9-20 11:09 编辑 ]

netegg · 发表于 2008-9-20 11:15:25

我觉得你好像不是这个意思，是不是在界面上不用按确定，自己出数呀？
给你一个写好的，看看对不对路

[ 本帖最后由 netegg 于 2008-9-20 11:21 编辑 ]

所所思 · 发表于 2008-9-20 11:19:19

谢谢了这样简单多了

所所思 · 发表于 2008-9-20 11:20:06

原帖由 netegg 于 2008-9-20 11:15 发表
我觉得你好像不是这个意思，是不是在界面上不用按确定，自己出数呀？

我就是这个意思谢谢

netegg · 发表于 2008-9-20 11:23:40

源码发过去了，延迟的时间你自己看着改吧，我懒得算了

[ 本帖最后由 netegg 于 2008-9-20 11:25 编辑 ]

所所思 · 发表于 2008-9-20 11:28:21

呵呵 gui啊感谢

netegg · 发表于 2008-9-20 11:38:01

不用这么客气

316428696 · 发表于 2009-9-8 12:16:31

8错8错支持

刘强 · 发表于 2009-9-22 07:56:44

我也想要循环但是不是这样的

netegg · 发表于 2009-9-22 09:16:18

10# 刘强

什么意思，又不是下水道，循环利用呀：）

		自动登录	找回密码
密码			加入

循环函数

相关帖子

本帖子中包含更多资源