salut Falsam
Merci pour les infos.
Pour récupérer le texte et créer un fichier en local, j'avais réussi
.
J'aurais 2 autres questions :
1) Voilà, j'essaie d'ouvrir un fichier et de le coller dans un editorgadget(), mais je ne parviens pas à récupérer le texte.
Où est mon erreur ?
Code : Tout sélectionner
Global TheLine$
Procedure ReadCallback2(Status, Filename$, File, Size)
If Status = #PB_Status_Loaded
While Eof(1) = 0
TheLine$ = TheLine$ + ReadString(1)+Chr(10)
Wend
CloseFile(1)
; Message("Infos",Theline$)
ElseIf Status = #PB_Status_Error
Message("Erreur","Impossible d'ouvrir le fichier "+filename$)
EndIf
EndProcedure
Procedure GetText(File$)
ReadFile(1,File$, @ReadCallback2(),#PB_Unicode)
EndProcedure
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 MenuHandler()
Select EventMenu()
Case #Menu_info
Theline$ = ""
GetText("info_sevrage.txt")
Message("Information",TheLine$)
endselect
endprocedure
2) Autre problème
Mon fichier est un simple texte avec accent. Mais lorsque je l'ouvre (en décommentant la ligne
dans ReadCallback2(Status, Filename$, File, Size)
J'obtiens un texte avec des caractères spéciaux, mais pas mes accents.
Dans getText(), 'ai essayé unicode, utf8, ascii, j'ai toujours le même problème
Code : Tout sélectionner
Procedure GetText(File$)
ReadFile(1,File$, @ReadCallback2(),#PB_Unicode)
EndProcedure