Uncorrectly read file

[1micha.elok]

Question
Case 1 : I think ... [for...next] is not the best way to read text file
Case 2 : I think this is the best way, but [do..until frln(f) = "unset"] gives unexpectedly output

Please advice me what is the best way to read the whole text file ?
Thank you.

Code:

set window "readfile",400,400

f = openfile("story.txt")

'Case 1
'correctly read file
for i = 0 to 21
    wln frln(f)
    i = i + 1
next

'Case 2
'uncorrectly read file
do
    wln frln(f)
until frln(f)="unset"

free file f

temp=rln()

[Marcus]

Like this, maybe:

Code:

f = openfile("story.txt")
lin = frln(f)
while typeof(lin)
    pln lin
    lin = frln(f)
wend
free(f)

Or:

Code:

' contains a bunch of helper functions related to files.
include "file.n7"

' returns the lines of a text file as an array.
lines = ReadAllLines("story.txt")
for i = 0 to sizeof(lines) - 1  pln lines[i]

' return all text as a single string.
text = ReadAllText("story.txt")
pln text

[Tomaaz]

Code:

text = system("type story.txt")

[Marcus]

Code:

text = system("type story.txt")

Nice! I've never used that command

And if you want to split it into an array of lines:

Code:

lines = split(system("type story.txt"), chr(10))

[1micha.elok]

Thank you Tomaaz and Marcus for the solution.

Let me code it in this way :

Code:

'==================================
'Solutions (by Tomaaz and Marcus)
'use system type to read text file
'==================================

set window "read story.txt",400,400         

'chr(10) = ascii for \n, New Line
wln "File : Story.txt"
lines = split(system("type story.txt"), chr(10))
for k = 0 to sizeof(lines) - 1 wln lines[k]

wln
'put a space character in the beginning of an empty line (on the text file)
'so that every empty space line is written as it is.
wln "File : Story_.txt"
lines = split(system("type story_.txt"), chr(10))
for k = 0 to sizeof(lines) - 1 wln lines[k]

temp = rln()

[Tomaaz]

Why not

Code:

wln system("type story.txt")

? It will print the entire file. What's the point of splitting?

[1micha.elok]

comparison
using split() and without split() function

   
click the image to zoom in