所所思 发表于 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 发表 http://www.autoitx.com/images/common/back.gif
我想从一个文本文档中 每次读出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 发表 http://www.autoitx.com/images/common/back.gif
我觉得你好像不是这个意思，是不是在界面上不用按确定，自己出数呀？

我就是这个意思 谢谢

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# 刘强

什么意思，又不是下水道，循环利用呀：）
页: [1]
查看完整版本: 循环函数