integer li_Line, li_Rtn, li_Index
string ls_File, ls_Line
ls_File = "C:\Test.txt"
li_Line = FileOpen(ls_File, LineMode!)
li_Index = 0
do while li_Index > -1
li_Rtn = FileRead(li_Line, ls_Line) //FileReadEx
choose case li_Rtn
case is > 0
li_Index ++
MessageBox('Msg', ls_Line)
case 0, -100
li_Index = -1
case -1
li_index = -1
end choose
loop
FileClose(li_Line)
MessageBox('Msg', 'End!!')
