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

淡定开源

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

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

淡定开源

谢谢，解决了。

淡定开源

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

afan

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

afan

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

淡定开源

知道了，谢谢。