Code : Tout sélectionner
Fichier$ = OpenFileRequester("open_file","*.txt", "", 0)
If ReadFile(0, Fichier$)
Size = FileSize(Fichier$)
*Buffer = AllocateMemory(Size)
If *Buffer
ReadData(0,*Buffer, Size)
CloseFile(0)
EndIf
EndIf
;=== Test ===
Repeat
Debug PeekS(*Buffer + Lng, 100)
Lng + 100
Until Lng >= Size
FreeMemory(*Buffer)
Code : Tout sélectionner
EnableExplicit
Define File_Source.s = "C:\Program Files\PureBasic\Compilers\APIFunctionListing.txt" ; 7249 lignes
Define Start.q
Define Stop.q
OpenWindow(0, 0, 0, 800, 600, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
EditorGadget(1, 0, 0, 800, 600, #PB_Editor_ReadOnly)
If Not ReadFile(0, File_Source)
Debug "Fichier non trouvé. END"
End
EndIf
; Debug "Méthode standard (ajout dans le gadget)" Trop lent
; Start = ElapsedMilliseconds()
; While Not Eof(0)
; AddGadgetItem(1, -1, ReadString(0))
; Wend
; Stop = ElapsedMilliseconds()
; Debug Str((Stop - Start) / 1000) + " Secondes"
; CloseFile(0)
; SetGadgetText(1, "")
; ClearGadgetItems(1)
ReadFile(0, File_Source)
Debug #CRLF$ + "Méthode 1"
Start = ElapsedMilliseconds()
Define Full_Text.s
While Not Eof(0)
Full_Text + ReadString(0) + #CRLF$
Wend
SetGadgetText(1, Full_Text)
Stop = ElapsedMilliseconds()
Debug Str((Stop - Start) / 1000) + " Secondes"
CloseFile(0)
Delay(2000)
ClearGadgetItems(1)
Debug #CRLF$ + "Méthode 2"
Define Size
Define *Buffer
Define Lng
Start = ElapsedMilliseconds()
If ReadFile(0, File_Source)
Size = FileSize(File_Source)
*Buffer = AllocateMemory(Size)
If *Buffer
ReadData(0,*Buffer, Size)
CloseFile(0)
EndIf
EndIf
Repeat
; Debug PeekS(*Buffer + Lng, 100)
AddGadgetItem(1, -1, PeekS(*Buffer + Lng, 100))
Lng + 100
Until Lng >= Size
Stop = ElapsedMilliseconds()
Debug Str((Stop - Start) / 1000) + " Secondes"
FreeMemory(*Buffer)
While WaitWindowEvent() <> #PB_Event_CloseWindow : Wend
Code : Tout sélectionner
If ReadFile(0, NomFichier$)
Size = FileSize(NomFichier$)
*Buffer = AllocateMemory(Size)
If *Buffer
ReadData(0,*Buffer, Size)
CloseFile(0)
EndIf
buuf$= buuf$+PeekS(*Buffer, Size,Format_file) ; <<< ça remplace la boucle le text du fichier COMPLET est dans "buuf$"
; "Format_file" est la constante style #Pb_Ascii ,#pb_uft8 etc ...
Endif
;un simple settext() dans un editeur Gadget fera le boulot
Code : Tout sélectionner
Debug #CRLF$ + "Méthode 2"
Define File_Type.c
Define Size
Define *Buffer
Start = ElapsedMilliseconds()
If ReadFile(0, File_Source)
File_Type = ReadStringFormat(0) ; Récupération type d'encodage (UTF-8, ASCII, Unicode etc)
Size = FileSize(File_Source) ; Récupération taille du fichier
*Buffer = AllocateMemory(Size) ; Réservation place mémoire
If *Buffer
ReadData(0,*Buffer, Size) ; Lecture en binaire de tout le fichier
CloseFile(0)
EndIf
EndIf
; Remplissage du GadgetEditor en une seule passe avec prise en comte de l'encodage
SetGadgetText(1, PeekS(*Buffer, Size, File_Type))
Stop = ElapsedMilliseconds()
Debug Str(Stop - Start) + " ms"
...et voilà, encore une idée qui m'est venue 
(faut que j'arrête le chocolat: ça me doppe) 
)
)
À noter: cette copie d'écran est réalisée sous Windows 10 
la fenêtre sans bordure et recouverte d'un Canvas, c'est celui-ci qui permet de la déplacer quelque soit la position de la souris, sans utiliser l'API SendMessage_
Utile pour la barre de menu de l'IDE qui n'a pas certaines icône pour certaines fonctions.
C'est beau l'élégante simplicité de codage en PureBasic