MsgBox with FileReadLine

[Stuempi]

Hi there,

I want to make a MsgBox listing all the lines of a txt-file.

Now with the following code I get a msgbox for each line I got in the file... is there any way to let me show a list of all the lines in ONE msgbox?

$file = FileOpen("delete.txt", 0)
        While 1
            $delete_read = FileReadLine($file)
            If @error = -1 Then ExitLoop
            MsgBox("", "test", $delete_read)
        Wend
        FileClose($file)

[Skruge]

If you want to read it line-by-line, then you'll need to combine the lines.

This way will read the entire file at once:

MsgBox(0, "test", FileRead("delete.txt"))

[AlmarM]

Try something with:

$File = FileOpen("delete.txt", 0)
$Split = StringSplit(FileRead($File), Chr(10))

For $i = 1 To $Split[0]
    $Line = FileReadLine($File, $i)
    MsgBox(0, "", $Line)
Next

FileClose($File)

Didnt test it!

AlmarM

[Stuempi]

@ Skruge

That did it to me... many thanks! It can be so easy...

[ProgAndy]

Try something with:

$File = FileOpen("delete.txt", 0)
$Split = StringSplit(FileRead($File), Chr(10))

For $i = 1 To $Split[0]
    $Line = FileReadLine($File, $i)
    MsgBox(0, "", $Line)
Next

FileClose($File)

Didnt test it!

AlmarM

Why do you read the file twice? You should use one of these ways

$FileName = "delete.txt"
$Split = StringSplit( StringReplace(FileRead($FileName),@CR,"") , @LF)
For $i = 1 To $Split[0]
    MsgBox(0, '', $Split[$i])
Next

$File = FileOpen("delete.txt", 0)

While 1
    $Line = FileReadLine($File)
    If @error<>0 Then ExitLoop
    MsgBox(0, "", $Line)
WEnd

FileClose($File)

Besides, this was not what Stuempi wanted.

Edited June 6, 2009 by ProgAndy

[AlmarM]

Why do you read the file twice? You should use one of these ways

Hmm true >.<'

Besides, this was not what Stuempi wanted.

Oh, my fault!