파일 불러와서 데이터 사용하기 | ▦ PowerBuilder

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!!')