Avec Spiderbasic, j'essaie en vain de lire le contenu de mon fichier texte, mais ça m'affiche juste un contenu vide.
Voici mon code test :
Code : Tout sélectionner
Global info1$ = "truc bidule"
Global truc
Enumeration ; gadget
#Gad_Msg : #Gad_BtnOk
EndEnumeration
Enumeration ; menu
#menu_ChangerInfo
#menu_Info
#menu_LireInfo
EndEnumeration
;{ procedures
Procedure Message(title$,text$)
w=480 : h = 320
OpenWindow(1,0,0,w,h,title$,#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
EditorGadget(#Gad_Msg,10,30,w-20,h-80,#PB_Editor_ReadOnly|#PB_Editor_WordWrap)
SetGadgetText(#Gad_msg,text$)
ButtonGadget(#Gad_BtnOk, w-100,h-40, 80,20,"OK")
EndProcedure
Procedure ReadCallback(Status, Filename$, File, Size)
Select Status
Case #PB_Status_Loaded
; File correctly loaded
Debug "ok file loaded : " + Filename$ + " (" + FileProgress(0) + "%)"
Debug "File: " + Filename$ + " - Size read: " + Size + " bytes"
line$ = "Line : "
While Eof(0) = 0 And NbLine < 10
line$ = line$ + ReadString(0)
Debug line$
NbLine+1
Wend
info1$ = line$
CloseFile(0)
message("Information",info1$)
Case #PB_Status_Progress
; File loading in progress, use FileProgress() get the current progress
Debug "Loading file: " + Filename$ + " (" + FileProgress(0) + "%)"
Case #PB_Status_Error
; File loading has failed
Debug "Error loading file"
EndSelect
EndProcedure
Procedure OpenFileRequesterCallback()
If NextSelectedFile()
Filename$ = SelectedFileName()
ReadFile(0, SelectedFileID(), @ReadCallback(),#PB_LocalFile)
EndIf
EndProcedure
Procedure LoadDoc()
Debug "ok, on lit le fichier"
file$ = "info.txt"
If ReadFile(0, file$, @ReadCallback())
Else
Debug "unable to read the file "+file$
EndIf
; Filename$= OpenFileRequester("*.txt", @OpenFileRequesterCallback())
EndProcedure
; pour tester
Procedure ChangerInfos()
info1$ = "machin chose"
EndProcedure
Procedure OpenInfos()
truc + 1
Debug info1$ +" : "+ truc
EndProcedure
; handle
Procedure Close_Window()
WindowNumber = EventWindow()
If WindowNumber > 0
CloseWindow(WindowNumber)
EndIf
EndProcedure
Procedure Menu_Handle()
Select EventMenu()
Case #menu_LireInfo
LoadDoc()
Case #menu_ChangerInfo
ChangerInfos()
Case #menu_Info
OpenInfos()
EndSelect
EndProcedure
Procedure Gadget_Handle()
Select EventGadget()
Case #Gad_BtnOk
CloseWindow(1)
EndSelect
EndProcedure
;}
;{ window
ExamineDesktops()
gw = DesktopWidth(0)-50
gh = DesktopHeight(0)-50
flag = #PB_Window_Background
info$ = "test de lecture de fichier"
OpenWindow(0, 0, 0, gw, gh, info$, flag)
CreateMenu(0, WindowID(0))
MenuTitle("Fichier")
MenuTitle("Edition")
MenuItem(#menu_ChangerInfo, "Changer infos")
MenuItem(#menu_LireInfo, "Lire infos")
MenuTitle("Affichage")
MenuTitle("Aide")
MenuItem(#menu_Info,"Infos")
OpenInfos()
BindEvent(#PB_Event_CloseWindow, @Close_Window())
BindEvent(#PB_Event_Menu, @Menu_Handle())
BindEvent(#PB_Event_Gadget, @gadget_Handle())
;}
Sur mon "serveur", je le place juste à coté des fichier spiderbasic (spiderbasic.js, le fichier html, etc...)
Lorsque j'ouvre le menu #menu_LireInfo (Lire infos), j'ai -1% avec FileProgress(0)
Ma question :
- comment dois-je m'y prendre pour lire ce fichier texte et afficher son contenu ?
merci