如何循环某txt文件，并将每一行都赋予变量

temp

如何循环某txt文件，并将每一行都赋予变量
类似与下面的bat语句。
for /f "delims=" %%i in (a.txt) do (
   set var=%%i
   echo !var!
)

kxing

local $hFile=fileopen("1.txt")

$i=1
while 1
$line=filereadline($hFile,$i)
if @error then exitloop
msgbox(0,$i,$line)
$i+=1
wend
fileclose($hFile)

运行看看，没测试。

temp

回复 2# kxing

谢谢，可行，这个连空行也显示出来了，能忽略空行么？

xxoojoeooxx

在第六行加一个

 If StringStripWS($line,8)="" Then ContinueLoop

temp

回复 4# xxoojoeooxx
测试，遇到空行时，脚本不会退出，只是停止显示，即使中途遇空行也是一样

afan

Local $sR = StringRegExp(FileRead('a.txt'), '.*[^\s]+[^\r]*', 3)
If @Error Then Exit -1
For $i = 0 To UBound($sR) - 1
        Msgbox(0, $i, $sR[$i])
Next

temp

local $hFile=fileopen("a.txt")
$i=1
while 1
   $line=filereadline($hFile,$i)
   if @error then exitloop
   If Not StringStripWS($line,8)="" Then msgbox(0,$i,$line)
   $i+=1
wend
fileclose($hFile)

这样就可以了，但用ContinueLoop为什么不行呢？

xlcwxl

afan一来就是正则

netegg

#include<file.au3>
#include<array.au3>
Local $aA, $temp
_filereadtoarray($file, $aA)
_arraydelete($aA, 0)
$temp= _ArrayToString($aA, '|')
Do 
$temp = stringreplace($temp, '||','|')
Until Not(StringInStr($temp, '||'))
$aRet = stringsplit($temp, '|', 2)
_arraydisplay($aRect, ' ')
;fileopen($file, 2)
;_filewritefromarray($file, $aRet)
;fileclose($file)

lixiaolong

回复 7# temp

可以用ContinueLoop，只是你没加$i += 1.

Local $hFile = FileOpen("a.txt")
$i = 1
While 1
        $line = FileReadLine($hFile, $i)
        If @error Then ExitLoop
        If $line = "" Then
                $i += 1
                ContinueLoop
        EndIf
        MsgBox(0, $i, $line)
        $i += 1
WEnd
FileClose($hFile)