PureBasic

Code : Tout sélectionner

Fichier$ = "Test.txt"
Size = FileSize(Fichier$)

If Size > 0
  If ReadFile(0,Fichier$)
    *Buffer = AllocateMemory(Size)
    If *Buffer
      ReadData(*Buffer,Size)
    EndIf
    CloseFile(0)
  EndIf
EndIf

Debug PeekS(*Buffer)

Code : Tout sélectionner

fich$="ecrire un octet.txt" ;dans le fichier j'ai écrit"Pure Basic"
result=ReadFile(1,fich$) 
If result = 0 : End : EndIf 

LongueurALire = Lof()
*Buffer = AllocateMemory(LongueurALire) 
LongueurLue = ReadData(*Buffer, LongueurALire) 
For a=0 To 9
  ascii.s=Chr(PeekB(*Buffer+a)) ;je lis les dix premiers caractères 
  Debug ascii
Next