PureBasic

Code : Tout sélectionner

Fichier$ = ""

If ReadFile(1, "votre fichier.pb") ; Si le fichier peut être lu , on continue...
  While Eof(1) = 0                                       ; Boucle tant que la fin du fichier n'est pas atteinte. (Eof = 'End Of File') 
    Fichier$ + ReadString(1) + Chr(13) + Chr(10)         ; Affiche ligne par ligne le contenu du fichier
  Wend
  CloseFile(1) ; Ferme le fichier précédemment ouvert
Else           ; Sinon ont affiche un message d'avertissement
  MessageRequester("Information","Impossible d'ouvrir le fichier !")
EndIf

Debug Fichier$ + Chr(13) + Chr(10)

Code : Tout sélectionner

BOM = ReadStringFormat(1)

Code : Tout sélectionner

If ReadFile(0, "Gadget Wiever Gestion Edition Gaget.pb", #PB_UTF8)
  ReadStringFormat(0)
  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"
    Code$ = PeekS(*MemoryID, length, #PB_UTF8) + #CRLF$ + #CRLF$
  EndIf
  CloseFile(0)
EndIf

Code : Tout sélectionner

If ReadFile(0, "Gadget Wiever Gestion Edition Gaget.pb")
    ReadStringFormat(0) ; Déplacera le pointeur après le BOM s'il en trouve un 
    While Not Eof(0)
        Code$ = ReadString(0, #PB_File_IgnoreEOL)
    Wend    
    CloseFile(0)
    ; SetClipboardText(Code$) si on veut le mettre dans le presse-papier
Else
    MessageRequester("Erreur", "Ne peut lire le fichier source")
EndIf