Sorry your browser is not supported!

sync off
startBlue BlueUserID$, BluePasswd$

` Build it up
Edit = createEdit(100, 100, 200, 16, 0, 0)

` Get the filename and store it in the edit box
Filename$ = openDialog("Open a file", "All Files|*")
setGadgetText Edit, Filename$

wait key

` Tear it down
Edit = deleteGadget(Edit)

end

startBlue BlueUserID$, BluePasswd$

` Build it up
Edit = createEdit(50, 50, 320, 320, 1, 0)

` Get the filename and store it in the edit box
Filename$ = openDialog("Open a file", "All Files|*")


setGadgetText Edit, ReadFile( Filename$ )

wait key

` Tear it down
Edit = deleteGadget(Edit)

end


function ReadFile(Filename$)
   FileContent$ = ""

   open to read 1, Filename$

   ` Read first line
   read string 1, FileContent$

   ` If that wasn't the end of the file, continue
   if file end(1) = 0

      ` Read a line
      read string 1, NewLine$

      ` While last read wasn't end of file
      while file end(1) = 0

         ` Add to the contents
         FileContent$ = FileContent$ + chr$(13) + chr$(10) + NewLine$

         ` Read the next line
         read string 1, NewLine$
      endwhile

   endif

   close file 1
endfunction FileContent$

function ReadFile(Filename$)
   if file exist( Filename$ )
      ` Get file contents as a string
      map file to bank Filename$, 1
      FileContent$ = bank string$(1, 0, get bank size(1))
      delete bank 1

      ` File may have \r\n or \n line endings - we need the first
      ` Easiest is to remove \r, then change all \n to \r\n
      FileContent$ = remove$( FileContent$, chr$(13) )
      FileContent$ = replace$( FileContent$, chr$(10), chr$(13) + chr$(10) )
   endif
endfunction FileContent$