PureBoard

Code: Alles auswählen

Procedure Err(Err$)
  If Err$="SysError":Err$=ErrorMessage():EndIf
  MessageRequester("Error","Error: "+Err$,0)
  End
EndProcedure
Procedure Msg(Msg$)
  MessageRequester("Message","Message: "+Msg$,0)
EndProcedure

OnErrorCall(@Err("SysError"))

MainWindowHandle=OpenWindow(#PB_Any,0,0,300,300,"SortIt",#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered)
If MainWindowHandle=0
  Err("Couldnt open Window.")
EndIf
LoadButtonHandle=ButtonGadget(#PB_Any,10,10,70,25,"Load File")
If LoadButtonHandle=0
  Err("Couldnt create Button.")
EndIf

Repeat
  EventID = WaitWindowEvent()
  If EventWindow()=MainWindowHandle And EventID=#PB_Event_Gadget And EventGadget()=LoadButtonHandle
    File$ = OpenFileRequester("Please chose the file to read from","","Text (*.txt)|*.txt;*.bat|All Files (*.*)|*.*", 0)
    If File$
      Msg("You have chosen the following file:" + #LF$ + File$)
    Else
      Err("No file was chosen.") 
    EndIf
    ReadFileHandle=ReadFile(#PB_Any, File$)
    If ReadFileHandle
      While Eof(ReadFileHandle)=0
        Debug ReadString(ReadFileHandle)
      Wend
      CloseFile(ReadFileHandle)
    Else
      Err("Couldnt open File for Reading")
    EndIf


  EndIf
Until EventID = #PB_Event_CloseWindow

Code: Alles auswählen

      While Eof(ReadFileHandle)=0
        MessageRequester("test","test",0)
        Debug ReadString(ReadFileHandle)
        MessageRequester("test","test",0)
        FileSeek(0,length)
        MessageRequester("test","test",0)
      Wend