PureBasic

Code : Tout sélectionner

; Lire un fichier a la vitesse de l'éclair
; Par M Dieppedalle David le dimanche 3 octobre 2010

file$ = OpenFileRequester("Sélectionnez un fichier","","Text (.txt)|*.txt|All files (*.*)|*.*",0)
  If file$
    If ReadFile(0, file$)
      length = Lof(0) ; Lit la taille en octets du fichier
      *MemoryID = AllocateMemory(length) ; alloue un bloc mémoire de la taille du fichier "length"
      If *MemoryID ; si l'allacation a bien fonctionner ont continue
        ReadData(0, *MemoryID, length)   ; Lit les données du fichier et les place dans le bloc mémoire "*MemoryID" de la taille correspondant à "length"
        *Fichier.String = @*MemoryID ; "*Fichier" a pour valeur l'adresse où réside la chaîne de caractères en mémoire "*MemoryID"
        Fichier$ = *Fichier\s ; "Fichier$" à pour valeur le texte où réside la chaîne de caractères en mémoire "*MemoryID"
        Debug Fichier$
      EndIf
      CloseFile(0)
    EndIf
  EndIf

Code : Tout sélectionner

Fichier$ = OpenFileRequester("Sélectionnez un fichier","","Text (.txt)|*.txt|All files (*.*)|*.*",0)

; Si il y a un fichier à lire.
If Fichier$
  
  ; Si le fichier peut être lue.
  If ReadFile(0, Fichier$) 
    
    Length.i = Lof(0) ; Lit la taille en octets du fichier 
    *MemoryID = AllocateMemory(Length.i) ; Alloue un bloc mémoire de la taille du fichier "Length.i"
    
    If *MemoryID ; Si l'allocation a bien fonctionner ont continue.
      ReadData(0, *MemoryID, Length.i)   ; Lit les données du fichier et les place dans le bloc mémoire "*MemoryID" de la taille correspondant à "Length.i".
      Donnees$ = PeekS(*MemoryID, Length.i, #PB_UTF8) ; Lis la chaîne de caractère en mémoire au format Ascii, vous pouvez utiliser: #PB_UTF8 | #PB_ByteLength, à la place de #PB_Ascii pour afficher correctement les caractère accentué et spéciaux.
      Debug Donnees$ ; Affiche les données.
    EndIf
    
    CloseFile(0) ; Ferme le fichier.
    
  EndIf
  
EndIf