论坛 › 已解决问题区 › do until 循环不能运行，请指点？（已解决）

淡定开源 发表于 2015-1-14 00:18:50

do until 循环不能运行，请指点？（已解决）

本帖最后由 淡定开源 于 2015-1-14 12:26 编辑

Opt('TrayIconDebug',1)
Global $a,$b=1,$sum=''
Do
$a=FileReadLine('a.txt',$b)
$sum&=$a&','
$b+=1
Until $a=-1
MsgBox(0,'',$sum)
看测试停在第四行。

afan 发表于 2015-1-14 00:50:32

Opt('TrayIconDebug', 1)
Global $a, $b = 1, $sum = ''
Do
        $a = FileReadLine('a.txt', $b)
        $sum &= $a & ','
        $b += 1
Until @error <> 0
MsgBox(0, '', $sum)

淡定开源 发表于 2015-1-14 09:55:05

谢谢，解决了。

淡定开源 发表于 2015-1-14 09:57:54

再问一下为什么$a=-1不行？

afan 发表于 2015-1-14 10:42:01

返回值与错误值当然不是一回事

afan 发表于 2015-1-14 10:48:43

另外，不建议这样递增行数来逐行读取，效率不高。应该先 Fileopen(文件)，然后直接 FileReadLine(句柄)
详见帮助里的 FileReadLine() 函数说明

淡定开源 发表于 2015-1-14 12:14:18

知道了，谢谢。

查看完整版本: do until 循环不能运行，请指点？（已解决）