Code: Select all
;
; ------------------------------------------------------------
;
; SpiderBasic - File example file
;
; (c) Fantaisie Software
;
; ------------------------------------------------------------
;
Procedure ReadCallback(Status, Filename$, File, Size)
If Status = #PB_Status_Loaded
Debug "File: " + Filename$ + " - Size: " + Size + " bytes"
Debug "Reading first 3 lines:"
; Read the first 3 lines
;
While Eof(0) = 0 And NbLine < 3
Debug ReadString(0)
NbLine+1
Wend
CloseFile(0)
ElseIf Status = #PB_Status_Error
Debug "Error when loading the file: " + Filename$
EndIf
EndProcedure
;Procedure OpenFileRequesterCallback()
; If NextSelectedFile()
; ReadFile(0, SelectedFileID(), @ReadCallback(), #PB_LocalFile)
; EndIf
;EndProcedure
Procedure ChooseFileEvent()
;OpenFileRequester("*.txt", @OpenFileRequesterCallback())
;If OpenFile(
Debug "File Handle : "+Str(OpenFile(0, "canplay.sb", @ReadCallback(),0))
Debug #PB_LocalFile
EndProcedure
OpenWindow(0, 0, 0, 300, 50, "Read file example", #PB_Window_ScreenCentered)
ButtonGadget(0, 10, 10, 280, 30, "Choose a text file...")
;BindGadgetEvent(0, @ChooseFileEvent())
ChooseFileEvent()